forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   label (http://forum.boolean.name/showthread.php?t=4550)

Aluk 24.09.2007 13:16

label
 
Естб ли в мидлет паскаль такая фишка как на паскале???как организовать это дело?

Frank 24.09.2007 15:33

Re: label
 
В мидлет паскале этой фишки нет. Юзай процедуры и функции...

Dj_smart 24.12.2009 18:13

Ответ: label
 
А если кроме как label другого выхода нет? Как обойти например?
Необходимо осуществить немедленный выход из множества рекурсивных функций, вызывающих друг друга)

_Nox_ 24.12.2009 20:00

Ответ: label
 
Можно например сделать так:

program test;
var p:boolean;
procedure rec (a:integer; var p:boolean);
begin
if p then exit;
{ну тут какой-то оператор}
a:=a+1;
{тут параметр выхода}
if a > 100 then p:=true;
rec (a,p);
end;

begin
p:=false;
reC (1,p);
end.

abcdef 25.12.2009 12:24

Ответ: label
 
здесь уже предлагали
repeat
...
if a=1 then break; //пропустить нижележащий участок
...
if a=2 then break; //пропустить ...
...
...
until true;

baton4ik 26.12.2009 13:46

Ответ: label
 
надо бы метки и ГоТо в 3й версии добавить!


Часовой пояс GMT +4, время: 18:16.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot