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

File88. Дан файл вещественных чисел, содержащий ненулевую часть трехдиагональной матрицы (по строкам). Создать новый файл, содержащий все элементы данной матрицы (по строкам).

Решение:

program File88;
var
  F_in,F_out: file of Real;
  len,i,j,i2,j2:integer;
  Cell:Real;
  Name:String;

begin
 Write('File In: ');
 Readln(Name);
 Assign(F_in,Name);

 Write('File out: ');
 Readln(Name);
 Assign(F_out,Name);

 Reset(F_in);
 len:=0;
 While (not eof(F_in)) do
  begin
   Read(F_in,Cell);
   inc(len);
  end;
 Close(F_in);


 len:=2+((len-4) div 3);
 writeln(len);

 Reset(F_in);
 Rewrite(F_out);
 i2:=1;
 J2:=0;
 While not eof(F_in) do
  begin
   inc(j2);
   Read(F_in,Cell);
   Write(F_out,Cell);
   if J2=i2+1 then
    begin
     Cell:=0;
     for J2:=1 to len-2 do Write(F_out,Cell);
     J2:=I2-1;
     inc(i2);
    end;
  end;
 Close(F_in);
 Close(F_out);
end.

program File88;

var

F_in,F_out: file of Real;

len,i,j,i2,j2:integer;

Cell:Real;

Name:String;

begin

Write('File In: ');

Readln(Name);

Assign(F_in,Name);

Write('File out: ');

Readln(Name);

Assign(F_out,Name);

Reset(F_in);

len:=0;

While (not eof(F_in)) do

begin

Read(F_in,Cell);

inc(len);

end;

Close(F_in);

len:=2+((len-4) div 3);

writeln(len);

Reset(F_in);

Rewrite(F_out);

i2:=1;

J2:=0;

While not eof(F_in) do

begin

inc(j2);

Read(F_in,Cell);

Write(F_out,Cell);

if J2=i2+1 then

begin

Cell:=0;

for J2:=1 to len-2 do Write(F_out,Cell);

J2:=I2-1;

inc(i2);

end;

Close(F_in);

Close(F_out);

end.

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

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

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

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