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

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


textual

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

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



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.