Задача про банк на языке Паскаль

Задача про банк на языке Паскаль

Задача про банк на языке Паскаль. Банк «ЮГИНВЕСТ» начисляет выгодные проценты по вкладам. Напишите программу на языке Паскаль, которая ответит на вопрос: какой станет сумма вклада s, положенная в банк на n лет под определенные проценты p

РЕШЕНИЕ

В этом уроке напишем программу на языке Паскаль, но суть решения задачи будет понятна и на других языках программирования. Введем обозначения:

В переменную n будем записывать срок вклада, в переменную s — сумму вклада, в переменную p — проценты по вкладу. В переменной k организуем счетчик лет вклада. По окончанию цикла в k запишется последнее число, в нашем случае год.

Переменная i необходима для организации цикла. Цикл будет организован по сроку вклада, например, от 1 до 5 лет.

Program bank;//Программа считает накопление вклада в банке
var
  n,i,k:integer;
  s,p:real;
begin
  k:=0;
  write('Введите срок вклада: ');
  read(n);
  write('Введите сумму вклада:');
  read(s);
  write('Введите процент:');
  read(p);
  for i:=1 to n do
    begin
    s:=s+(s*p/100);
    k:=k+1;
    end;
write('За ',k,' лет накопилось = ',s,'рублей'); 
end.

Скомпилированную программу вы можете скачать здесь.