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

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

Решение:

program File60;
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);

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

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

program File60;

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);

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

while (not eof(F_in)) do

begin

Read(F_in,C);

Write(F_out,C);

end;

Close(F_out);

Close(F_in);

Erase(F_in);

Rename(F_out,S);

end.

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

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

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

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