Найти оператор цикла с предусловием
07 Сен 2009 | Comments Off | Рубрика » Текстовые файлы
В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Узнать, есть ли в программе оператор цикла с предусловием. Если таких операторов несколько, то вывести первую строку, которая содержит этот оператор.
Program WHILE;
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(’WHILE’,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.
Теги: оператор, предусловие, строка, файл, цикл