| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Функции и процедуры [D7, XP]

Tar ©   (2007-03-05 07:14:00) 

Приветствую всех! Мне нужна функция, обеспечивающая повтор обработки определенного участка кода, т.е. не циклы типа "while","repeat", а именно такая функция (по моему, есть такая встроенная функция/процедура), которая обеспечивает выполнение определённого участка кода, помогите пожалуйста.

---

Elen   (2007-03-05 08:39:00) [1]

> SlymRO ©   (05.03.07 08:37) [9]

Вы ему еще и про рекурсию раскажите. Так для отчетности :)

---

SlymRO   (2007-03-05 08:37:00) [2]

ЮЮ ©   (05.03.07 8:32) [7]
Тогда goto не устроит и подавно
Можно канечна и так:
program Project1;
{$APPTYPE CONSOLE}
procedure Loop;
begin
 writeln('Loop')
 Loop;
end;
Loop;
end.
тока оверфлоу замучает

---

Квэнди   (2007-03-05 08:36:00) [3]

за Goto надо руки отрывать =)

---

ЮЮ   (2007-03-05 08:32:00) [4]

> Скорее всего циклы не устраивают его преподавателя :)


Тогда goto не устроит и подавно :)

---

Elen   (2007-03-05 08:25:00) [5]

> А чем тебя цикл не устраивает?

Скорее всего циклы не устраивают его преподавателя :)

---

MBo   (2007-03-05 08:17:00) [6]

А чем тебя цикл не устраивает?

---

Tar   (2007-03-05 07:27:00) [7]

Благодарствую

---

SlymRO   (2007-03-05 07:24:00) [8]

program Project1;
{$APPTYPE CONSOLE}
label label1;
begin
label1:
 writeln('label1');
goto label1;
end.


---

Tar   (2007-03-05 07:22:00) [9]

Да, именно эта процедура мне была нужна, а подскажите оформление пожалуйста.

---

SlymRO   (2007-03-05 07:15:00) [10]

:label
goto label;
:)

---

Наверх