Решаем задачи Абрамян на Паскале. Text29

Text29. Дан текстовый файл. Вывести первое слово текста наибольшей длины. Словом считать набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки.

Решение:

program Text29;
var
  F: Text;
  Name,S,Word: string;

begin
 Write('File name: ');
 Readln(Name);

 Assign(F,Name);

 Reset(F);
 Word:='';
 While not eof(F) do
  begin
   Readln(F,S);
   While (pos(' ',S)<>0) do
    begin
     if (pos(' ',S)-1)>length(Word) then Word:=Copy(S,1,pos(' ',S)-1)
     Else Delete(S,1,pos(' ',S));
    end;
   if length(S)>length(Word) then Word:=S;
  end;
 Close(F);
 Writeln(Word);
end.

program Text29;

var

F: Text;

Name,S,Word: string;

begin

Write('File name: ');

Readln(Name);

Assign(F,Name);

Reset(F);

Word:='';

While not eof(F) do

begin

Readln(F,S);

While (pos(' ',S)<>0) do

begin

if (pos(' ',S)-1)>length(Word) then Word:=Copy(S,1,pos(' ',S)-1)

Else Delete(S,1,pos(' ',S));

end;

if length(S)>length(Word) then Word:=S;

end;

Close(F);

Writeln(Word);

end.

Другие задачи из раздела Text можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Text29

Комментарии:

Добавить комментарий Отменить ответ