[Alegun]

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

[YVitaliy]

Код:

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 и под делфи)

Код:

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]

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

Код:

  SetConsoleOutputCP(866);