sos

← →
ANDREI (2004-12-01 14:21) [0]

Привет мастера! Необходимо в цикл repeat _ until вложить еще один такойже цикл (repeat) но при попытке это реализовать приложение сразу зависает. Как этого избежать? Заранее благодарен.

← →
Алхимик © (2004-12-01 14:24) [1]

> но при попытке это реализовать приложение сразу зависает.
> Как этого избежать?

Воспользоваться отладчиком.
Сами по себе вложенные циклы зависания не вызывают.

← →
Amoeba © (2004-12-01 14:26) [2]

Код в студию!

← →
Andrei (2004-12-01 14:44) [3]

например вот так:

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;
repeat
inc(a);
repeat
inc(b);
until a=10;
until b=100;
end;

это к примеру в проге все сложнее, но зависает даже это.

← →
Sphinx (2004-12-01 14:49) [4]

> repeat
> inc(a);
> repeat
> inc(b);
> until a=10;
> until b=100;

Сами внимательно посмотрите что написали :)

> repeat
> inc(b);
> until a=10;

вот и причина зависания...

← →
oxffff (2004-12-01 14:50) [5]

Уважаемый Андрей!

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;

repeat
inc(a); //////// нужно inc(b)

repeat
inc(b); //////// нужно inc(a)
until a=10;

until b=100;
end;

← →
Andrei (2004-12-01 14:53) [6]

Всем огромное спасибо!!!

← →
Andrei (2004-12-01 15:09) [7]

Ребта прошу прощения я ошибся в написании вопроса. Все правильно
я так и пишу:

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;

repeat
inc(b)

repeat
inc(a)
until a=10;

until b=100;
end;

зависает именно это....

← →
Алхимик © (2004-12-01 15:12) [8]

> button1.click(XXXXXXXXXX);
> var a,b:integer;
> begin
> a:=0;
> b:=0;
>
> repeat
> inc(b)
>
> repeat
> inc(a)
> until a=10;
>
> until b=100;
> end;
>
> зависает именно это....

Вот именно это зависать не должно.

← →
Плохиш © (2004-12-01 15:14) [9]

или a,b не integer ;-)

← →
begin...end © (2004-12-01 15:15) [10]

> [8] Алхимик © (01.12.04 15:12)

Должно.

> [7] Andrei (01.12.04 15:09)

Перед вложенным циклом обнуляйте переменную a.

← →
begin...end © (2004-12-01 15:15) [11]

> [8] Алхимик © (01.12.04 15:12)

Должно.

> [7] Andrei (01.12.04 15:09)

Перед вложенным циклом обнуляйте переменную a.

← →
Andrei (2004-12-01 15:17) [13]

>>Вот именно это зависать не должно.
А зависает!!!
>>или a,b не integer ;-)
и a и b сто пудов Integer.

> [13] Andrei (01.12.04 15:17)
> >>Вот именно это зависать не должно.
> А зависает!!!

Вот воспользовался бы отладчиком - не пришлось бы мне краснеть. :)

прав как всегда begin...end © (01.12.04 15:15) [11]
правильно будет
var a,b:integer;
begin
b:=0;
repeat
inc(b)
a:=0;
repeat
inc(a)
until a=10;
until b=100;
end;

← →
Andrei (2004-12-01 15:30) [16]

С П А С И Б О ! ! !

sos Найти похожие ветки