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

File76. Даны два файла вещественных чисел с именами $$S_A$$ и $$S_B$$, содержащие элементы квадратных матриц $$A$$ и $$B$$ (по строкам). Создать новый файл с именем $$S_C$$, содержащий элементы произведения $$A*B$$. Если матрицы $$A$$ и $$B$$ нельзя перемножать, то оставить файл $$S_C$$ пустым.

Решение:

program File76;
var
 F_in_A, F_in_B, F_out: file of Real;
 RezCell:Real;
 I,J,i2,k,lenA,lenB:integer;
 SA,SB,SC:String;

Function LenFile(Name:String):integer;
var
  len:integer;
  F: file of Real;
  Cell:Real;
begin
 Assign(F,Name);
 Reset(F);
 len:=0;
 While (not eof(F)) do
  begin
   Read(F,Cell);
   inc(len);
  end;
 Close(F);
 len:=trunc(sqrt(len));
 LenFile:=len;
end;

Function GetCell(Name:String;len,i,j:integer):Real;
var
  F: file of Real;
  i2:integer;
  Cell:Real;
begin
  Assign(F,Name);
  Reset(F);
  for i2:=1 to len*(i-1)+j do Read(F,Cell);
  Close(F);
  GetCell:=Cell;
end;

begin
 Write('SA: ');
 Readln(SA);

 Write('SB: ');
 Readln(SB);

 Write('SC: ');
 Readln(SC);

 LenA:=LenFile(SA);
 LenB:=LenFile(SB);


 Assign(F_out,SC);
 ReWrite(F_out);

 if lenA = LenB then
  for i:=1 to lenA do
   for j:=1 to lenB do
    begin
     RezCell:=0;
     for k:=1 to LenA do RezCell:=RezCell+GetCell(SA,LenA,I,K)+GetCell(SB,LenB,K,J);
     Write(F_out,RezCell);
    end;
 Close(F_out);
end.

program File76;

var

F_in_A, F_in_B, F_out: file of Real;

RezCell:Real;

I,J,i2,k,lenA,lenB:integer;

SA,SB,SC:String;

Function LenFile(Name:String):integer;

var

len:integer;

F: file of Real;

Cell:Real;

begin

Assign(F,Name);

Reset(F);

len:=0;

While (not eof(F)) do

begin

Read(F,Cell);

inc(len);

end;

Close(F);

len:=trunc(sqrt(len));

LenFile:=len;

end;

Function GetCell(Name:String;len,i,j:integer):Real;

var

F: file of Real;

i2:integer;

Cell:Real;

begin

Assign(F,Name);

Reset(F);

for i2:=1 to len*(i-1)+j do Read(F,Cell);

Close(F);

GetCell:=Cell;

end;

begin

Write('SA: ');

Readln(SA);

Write('SB: ');

Readln(SB);

Write('SC: ');

Readln(SC);

LenA:=LenFile(SA);

LenB:=LenFile(SB);

Assign(F_out,SC);

ReWrite(F_out);

if lenA = LenB then

for i:=1 to lenA do

for j:=1 to lenB do

begin

RezCell:=0;

for k:=1 to LenA do RezCell:=RezCell+GetCell(SA,LenA,I,K)+GetCell(SB,LenB,K,J);

Write(F_out,RezCell);

end;

Close(F_out);

end.

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

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

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

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

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