freepascal.ru

Добавлено: **08.03.2013 14:34:37**

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

Добавлено: **08.03.2013 15:31:48**

Рустам26, Goto

Добавлено: **08.03.2013 17:30:34**

Спасибо

Добавлено: **08.03.2013 17:42:41**

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

Добавлено: **08.03.2013 18:02:40**

получилось

Код: Выделить всё: 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.

Добавлено: **08.03.2013 19:32:06**

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

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

Добавлено: **08.03.2013 19:42:29**

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

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