for n:=1 to 10 do goto n

← →
Lena19 (2004-02-28 23:46) [0]

всем привет
реально ли на delphi
такую вичу реализовать

for n:=1 to 10 do
goto n

если да то как ето делается ??

← →
YurikGl © (2004-02-28 23:48) [1]

goto куда ... куда ты компилер послала? в переменную он не залезет. Ну если только с большим трудом.

← →
jack128 © (2004-02-28 23:49) [2]

нет. в for n - перечисляемый тип, в goto n - метка.

Только
for n := 1 to 10 do
case n of
1: goto label1;
2: goto label2;
3: goto label3;
4: goto label4;
// и т.д.
end;

← →
Lena19 (2004-02-28 23:50) [3]

я раньше на фокале писала там такие вещи на ура работали если метка цифровая

← →
YurikGl © (2004-02-28 23:53) [4]

Sorry за стеб, но в Pascal имена должны быть уникальными.

← →
uUnknown (2004-02-28 23:55) [5]

Удалено модератором

← →
jack128 © (2004-02-28 23:56) [6]

> я раньше на фокале писала там такие вещи на ура работали
> если метка цифровая
Да... Если там такие вещи позволяют, то мне уже страшно.. Думаю тебе сложно придется, паскаль - "строгий" язык..

← →
uUnknown (2004-02-28 23:58) [7]

Где то я такое видел:

10 FOR I = 100 TO 120 STEP 10
20 GOSUB I
30 NEXT I
100 RETURN
110 RETURN
120 RETURN

← →
Lena19 (2004-02-29 00:01) [8]

TO uUnknown
да ето фокал так оно и есть

← →
Gero © (2004-02-29 00:02) [9]

> реально ли на delphi
> такую вичу реализовать

А зачем? Неужели нельзя обойтись без goto?

← →
YurikGl © (2004-02-29 00:03) [10]

Удалено модератором
Примечание: Оффтоп...

← →
Palladin © (2004-02-29 00:03) [11]

фокал... этож надо так васик обозвать...

← →
YurikGl © (2004-02-29 00:04) [12]

Удалено модератором
Примечание: Оффтоп...

← →
uUnknown (2004-02-29 08:07) [15]

> Lena19 (29.02.04 00:01) [8]

Всегда думал что это Басик %)

uUnknown (28.02.04 23:58) Где то я такое видел: 10 FOR I = 100 TO 120 STEP 10 20 GOSUB I 30 NEXT I 100 RETURN 110 RETURN 120 RETURN

Даже на васике я не представляю как можно использовать GOSUB I. Это же нужно следить чтобы номера строк (метки) всегда соответствовали тому значению i что в проге вычисляется... Извращение... А при Renum что будет?

Разве что можно было юзать нечто такое:
ON I GOSUB 100,110,120

но на паскале это же получается аналогично тому, что jack128 © (28.02.04 23:49) написал....

Через масив процедур

for n:=1 to 10 do goto n Найти похожие ветки