Определить предполагаемый доход предприятия - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. Доход предприятия в первый год его существования составил D млн рублей. По прогнозу доход будет расти N лет на B млн рублей ежегодно, а затем ежегодно уменьшаться на р%. Определить предполагаемый доход предприятия во 2, 3,..., 2N-ой годы его существования.

Решение задачи: «Определить предполагаемый доход предприятия»

textual
Листинг программы
var
d:real;
n,b,p,i:integer;
begin
writeln('d=');
readln(d);
writeln('b=');
readln(b);
writeln('n=');
readln(n);
writeln('p=');
readln(p);
for i:=2 to n*2 do
begin
if i<=nthen d:=d+b else d:=d*(100-p)/100;
writeln('god=',i,' dohod=',d);
end;
readln;
end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные: — d типа real (с плавающей точкой), — n, b, p, i типа integer (целые числа).
  2. С помощью функции writeln выводятся сообщения и значения переменных для чтения.
  3. Значение переменной d вычисляется как сумма b, если i меньше или равно n, иначе как произведение d на (100-p)/100.
  4. С помощью цикла for выполняется вычисление для i от 2 до n*2.
  5. В конце каждого цикла выводится значение d.
  6. В конце программы ожидается ввод с клавиатуры для завершения работы программы.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы