Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого - Turbo Pascal

Формулировка задачи:

дан текстовый файл. сформировать второй файл, куда поместить все слова, имеющие заданную длину


textual

Код к задаче: «Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого - Turbo Pascal»

Const mn=[' ',',','.','?','!'];
Var f,g:text;
    s,st:string;
    i,len:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    write('Введите длину: ');readln(len);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';st:='';
      For i:=1 to Length(s) do
       if not(s[i] in mn) then st:=st+s[i]
       else
       Begin
         if Length(st)=len then writeln(g,st);
         st:='';
       End;
     End;
     writeln('Результат в файле "out.txt"');
     Close(f);Close(g);
     readln;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5

Источник
Похожие ответы