Автор: asdfg

asdfg — Tue, 10 Aug 2021 17:44:13 +0000

нет смысла в таком громоздком решении, тут можно всё упростить

 var
 s_in,s_out:string;
 f1,f2:file of real;
 i,j,col,str:integer;
 r:real;
 begin
 readln(s_in);
 assign(f1,s_in);
 readln(s_out);
 assign(f2,s_out);
 reset(f1);
 read(f1,r);
 col:=trunc(r);            {<- вместо процедуры MatrixSize }
 str:=filesize(f1) div col;{<- эти 2 строчки               }
 rewrite(f2);
 write(f2,str);
 for i:=1 to col do 
   For j:=1 to str do
    begin
    seek (f1,col*(j-1)+i); {<-вместо процедуры GetCell эта 1 строчка}
    read(f1,r);
    write(f2,r);
    end;
    reset(f2); // с этой строки идёт проверка результатов 
    for i:=1 to filesize(f2) do // она в задании не требуется
    begin
    read(f2,r);
    write(r:1:2,' ');
    end;
end.

var

s_in,s_out:string;

f1,f2:file of real;

i,j,col,str:integer;

r:real;

begin

readln(s_in);

assign(f1,s_in);

readln(s_out);

assign(f2,s_out);

reset(f1);

read(f1,r);

col:=trunc(r); {<- вместо процедуры MatrixSize }

str:=filesize(f1) div col;{<- эти 2 строчки }

rewrite(f2);

write(f2,str);

for i:=1 to col do

For j:=1 to str do

begin

seek (f1,col*(j-1)+i); {<-вместо процедуры GetCell эта 1 строчка}

read(f1,r);

write(f2,r);

end;

reset(f2); // с этой строки идёт проверка результатов

for i:=1 to filesize(f2) do // она в задании не требуется

begin

read(f2,r);

write(r:1:2,' ');

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. File78

Автор: asdfg