Помогите с прогой.Вклад сочиняет x рублей. Раз в год он увеличивается на p
Помогите с прогой.
Вклад сочиняет x рублей. Раз в год он возрастает на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Обусловьте, через сколько лет вклад составит не наименее y рублей.
Входные данные
Программа получает на вход три естественных числа: x, p, y.
Выходные данные
Программа обязана вывести одно целое число.
Написал:
program u1;
var x,p,y,year:longint;
s: real;
begin
readln (x);
readln (p);
readln (y);
s:=x;
year:=0;
while s begin
while s s:= s+(1+p/100);
year:=year+1;end;
writeln (year);
end.
Не выводит ответ. Помогите отыскать ошибку. Я новичок.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' тут у нас есть переменная percents, которой присваиваются округлые функцией fix проценты (как я знаю, в паскале подобная функция именуется Round)
x = x + percents 'здесь всё понятно - переменной X присваивается она сама и годичные проценты по вкладу
IF x gt;= y THEN 'проверяем, не равен либо не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'заканчиваем программку
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.