Goto, отношение Опции

[mamont001]

всегда хотел узнать как кто относится

[SKVOZNJAK]

Было бы интересно привести пример кода, где это оправдано. Но я с ходу пример не приведу..
Может, volvo?..

Ушедшие от нас старожилы форума вспомни ли бы что таковая электронная живность в изобилии водится у Сквозняка
Первый пример. Очистка событий нажатия клавиш и мышки. Ось реально многозадачная, так что события могут подаваться порциями, а размер буфера - вопрос конечно интересный. Обоснование применения гото: зачем красивый код портить, мне за это никто не заплатит

PROCEDURE BUF20(Z3: BYTE); {Ћ—?‘’ЉЂ Ѓ“”…ђЂ Љ‹Ђ‚›}
LABEL 1;
BEGIN
IF Z3<>0 THEN DELAY(Z3*100);
{FOR Z3:=1 TO 20 DO IF KEYPRESSED=TRUE THEN ReadKey;}
1:
SDL_PumpEvents;
if (SDL_PollEvent(event)>0) then begin
                                 CASE event^.eventtype OF
                                 SDL_KEYDOWN, SDL_MOUSEBUTTONDOWN : goto 1;
                                 end;
                                 end;
DELAY(25);
SDL_PumpEvents;
if (SDL_PollEvent(event)>0) then begin
                                 CASE event^.eventtype OF
                                 SDL_KEYDOWN, SDL_MOUSEBUTTONDOWN : goto 1;
                                 end;
                                 end;
END;

Ещё одна процедура из той же проги. Менюшка. Благодаря использованию гото всё уместилось в одну процедуру без дробления. Налицо инкапсуляция данных. Если так использовать goto с case то это уже не совсем уже тот безусловный переход о вреде которого предупреждам минздрав. Код процедуры используется многократно и с разными значениями. Если этот процесс автоматизировать, получим элемент ИИ. Программа сможет делать то, чему программист её не учил. Но результат такого действия не обязательно устроит человека.

PROCEDURE SINJKA; {Њ…Ќћ ‘?ЌњЉ?}
VAR AAA: ARRAY[1..7] OF STRING;
    AA1: STRING;
    Q3,W3,E3,R3,SINIJ,FLAG1,FLAG2: BYTE;
CONST IKS=18; IGREK=10;
LABEL 1,2,3,4,100;
BEGIN
SINIJ:=SINIUK;
AAA[1]:='                                           ';
AAA[2]:='   ЙННННННН ‘?ЌћЉ Ћ„?ЌЌЂ„–Ђ’ЋѓЋ ННННННН»   ';
AAA[3]:='   є                255                є   ';
AAA[4]:='   є                254                є   ';
AAA[5]:='   є                253                є   ';
AAA[6]:='   є                252                є   ';
AAA[7]:='   ИНННННННННННННННННННННННННННННННННННј   ';

E3:=1;
FOR W3:=IGREK TO IGREK+7 DO BEGIN
AA1:=AAA[E3];
R3:=1;
FOR Q3:=IKS TO IKS+ORD(AA1[0])-1 DO BEGIN
                                    BUKVA(Q3,W3,ORD(AA1[R3]),11,1);
                                    INC(R3);
                                    END;
                            INC(E3);
                            IF E3=8 THEN E3:=1;
                            END;
{‚›•Ћ„ ‘?Њ‚Ћ‹Ђ ЌЂ ќЉђЂЌ - ЏЋ‡?–?џ ЏЋ
ѓЋђ?‡ЋЌ’Ђ‹?, ‚…ђ’?ЉЂ‹?, ЌЋЊ…ђ ‘?Њ‚Ћ‹Ђ, –‚…’ ˜ђ?”’Ђ, –‚…’ ”ЋЌЂ}
FLAG1:=1;
FLAG2:=0;

1:
W3:=2+IGREK+(255-SINIJ);
AA1:=AAA[3+(255-SINIJ)];
R3:=5;
FOR Q3:=IKS+4 TO IKS+ORD(AA1[0])-5 DO BEGIN
                                      IF FLAG1=1 THEN
                                      BUKVA(Q3,W3,ORD(AA1[R3]),10,0) ELSE
                                      BUKVA(Q3,W3,ORD(AA1[R3]),11,1);
                                      INC(R3);
                                      END;
SDL_UpdateRect (screen,0,0,0,0);
CASE FLAG2 OF
3: BEGIN FLAG2:=0; GOTO 3; END;
4: BEGIN FLAG2:=0; GOTO 4; END;
END;

BUF20(1);
2:
SDL_PumpEvents;
if (SDL_PollEvent(event) > 0) then
begin
CASE event^.eventtype OF
SDL_MOUSEBUTTONDOWN : goto 100;
SDL_KEYDOWN: CASE EVENT^.KEY.keysym.SYM OF
        SDLK_ESCAPE: GOTO 100;
        SDLK_UP: BEGIN
                 FLAG1:=2;
                 FLAG2:=3;
                 GOTO 1;
3:               FLAG1:=1;
                 IF SINIJ<>255 THEN INC(SINIJ);
                 GOTO 1;
                 END;
        SDLK_DOWN: BEGIN
                   FLAG1:=2;
                   FLAG2:=4;
                   GOTO 1;
4:                 FLAG1:=1;
                   IF SINIJ<>252 THEN DEC(SINIJ);
                   GOTO 1;
                   END;
        SDLK_KP_ENTER,SDLK_RETURN: BEGIN
                       SINIUK:=SINIJ;
                       CVET16[11]:=SDL_MapRGB(screen^.format,KRASNIUK,84,SINIUK);
                       GOTO 100;
                                   END;
        END;
END;
END;
GOTO 2;
100:
END;

И третье, самое козырное обоснование. История использования гото насчитывает не одну сотню лет. Даже не знавшие письменности крестьяне смогли осознать его необходимость. Вспомните: приехал Илья Муромец к камню, прочитал надпись, поехал по первому адресу, совершил действие, вернулся, прочитал другую надпись и т. д. Налицо структура:

5:
case A of
1: goto 1;
2: goto 2;
3: goto 3;
4: goto 4;
end;

1:
A:=2;
.............
goto 5;
2:
A:=3;
.............
goto 5;
3:
A:=4;
.............
goto 5;
4:
............

Нигилистам математически доказавшим ненужность этого оператора ответ простой GOTO 0