М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Snowghost
Snowghost
18.04.2020 15:01 •  Информатика

Складіть блок-схему для розв’язання Задачі Задача.
Тепер припустимо, що умови депозиту змінилися.
Клієнт банку одержав дві новини:
1) гарну - кожні три роки банк підвищує відсоток на 0,5%;
2) погану - кожного року необхідно сплачувати податок на одержаний
прибуток, тобто прибуток скорочується на певну кількість відсотків (яку
вводить користувач).
Необхідно визначити суму, яку одержить клієнт банку на кінець кожного
року.
Математична модель.
S - початкова сума,
n - річний відсоток.
Формула S=S*(1+n/100)
p - податок на прибуток у відсотках
Умова рік(у) кратний 3?
q= S*n/100 – прибуток з урахуванням підвищення відсотку
t=q*p/100 – податок на одержання прибутку
S=S+q-t – прибуток з урахуванням нового прибутку та податку на нього.

👇
Открыть все ответы
Ответ:
Diana20006100500
Diana20006100500
18.04.2020

Объяснение:

program functionx;

// в константах задаем интервал функций, в пределах которого будем вычислять их значения

const

   LoX = -10;

   HiX = 10;

var

   // указываем типы переменных с которыми будем работать:

   // Х - целое число с шагом 1 из вышеопределенного интервала

   // fx результат расчета функции пока не знаем, поэтому он не целый

   x : integer;

   fx : real;

begin

   // в цикле последовательно перебираем значения Х из заданного интервала от LoX до HiX

   for x:= LoX to HiX do begin

       // здесь выбираем два варианта расчета функции:

       // если (if) Х > 3, то (then) подставляем Х в одну функцию,

       // в остальных случаях (else) - в другую

       if x > (-3)

       then fx := ln(x+3)/(x*x+9)

       else fx := (-x)*(-x)-1.1*x+9;

       // выводим на экран, сначала Х, затем значение f(x)

       writeln ('x = ',x,', f(x) = ',fx : 10:5);

   end;

end.

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                          

Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                                

Target OS: Linux for x86-64                                                                                                            

Compiling main.pas                                                                                                                    

Linking a.out                                                                                                                          

19 lines compiled, 0.1 sec                                                                                                            

/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?                                                        

x = -10, f(x) =  120.00000                                                                                                            

x = -9, f(x) =   99.90000                                                                                                              

x = -8, f(x) =   81.80000                                                                                                              

x = -7, f(x) =   65.70000                                                                                                              

x = -6, f(x) =   51.60000                                                                                                              

x = -5, f(x) =   39.50000                                                                                                              

x = -4, f(x) =   29.40000                                                                                                              

x = -3, f(x) =   21.30000                                                                                                              

x = -2, f(x) =    0.00000                                                                                                              

x = -1, f(x) =    0.06931                                                                                                              

x = 0, f(x) =    0.12207                                                                                                              

x = 1, f(x) =    0.13863                                                                                                              

x = 2, f(x) =    0.12380      

x = 3, f(x) =    0.09954                                                                                                              

x = 4, f(x) =    0.07784                                                                                                              

x = 5, f(x) =    0.06116                                                                                                              

x = 6, f(x) =    0.04883                                                                                                              

x = 7, f(x) =    0.03970                                                                                                              

x = 8, f(x) =    0.03285                                                                                                              

x = 9, f(x) =    0.02761                                                                                                              

x = 10, f(x) =    0.02353                                                                                                              

                                                                                                                                     

                                                                                                                                     

...Program finished with exit code 0                                                                                                  

Press ENTER to exit console.        

4,8(88 оценок)
Ответ:
//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.
4,5(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ