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

File58. Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела, включая и этот пробел.

Решение:

program File58;
var
 S: String;
 F_in,F_out: File of Char;
 C:Char;

begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  Assign(F_out,'~'+S);
  ReWrite(F_out);

  Read(F_in,C);
  while (not eof(F_in)) and (C<>' ') do
   begin
    Write(F_out,C);
    Read(F_in,C);
   end;
   Close(F_out);
   Close(F_in);
   Erase(F_in);
   Rename(F_out,S);
end.

program File58;

var

S: String;

F_in,F_out: File of Char;

C:Char;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Assign(F_out,'~'+S);

ReWrite(F_out);

Read(F_in,C);

while (not eof(F_in)) and (C<>' ') do

begin

Write(F_out,C);

Read(F_in,C);

end;

Close(F_out);

Close(F_in);

Erase(F_in);

Rename(F_out,S);

end.

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

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

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

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