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