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

[Γιος Ιάφεθ]

Собственно, сабж - Задача Иосифа Флавия.

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

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>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
end;
end.



В ней оформлен вечный цикл, и надо сделать выход по нулю в поле N (т.е., если N=0, выйти из программы). Не знаю, как оформит, ибо N уже находится в цикле рипит-антила. Помогите, пожалуйста.

[hippi90]

Используйте тег [сode]

[Γιος Ιάφεθ]

Использовал

[ZwS]

обьяви еще одну переменную булевого типа и присвой ей true. 0=0 замени на имя_переменной = true. при выполнении нужного тебе условия меняй значение переменной на false.

[hippi90]

обьяви еще одну переменную булевого типа и присвой ей true. 0=0 замени на имя_переменной = true. при выполнении нужного тебе условия меняй значение переменной на false.

Если пользователь введет 0, цикл всё равно выполнится до конца. Здесь надо использовать оператор break:

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

while 0=0 do
  begin
    repeat
      write('N: ');
      readln(n);
    until
      (n>1)and(n<=500000);
    if n = 0 then break;
Можно, конечно, использовать оператор безусловного перехода, но это заставляет дедушку Вирта плакать кровавыми слезами.

[Γιος Ιάφεθ]

обьяви еще одну переменную булевого типа и присвой ей true. 0=0 замени на имя_переменной = true. при выполнении нужного тебе условия меняй значение переменной на false.

Если пользователь введет 0, цикл всё равно выполнится до конца. Здесь надо использовать оператор break:

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

while 0=0 do
  begin
    repeat
      write('N: ');
      readln(n);
    until
      (n>1)and(n<=500000);
    if n = 0 then break;
Можно, конечно, использовать оператор безусловного перехода, но это заставляет дедушку Вирта плакать кровавыми слезами.

По нулю не выходит, я так пробовал. Принимает этот ноль, просит ввести k

[hippi90]

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

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);
      if n = 0 then break;
    until
      (n>1)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:=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.
Так выходит. Можно сделать с метками, использовать goto для выхода из множественного цикла вполне распространенная практика.

[Γιος Ιάφεθ]

  until
    (k>0)and(k<=100000);
    for i:=1 to n do
        a:=i;




Ругается на a:=i; Говорит, что [Error] Project2.dpr(26): Incompatible types: 'Array' and 'Integer'

[SergeyIT]

Εὐφροσύνη,
Где вы такое взяли  while 0=0 do ?
Не проще   while true do

[Γιος Ιάφεθ]

Εὐφροσύνη,
Где вы такое взяли  while 0=0 do ?
Не проще   while true do

Мне как-то проще...

[hippi90]

  until
    (k>0)and(k<=100000);
    for i:=1 to n do
        a:=i;




Ругается на a:=i; Говорит, что [Error] Project2.dpr(26): Incompatible types: 'Array' and 'Integer'

Ну это уже вы писали, не знаю, что вы этим хотели сказать, но тут массиву присваивается целое число, поэтому и ругается. Наверное, здесь предполагается a:=i

[Señor_Gaga]

Очень странный код

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

repeat
      write('N: ');
      readln(n);
    until
      (n>1)and(n<=500000);


Вводить с клавиатуры полмиллиона чисел??

[SergeyIT]

Εὐφροσύνη,
А не проще почитать о паскале, а потом писать программы...

[Sly_tom_cat]

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

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 Никогда не выйдет
А то у вас

[Γιος Ιάφεθ]

Так из вашего же кода взято, там, где

Так выходит. Можно сделать с метками, использовать goto для выхода из множественного цикла вполне распространенная практика.

Пользователь решил продолжить мысль 12 Февраля 2013, 23:19:37:

Очень странный код

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

repeat
      write('N: ');
      readln(n);
    until
      (n>1)and(n<=500000);


Вводить с клавиатуры полмиллиона чисел??

Число, меньшее или равное полмиллиона