Определить, через сколько месяцев размер вклада превысит 1100 рублей - Pascal ABC

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

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

Начальный вклад в банке равен 1000 рублей. Через месяц размер вклада увеличивается на Р процентов от имеющейся суммы (Р – вещественное число, 0<P<25). По данному Р определить, через сколько месяцев размер вклада превысит 1100 рублей, и вывести найденное количество месяцев К (целое число) и итоговый размер вклада S (вещественное число). если можно с объяснением

Решение задачи: «Определить, через сколько месяцев размер вклада превысит 1100 рублей»

textual
Листинг программы
var v,p:real;
    k:integer;
begin
v:=1000;
repeat
write('Введите процент 0<P<25 p= ');
readln(p);
until (p>0)and(p<25);
k:=0;
while v<=1100 do
 begin
  v:=v*(1+p/100);
  writeln(v:0:2);
  k:=k+1;
 end;
write('Число месяцев=',k,' размер вклада=',v:0:2);
end.

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

  1. Создаются переменные v, p и k типа real и integer соответственно.
  2. Вводится начальное значение переменной v равное 1000.
  3. Запускается цикл repeat-until, в котором пользователю предлагается ввести процент от 0 до 25.
  4. Проверяется, что введенный процент находится в указанном диапазоне.
  5. Инициализируется переменная k значением 0.
  6. Запускается цикл while, в котором значение переменной v увеличивается на (v*(1+p/100)) до тех пор, пока оно не превысит 1100.
  7. После каждого увеличения значения переменной v выводится ее текущее значение с точностью до двух знаков после запятой.
  8. После завершения цикла while выводится общее количество месяцев, которое потребовалось для достижения размера вклада равного 1100 рублей.
  9. Выводится сообщение, содержащее количество месяцев и размер вклада.

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

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