[Alegun]

Спасибо за совет, но я лучше пойду поработаю немного, нервишки успокою (обед уже был, не помогло правда), а к последнему пункту прислушаюсь объязательно!

[YVitaliy]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

program HelloWorld;  uses     Crt;   Var     otvet:string;     Label L1, L2;     Begin       writeln;       writeln;       writeln;       writeln;       writeln('Ну как, завершим программу?');       readln(otvet);       if otvet='Да, завершим программу' then         GoTo L1;       L1:         Writeln('Вы уверены? (Y/N)');         if ReadKey='y' then           GoTo L2         else         begin           ClrScr;           GoTo L1;         end;         L2:          Writeln('Неее, выходить ещё рано!');          asm          nop        end;       end.

Забавная прога получилась... Кого учителя линейкой по руках за использование меток не били, самое время начать... Не понимаю, че им в метках не нравится?

[angvelem]

Вот теперь пора отправлять на конкурс программ.

[M.A.D.M.A.N.]

Зато мы собрали команду и написали прогу!

[angvelem]

Мда, собрать команду единомышленников всегда трудно, а для написания программ вдвойне.

[Aristarh Dark]

Теперь нужно срочно собрать команду тестеров и протестировать написанную прогу.

[Страдалецъ]

Метки хороши, когда вы в состоянии их увидеть на экране. А вот когда у вас портянка кода хотя-бы в 10-страниц, метки могут запутать так, что не дай боже.
А по коду, вам не кажется, что прога несколько неверно анализирует ответ?

[angvelem]

Также не забываем, что любые переходы: условные (if), циклы (while, repeat, for) по сути используют те же метки (ja, je, jb далее лень перечислять).

[Mrak]

... после года исследований тестер умер от безысходности ...

[Alegun]

Что-то здесь не так, а где собсно заявленный "Hello World"? Это не тот код получился, кириллица не отображается. Вот что с доработкой получилось (и под TP и под делфи)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

program HelloWorld; {$IFDEF MSWINDOWS} {$APPTYPE CONSOLE} {$ENDIF} uses {$IFDEF MSWINDOWS} Windows, SysUtils, CRT32 in 'CRT32.pas'; {$H-} {$ELSE} crt; {$ENDIF}   Var     otvet:string;     Label L1, L2;   begin       Clrscr;       setconsoleCp(866);       Writeln('Hello World!!!');       writeln;       writeln;       writeln;       writeln;       writeln('Ну как, завершим программу?');       readln(otvet);    if otvet='Да, завершим программу' then         GoTo L1;       L1:         Writeln('Вы уверены? (Y/N)');         if ReadKey = 'y' then           GoTo L2         else         begin           ClrScr;           GoTo L1;         end;       L2:          Writeln('Неее, выходить ещё рано!'); end.

На всякий случай, прикладываю CRT32.pas, чтоб не искать.

И всё равно, что-то здесь смущает...

З.Ы. По теме

[angvelem]

Пропустил строку.

Код:

1	SetConsoleOutputCP(866);