Записать в новый файл все слова, начинающиеся с определенной буквы - Turbo Pascal

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

Дан текстовый файл с текстом не менее 15 строк. Записать в новый файл все слова, начинающиеся с определенной буквы. Буква вводится по запросу пользователя.


textual

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

Var f,g:text;
    s,st:string;
    k:byte;
    ch:char;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    write('Буква: ');readln(ch);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';k:=0;
      While Pos(' ',s)>0 do
      Begin
        st:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if st<>'' then
         if st[1]=ch then 
         Begin
           write(g,st+' ');
           inc(k);
         End;
      End;
      if k>0 then writeln(g);
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.
Эта работа вам не подошла?

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


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

7   голосов, оценка 3.857 из 5

Источник