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

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

Решение:

program Text30;
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)) or (length(Word)=0)) and (pos(' ',S)<>1) then Word:=Copy(S,1,pos(' ',S)-1)
     Else Delete(S,1,pos(' ',S));
    end;
   if ((length(S)<length(Word)) or (length(Word)=0)) and (length(S)>0)  then Word:=S;
  end;
 Close(F);
 Writeln(Word);
end.

program Text30;

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)) or (length(Word)=0)) and (pos(' ',S)<>1) then Word:=Copy(S,1,pos(' ',S)-1)

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

end;

if ((length(S)<length(Word)) or (length(Word)=0)) and (length(S)>0) then Word:=S;

end;

Close(F);

Writeln(Word);

end.

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

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

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

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