Неэквивалентно же!
А эквивалентно с гоуту будет некрасиво.
Модератор: Модераторы
Var
aFine: Boolean = FALSE;
Repeat
If <condition> Then Break;
If <condition> Then Break;
If <condition> Then Break;
If <condition> Then Break;
If <condition> Then aFine := TRUE;
Until TRUE;
If (aFine) Then Goto100()
Else Goto1();
Сквозняк писал(а):http://ru.wikipedia.org/wiki/Модула-2
- Код: Выделить всё
IF Условие THEN
Операторы
ELSIF Условие THEN
Операторы
ELSIF Условие THEN
Операторы
...
ELSE
Операторы
END
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 21