PASCALik

Найти строку с наибольшей длинной

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

Program dlina;

var

  F: Text;

  str,tstr: string;

  maxlen,max2,y,n :integer;

Begin

  Assign(F,’D:\pascal\Test.txt’);

  Reset(F);

  tstr:=”;

  maxlen:=0;

  y:=0;

  While not eof(f) do

   Begin

             Readln(f,str);

             y:=y+1;

             if length(str)=maxlen then max2:=maxlen;

      if length(str)>maxlen then

       begin

          maxlen:=length(str);

          tstr:=str;

          n:=y;

       end;

   end;

  if max2=maxlen then Writeln(tstr)

      else write(n);

  close(f);

End.

Теги: наибольший, строка, файл

Ищем в файле слово Begin

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

Program Begin;

var

  F: Text;

  str: string;

Begin

  Assign(F,’D:\pascal\Test.txt’);

  Reset(F);

  b:=false;

  While not eof(f) do

   Begin

             Readln(f,str);

             if pos(’BEGIN’,UpperCase(str))>0 then writeln(str);

   end;

  close(f);

End.

Теги: оператор, процедура, строка, файл, функция, цикл