Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число - Pascal ABC

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

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

Уважаемые программисты, помогите пожалуйста решить ряд задач: 3)Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей. Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. заранее спасибо!

Решение задачи: «Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число»

textual
Листинг программы
var
     x,p,y:real; k:integer;
begin
     write('Введите сумму вклада: ');
     readln(x);
     write('Введите процентную ставку: ');
     readln(p);
     write('Введите итоговую сумму (для сравнения?): ');
     readln(y);
     repeat
          x:=trunc(x+(x*(p/100)));
          inc(k);
     until x>=y;
     write('Через ',k,' лет(год?).');
end.

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

  1. В первой строке объявляются три переменные типа real: x, p, y. Переменная k инициализируется значением integer.
  2. В следующей последовательности строк программа выводит сообщения и считывает значения переменных x, p, y с помощью функции readln.
  3. Далее используется цикл repeat-until для нахождения количества лет, необходимых для достижения заданной суммы вклада. Внутри цикла значение переменной x обновляется с учетом процентной ставки, а переменная k увеличивается на единицу после каждой итерации. Цикл продолжается до тех пор, пока значение x не станет больше или равным значению y.
  4. В последней строке программы выводится сообщение с количеством лет, необходимых для достижения заданной суммы вклада.

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

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