Помогите оформить выход из вечного цикла на Pascal

[Sly_tom_cat]

Εὐφροσύνη, у вас по коду выход из цикла внутри него. Это классически делается по brake.

goto - муветон в паскале.

[Γιος Ιάφεθ]

Код: [Выделить]

while 0=0 do
  begin
    repeat
      write('N: ');
      readln(n);
    until
      (n>1)and(n<=500000);
    if n = 0 then break;


Тогда так:

while 0=0 do   begin     repeat       write('N: ');       readln(n);     until       (n>=0)and(n<=500000);     if n = 0 then break;

А то 0 не удовлетворяет условиям вложенного цикла и из него 0 Никогда не выйдет
А то у вас

Ругается


1)[Error] Project2.dpr(17): BREAK or CONTINUE outside of loop
2)[Error] Project2.dpr(18): 'END' expected but 'UNTIL' found
3)[Error] Project2.dpr(20): Missing operator or semicolon
4)[Error] Project2.dpr(20): Missing operator or semicolon
5)[Error] Project2.dpr(38): '.' expected but ';' found

[rapidsp]

Ругается

Ну так begin хочет end. Текст ошибки недвусмысленно говорит об этом.
Я бы тоже ругался
Пользователь решил продолжить мысль 12 Февраля 2013, 23:32:23:

goto - муветон в паскале.

Ну break как бы тоже не верх этикета. Имхо любой цикл можно построить и без него.

[Γιος Ιάφεθ]

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

[SergeyIT]

Εὐφροσύνη,
Ты с такой скоростью пишешь в двух темах, даже не задумываясь... может тормознешь и подумаешь?

[rapidsp]

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

У тебя два цикла. Который внешний не закрыт.

[Sly_tom_cat]

Я бы так написал (не гарантирую точность синтаксиса - я на паскале уже лет 20 не писал....):

Код: [Выделить]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..500000]of longword;
  i,j,k,n:integer;
  cont:boolean;
  ans:string;
begin
  cont:=true;
  while cont do
    begin
      repeat
        write('N: ');
        readln(n);
      until (n>1)and(n<=500000);
      repeat
        write('K: ');
        readln(k);
      until (k>0)and(k<=100000);
      for i:=1 to n do
        a:=i;
      i:=0;
      repeat
        i:=(i+k-1)mod n+1;
        for j:=i to n-1 do
          a[j]:=a[j+1];
        dec(n);
        dec(i);
      until n=1;
      writeln('You must be number ',a[1], ' to survive');
    readln('Do you want to repeat (y/n)',ans);
    if ans='n' then cont:=false;
  end;
end.


PS правильные отступы помогают следить соотвествеи открытия и закрытия секций. И пишите условия until и while сразу за ключевым словом - так нагляднее.

[Γιος Ιάφεθ]

Все, всем спасибо, заработало.

Код: [Выделить]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..500000]of longword;
  i,j,k,n:integer;
begin
  while 0=0 do
  begin
    repeat
      write('N: ');
      readln(n);
    until
      (n>=0)and(n<=500000);
    if n = 0 then break;
    repeat
      write('K: ');
      readln(k);
    until
    (k>0)and(k<=100000);
    for i:=1 to n do
        a[i]:=i;
    i:=0;
    repeat
      i:=(i+k-1)mod n+1;
      for j:=i to n-1 do
        a[j]:=a[j+1];
      dec(n);
      dec(i);
    until
      n=1;
    writeln('You must be number ',a[1], ' to survive');
readln
end;
end.


[Señor_Gaga]

Проще так

Код: [Выделить]

n := 2;
while (n>1)and(n<=500000) do
begin
    write('N: ');
    readln(n);
    if n = 0 then break;
end;