движение автомобиля - проблемы с условием завершения цикла repeat в Delphi

[Artem_host]

начав движение авто в первую минуту проехал 15м.каждую минуту он увеличивает скорость на 10% а тобиш на 1.5 м скока он предет за полчаса
вот код
var v:real;
begin
v:=15;
repeat
v:=v*1.5
until.... у меня проблемы с услвием завершения цикла

[Кольша]

var v:real;
i:integer;
begin
v:=15;
i:=1;
repeat
v:=v*1.5;
i:=i+1;
until i=30;
showmessage(inttostr(i));

помог нажмите на весы нет на треугольник

[Artem_host]

а как связаны переменные v и i

[Кольша]

ой там в последней строке должно быть v. i-это кол-во минут типа

[phomm]

Как можно писать код не разобрав задачи ? Не первый уже от Вас, тов. Кольша, код, который только запутывает и неверный, естественно.

Скорость увеличивается на 10 % каждую минуту, а Вы написали (точнее списали у ТС) что скорость увеличивается в полтора раза. Правильно будет умножать на 1.1 а не 1.5
Потом написано каждую минуту увеличивает скорость, и хотя не совсем понятно (не указано точно) надо ли увеличивать скорость для первой минуты, всё же логичнее начинать увеличивать со второй минуты, соответственно инициализировать i := 2;

Ну и последнее, просто шик ) найти надо не конечную скорость, тов. Кольша, а расстояние, т.е. в итоге надо написать

var
s, v: extended;
i: integer;
...
begin
v := 15;
s := 15;
i := 2;
repeat
v := v * 1.1;
s := s + v;
i := i + 1;
until i = 30;
showmessage(FLOATtostr(s) + 'метров');

Автомобиль едущий медленнее 2-летнего ползающего ребёнка (который за минуту может легко нарезать по квартире 20 метров) - просто ЖыЖжОт ))
И какой только [цензура] придумывает задачи для нынешних школьников (если же это студенческая задача, то вообще караул)

[VinDiz]

[QUOTE=Кольша;976277]

var v:real;
i:integer;
begin
v:=15;
i:=1;
repeat
v:=v*1.5;
i:=i+1;
until i=30;
showmessage(inttostr(i));

ну і идет как счетчик

[Кольша]

phomm,бывает,просто делфи иногда лень запускатть.