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

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

Решение:

program File59;
var
 S: String;
 F_in,F_out: File of Char;
 C:Char;
 i,Space:integer;

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

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

  i:=0;
  Space:=0;
  while (not eof(F_in)) do
   begin
    inc(i);
    Read(F_in,C);
    if (C=' ') then Space:=i;
   end;

  Reset(F_in);

  for i:=1 to Space-1 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 File59;

var

S: String;

F_in,F_out: File of Char;

C:Char;

i,Space:integer;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Assign(F_out,'~'+S);

ReWrite(F_out);

i:=0;

Space:=0;

while (not eof(F_in)) do

begin

inc(i);

Read(F_in,C);

if (C=' ') then Space:=i;

end;

Reset(F_in);

for i:=1 to Space-1 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 можно посмотреть здесь.

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

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

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