Turbo Pascal условный оператор

[antishoker]

Скоро сессия, а мне по ознакомительной практике нужно решить задачи, застопорился вот на этой.

Пусть пользователь обладая некоторой суммой денег открыл счет в банке. Банк ежегодно начисляет фиксированный процент. Необходимо написать программу которая рассчитывает величину вклада и выводит эту величину для каждого года до тех пор пока сумма вклада не удвоится.

Я так понял что надо использовать условный оператор.Но не пойму как это реализовать. Намекните хотя бы решение.Саму суть решения.
Кто поможет спасибо огромное.

[Utkin]

Создаешь цикл (while), который будет увеличивать года до тех пор пока указанная сумма не превысит вдвое (а не станет в два раза больше, потому что на это может уйти не целое число лет) стартовую сумму. В ходе цикла начисляешь проценты. Усе, занавес.

[Grag]

Тут нужно использовать цикл с постусловием
Repeat
бла-бла-бла-шоу....
Until {постусловие (пока вклад >=X*2)}

Эдесь Х-первоначальная сумма, а "вклад" - это уже текущая сумма вклада (с %)

[Aronax]

я могу и решение написать если нужно будет, если намекнуть то тут проще всего решать через while или repeat что больше нравится

[Grag]

Мы тоже мОгем, если ТС перечислит удвоенную сумму вклада на наш кошелек!!!

[Neurogenus]

Алгоритм: общая накопленная сумма=общая накопленная сумма+общая накопленная сумма * % банка...

program bank;
uses Crt;
var abo:integer;//деньги абонента
    sum:real;//общая сумма
    pro:integer;//проценты
    year:integer;//года
begin
repeat
Writeln('Введите первоначальную сумму платежа в банк!');
Readln(abo);
if abo=0 then writeln('вы не внесли деньги!');
until abo>0;
repeat
Writeln('Введите установленные банком проценты!');
Readln(pro);
if pro=0 then writeln('банк не выполняет свои обязательства!');
until pro>0;
//по умолчанию
year:=0;
sum:=abo;
while sum<sqr(abo) do begin
sum:=sum+(sum*(pro/100));
inc(year);
Writeln('Год = ',year);
Writeln('Сумма на счету абонента = ',sum);end;
readln;end.

[Grag]

Во, нормально!!! Это ж какие проценты должен начислять банк, чтобы клиент получил квадрат банковского вложения??? Или сколько лет нужно ждать клиенту этой банки???

[Neurogenus]

Log programm:

Сумма 100 Процент - 15% Ожидание - 33 года;
Cумма 1000 Процент - 25% Ожидание - 31 год;
и т.д...

[antishoker]

Спасибо большое. Про repeat совсем забыл
Neurogenus спасибо конечно за готовую, но копировать не буду!Только посмотрю начало решения, потому-что надо самому решать, головой работать.
Всем спасибо!

[antishoker]

Тему можно закрывать.