Повтор программы

[Рустам26]

Есть ли такой оператор (или что-то другое), чтобы когда программа закончилась, повторить её заново?

[Лекс Айрин]

Рустам26, Goto

[Рустам26]

Спасибо

[Лекс Айрин]

Рустам26, не за что. Смотри аккуратнее с этим оператором. Иначе программа никогда не завершится.

[Рустам26]

получилось

Код: Выделить всё

program ten;
   label goback;
var  B:array [1..50] of real;
   K,i:integer;
   d:string;
   flag:boolean;
begin
goback:
   write('Размерность массива ');
   readln(K);
   for i:=1 to K do
      begin
         write('B[',i,']=');
         readln(B[i]);
      end;
   i:=1;
   flag:=false;
   while (i<=K) and (flag=false) do
      begin
         if B[i]=10 then flag:=true
         else i:=i+1;
     end;
   if flag=true then
   writeln('Номер первого элемента равного 10',i:5)
   else writeln('Элементов равных 10 нет');
   readln;
   Writeln('Хочешь повторить?');
   Readln (d);
   If d='да' then
goto goback
   else
end.

[bormant]

Подобное проще делать при помощи цикла repeat until:

Код: Выделить всё

  repeat
    ...
    write('Повторить? [да]/нет '); readln(d);
  until (d <> 'да') and (d <> '');


[Лекс Айрин]

bormant, на самом деле, абсолютно равнозначно.