Дано целое число K и текстовый файл. Создать файл и записать в него ве слова длины K из исходного файла. Словом считать набор символов, не содержащий пробелов, знаков препинания и ораниченный пробелами, знаками пепинания или началом/концом строки. Если исходный файл не содержит слов длины K, то оставить результирующий файл пустым.
я сделал такую программу..
var
f,t:text;
k,sh,I,sl,chet:integer;
c:char;
d:string[5];
s:string;
begin
assign(f,’c:/b.txt’);
assign(t,’c:/t/.txt’);
rewrite(t);
reset(f);
while not eof do
begin
i:=1;
readln(f,s);
while i<=length(s) do
begin
if (s[i]<>’_’) and (s[i]<>’.’) and (s[i]<>’,’) and (s[i]<>’!’) and (s[i]<>’?’) and (s[i]<>’:’) then d:=d+s[i];
while (s[i]<>’_’) and (i<=length(s)) and (s[i]<>’.’) and (s[i]<>’,’) and (s[i]<>’!’) and (s[i]<>’?’) and (s[i]<>’:’) do
begin
inc(i);
d:=d+s[i];
chet:=chet+1;
end;
if chet=5 then writeln(t,d);
d:=’’;
chet:=0;
inc(i);
end;
end;
const signs:set of char=['.' , ',' , ':' , и т.д.];
if not s[i] in signs then ...
var
Separators: set of char;
...
Separators:=[' ',',','.'] {добавь, что нужно}
...
if not (s[i] in Separators) then ...
AlphaNum:=['A'..'Z']+['a'..'z']+['0'..'9']