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