Question

Код в паскаль, много баллов


Человек вложил 100 000 рублей под 4% в месяц. Успеет ли он накопить на машину стоимостью 2 700 000 за 6,5 лет.


С вводом данных с клавиатуры.
И желательно с объяснением

Answer 1

Ответ:

Нет не успеет

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer; {x - деньги на счёте, с - цена автомобиля, p - процентная ставка, y - срок вклада в годах; m - срок вклада в месяцах, i - счётчик цикла}

begin

clrscr; {очистка экрана}

write ('Введите начальную сумму вклада, рублей: ') ;

readln(x);

write ('Введите желаемую сумму накопления, рублей: ') ;

readln(c);

write ('Введите срок накопления, лет: ') ;

readln(y);

m:=round(y*12); {здесь мы срок в годах пересчитыаем в месяцы}

write ('Введите ежемесячно начисляемый процент (%) : ') ;

readln(p); p:=p/100; {здесь из числа процентов получаем десятичную дробь}

for i:=1 to m do

x:=x+x*p; {каждый месяц сумма на вкладе увеличивается на p процентов, причем в каждом следующем месяце происходит капитализация вклада, и процент начисляется на возросшую за предыдущий месяц сумму}

if x<c then write('Вы накопили ',x:6:2,' рублей, это меньше запланнированной суммы в ',c:6:2,' рублей')

else write('Ваша цель по накоплению ',c:6:2,' рублей достигнута: вы накопили ',x:6:2,' рублей') ; {здесь мы сравниваем накопленную за m месяцев сумму с желаемой суммой с и, в зависимости от результата, делаем вывод}

readln;

end.