Найти оператор цикла с проверкой в конце
07 Сен 2009 | Comments Off | Рубрика » Текстовые файлы
В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Найти, есть ли в программе оператор цикла с проверкой в конце. Если таких операторов несколько, вывести первую строку, которая содержит этот оператор.
Program REPEAT;
var
F: Text;
str,tstr: string;
b:boolean;
Begin
Assign(F,’D:\pascal\Test.txt’);
Reset(F);
tstr:=”;
b:=false;
While not eof(f) do
Begin
Readln(f,str);
if pos(’REPEAT’,UpperCase(str))>0 then {нашли}
if tstr=” then tstr:=str else b:=true;
end;
if not (tstr=”) then write(’Est’);
if b then Write(tstr);
close(f);
End.