Text31. Дано целое число $$K$$ и текстовый файл. Создать строковый файл и записать в него все слова длины $$K$$ из исходного файла. Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит слов длины K, то оставить результирующий файл пустым.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
program Text30; var F_in,F_out: Text; Name,S,Word: string; K:integer; begin Write('File name in: '); Readln(Name); Assign(F_in,Name); Write('File name out: '); Readln(Name); Assign(F_out,Name); Write('K: '); Readln(K); Reset(F_in); Rewrite(F_out); Word:=''; While not eof(F_in) do begin Readln(F_in,S); While (pos(' ',S)<>0) do begin if pos(' ',S)=k+1 then begin Word:=Copy(S,1,pos(' ',S)-1); Writeln(F_out,Word); Delete(S,1,pos(' ',S)); end Else Delete(S,1,pos(' ',S)); end; if length(S)=k then begin Word:=S; Writeln(F_out,Word); end; end; Close(F_in); Close(F_out); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: