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

Param50. Описать процедуру InvertIntFile( $S$ ), меняющую порядок следования элементов файла целого типа с именем $S$ на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами.
Решение:

program Param50;
type
 FileName=String;

var i:integer;
S:FileName;

Procedure InvertIntFile(S:FileName);
var
 F,F_temp: File of Integer;
 len,TempI,i,i2:integer;

begin
 Assign(F,S);
 {$I-}
 Reset(F);
 if IOResult=0 then
  begin
   len:=0;
   while (not eof(F)) do
    begin
     Read(F,TempI);
     inc(len);
    end;
   Close(F);


   if len>1 then
    begin
     Assign(F_temp,'~'+S);
     ReWrite(F_temp);

     for i:=0 to len-1 do
      begin
       Reset(F);
       for i2:=1 to len-i do Read(F,TempI);
       Write(F_temp,TempI);
       Close(F);
      end;
     Close(F_temp);
     Erase(F);
     Rename(F_temp,S);
    end;

  end;
  {$I+}
end;

begin
 for i:=1 to 3 do
  begin
   Write('S: ');
   Readln(S);
   InvertIntFile(S);
  end;
end.

program Param50;

type

FileName=String;

var i:integer;

S:FileName;

Procedure InvertIntFile(S:FileName);

var

F,F_temp: File of Integer;

len,TempI,i,i2:integer;

begin

Assign(F,S);

{$I-}

Reset(F);

if IOResult=0 then

begin

len:=0;

while (not eof(F)) do

begin

Read(F,TempI);

inc(len);

end;

Close(F);

if len>1 then

begin

Assign(F_temp,'~'+S);

ReWrite(F_temp);

for i:=0 to len-1 do

begin

Reset(F);

for i2:=1 to len-i do Read(F,TempI);

Write(F_temp,TempI);

Close(F);

end;

Close(F_temp);

Erase(F);

Rename(F_temp,S);

end;

{$I+}

end;

begin

for i:=1 to 3 do

begin

Write('S: ');

Readln(S);

InvertIntFile(S);

end;

end.

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

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

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

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