Последовательность чисел.

[Lumpup]

Последовательно вводятся исходные данные - целые числа. Признак окончания последовательности - число 0, которое само в последовательность не входит. Проверить и вывести на экран, отсортирована ли последовательность в порядке убывания.(без массива)

var a,b : integer; r:boolean;
begin
  r:=true;
  readln(b);
  if b<>0 then
  begin
    repeat
      readln(a);
      if a=0 then break;
      if b<=a then r:=false;
      b:=a;
    until false;
  end else r:=false;
    writeln(r);
end.

Как это сделать без break'а?

[Arigato]

Чем плох break?

Ну а избавиться от него можно, например, так:

var a,b : integer; r:boolean;
begin
  r:=true;
  readln(a);
  b:=high(b);
  while a<>0 do begin
    if b<=a then r:=false;
    b:=a;
    readln(a);
  end;
  writeln(r);
end.

[Lumpup]

Сообщение от Arigato

Чем плох break?

Ну а избавиться от него можно, например, так:

var a,b : integer; r:boolean;
begin
  r:=true;
  readln(a);
  b:=high(b);
  while a<>0 do begin
    if b<=a then r:=false;
    b:=a;
    readln(a);
  end;
  writeln(r);
end.

break не плох, но он запрещён..
Спасибо вам

[Stilet]

break не плох, но он запрещён..

Твой преподаватель случайно не в Роскомнадзоре работает?

[min@y™]

Сообщение от Stilet

Твой преподаватель случайно не в Роскомнадзоре работает?

Судя по заданиям к лабам - половина преподов неадекватные маньяки-педофилы и/или наркоманы-алкаши, дружно сидящие в психушках, в палатах для буйных, под галоперидолом.

[Lumpup]

Сообщение от Arigato

Чем плох break?

Ну а избавиться от него можно, например, так:

  b:=high(b);

Что значит это?

[Arigato]

Максимально возможное число.

[ViktorR]

Осмелюсь предложить слегка модифицированный вариант:

var a,b : integer; fZ, fL:boolean;
begin
  readln(b);
  if b <> 0 then
  begin
     fZ := true;
     fL := true;
  end;
  while (fZ and fL) do
  begin
     readln(a);
     if (a<>0) then
     begin
        if (a > b) then fL := false;
        b := a;   {только если a <> 0}
     end
     else
        fZ := false;
  end;
  writeln(fL);
end.

Код завершает работу сразу при обнаружении нуля или нарушения условия задачи.

Как-то так, ...