Автор: asdfg

asdfg — Mon, 09 Aug 2021 19:10:28 +0000

тоже самое только через массивы-матрицы:

var
  sa, sb, sc: string;
  fa, fb, fc: file of real;
  r, sum: real;
  i, j, ma, mb, x: integer;
  a1, a2: array [1..6, 1..6] of real;

begin
  readln(sa);
  readln(sb);
  readln(sc);
  assign(fa, sa);
  assign(fb, sb);
  assign(fc, sc);
  reset(fa);
  reset(fb);
  rewrite(fc);
  ma := trunc(sqrt(filesize(fa)));
  mb := trunc(sqrt(filesize(fb)));
  if filesize(fa) <> filesize(fb) then halt;
  
  for i := 1 to ma do
    for j := 1 to ma do
    begin
      read(fa, r);
      a1[i, j] := r
    end;
  
  for i := 1 to ma do
    for j := 1 to ma do
    begin
      read(fb, r);
      a2[i, j] := r
    end;
  
  
  for i := 1 to ma do
  begin
    for j := 1 to ma do
    begin
      sum := 0;
      for x := 1 to ma do
        sum := sum + a1[i, x] * a2[x, j];
      write(fc, sum);
    end;
    
  end;
  
  reset(fc);
  for i := 1 to filesize(fc) do
  begin
    read(fc, r);
    write(r:1:2, ' ');
  end;
end.

var

sa, sb, sc: string;

fa, fb, fc: file of real;

r, sum: real;

i, j, ma, mb, x: integer;

a1, a2: array [1..6, 1..6] of real;

begin

readln(sa);

readln(sb);

readln(sc);

assign(fa, sa);

assign(fb, sb);

assign(fc, sc);

reset(fa);

reset(fb);

rewrite(fc);

ma := trunc(sqrt(filesize(fa)));

mb := trunc(sqrt(filesize(fb)));

if filesize(fa) <> filesize(fb) then halt;

for i := 1 to ma do

for j := 1 to ma do

begin

read(fa, r);

a1[i, j] := r

end;

for i := 1 to ma do

for j := 1 to ma do

begin

read(fb, r);

a2[i, j] := r

end;

for i := 1 to ma do

begin

for j := 1 to ma do

begin

sum := 0;

for x := 1 to ma do

sum := sum + a1[i, x] * a2[x, j];

write(fc, sum);

end;

reset(fc);

for i := 1 to filesize(fc) do

begin

read(fc, r);

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

end;

end.

Автор: asdfg

asdfg — Mon, 09 Aug 2021 17:38:51 +0000

Выдаёт неверные решения потому что в строке

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

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

надо умножать а не складывать числа

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

Автор: asdfg

Автор: asdfg