Найти оператор цикла с параметром

Понедельник, 07 Сен 2009


В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Найти, есть ли в программе оператор цикла с параметром. Если таких операторов несколько, вывести первую строку, которая содержит этот оператор.

 

Program FOR;

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(’FOR’,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.

Рубрика: Текстовые файлы | Comments Off