Определить предполагаемый доход предприятия во 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 и выполняет следующие действия:
- Запрашивает у пользователя значения переменных d, b, q и n.
- Выводит на экран заданные значения переменных.
- Повторяет цикл, пока значение переменной p не будет отличным от значения переменной q.
- В цикле вычисляет уменьшение дохода во второй половине срока в процентах и выводит это значение на экран.
- Вычисляет доход в каждый год от 2 до 2n и выводит эти значения на экран.
- Конец программы.