Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 24.09.2007, 13:16   #1
Aluk
AnyKey`щик
 
Регистрация: 22.09.2007
Сообщений: 11
Написано 0 полезных сообщений
(для 0 пользователей)
label

Естб ли в мидлет паскаль такая фишка как на паскале???как организовать это дело?
(Offline)
 
Ответить с цитированием
Старый 24.09.2007, 15:33   #2
Frank
Нуждающийся
 
Аватар для Frank
 
Регистрация: 22.07.2006
Сообщений: 50
Написано 6 полезных сообщений
(для 19 пользователей)
Re: label

В мидлет паскале этой фишки нет. Юзай процедуры и функции...
(Offline)
 
Ответить с цитированием
Старый 24.12.2009, 18:13   #3
Dj_smart
AnyKey`щик
 
Регистрация: 28.11.2008
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: label

А если кроме как label другого выхода нет? Как обойти например?
Необходимо осуществить немедленный выход из множества рекурсивных функций, вызывающих друг друга)
(Offline)
 
Ответить с цитированием
Старый 24.12.2009, 20:00   #4
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: 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.
(Offline)
 
Ответить с цитированием
Старый 25.12.2009, 12:24   #5
abcdef
Знающий
 
Регистрация: 16.09.2008
Сообщений: 299
Написано 71 полезных сообщений
(для 123 пользователей)
Ответ: label

здесь уже предлагали
repeat
...
if a=1 then break; //пропустить нижележащий участок
...
if a=2 then break; //пропустить ...
...
...
until true;
(Offline)
 
Ответить с цитированием
Старый 26.12.2009, 13:46   #6
baton4ik
Дэвелопер
 
Аватар для baton4ik
 
Регистрация: 21.11.2009
Адрес: Киев
Сообщений: 1,699
Написано 657 полезных сообщений
(для 1,962 пользователей)
Ответ: label

надо бы метки и ГоТо в 3й версии добавить!
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com