Определить предполагаемый доход предприятия во 2, 3 .... 2N-й годы его существования - Pascal ABC

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

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

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

Решение задачи: «Определить предполагаемый доход предприятия во 2, 3 .... 2N-й годы его существования»

textual
Листинг программы
var d,b,p,q:real;
    n,i:integer;
begin
write('Доход в первый год d=');
readln(d);
write('Половина периода n=');
readln(n);
write('Увеличение дохода в первый год b=');
readln(b);
write('Снижение увеличения дохода в первые годы в процентах q=');
readln(q);
repeat
write('Уменьшение дохода во второй половине срока в процентах p<>q p=');
readln(p);
until p<>q;
for i:=2 to n do
 begin
  b:=b*(1-q/100);
  d:=d+b;
  writeln(i,' год d=',d:0:2);
 end;
for i:=n+1 to 2*n do
 begin
  d:=d*(1-p/100);
  writeln(i,' год d=',d:0:2);
 end;
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

  1. Запрашивает у пользователя значения переменных d, b, q и n.
  2. Выводит на экран заданные значения переменных.
  3. Повторяет цикл, пока значение переменной p не будет отличным от значения переменной q.
  4. В цикле вычисляет уменьшение дохода во второй половине срока в процентах и выводит это значение на экран.
  5. Вычисляет доход в каждый год от 2 до 2n и выводит эти значения на экран.
  6. Конец программы.

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

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