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

Text53. Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле (в том же порядке).

Решение:

program Text53;
var
  F_in: Text;
  F_out: file of Char;
  Name:string;
  C:Char;

begin
 Write('File In name: ');
 Readln(Name);
 Assign(F_in,Name);
 Reset(F_in);

 Write('File Out name: ');
 Readln(Name);
 Assign(F_out,Name);
 Rewrite(F_out);

 While not eof(F_in) do
  begin
   While not eoln(F_in) do
    begin
     Read(F_in,C);
     if (C in ['’','`','[',']','(',')','{','}',':',',','-','!','.','?','"','<','>',';',' ']) then
      Write(F_out,C);
    end;
   Readln(F_in);
  end;

 Close(F_in);
 Close(F_out);
end.

program Text53;

var

F_in: Text;

F_out: file of Char;

Name:string;

C:Char;

begin

Write('File In name: ');

Readln(Name);

Assign(F_in,Name);

Reset(F_in);

Write('File Out name: ');

Readln(Name);

Assign(F_out,Name);

Rewrite(F_out);

While not eof(F_in) do

begin

While not eoln(F_in) do

begin

Read(F_in,C);

if (C in ['’','`','[',']','(',')','{','}',':',',','-','!','.','?','"','<','>',';',' ']) then

Write(F_out,C);

end;

Readln(F_in);

end;

Close(F_in);

Close(F_out);

end.

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

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

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

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