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

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

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

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

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.

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ