Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot. Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot.

Умножение матриц (Турбо Паскаль) программа

07 февраля 2013, 17:30

Код программы на pascal, умножение массивов

uses crt;
const Strok=3;
      Stolb=Strok;
var
A: array[1..Strok,1..Stolb] of integer;
B: array[1..Strok,1..Stolb] of integer;
C:  array[1..Strok,1..Stolb] of integer;
i,j,n,m,l,r,s,k:integer;
begin
clrscr;
randomize;
writeln(' matrica1:');
for i:=1 to Strok do
begin
for j:=1 to Stolb do
begin
a[i,j]:=Random(9);
write(a[i,j]:2,' ');
end;
writeln;
end;
writeln(' matrica2:');
for n:=1 to Strok do
begin
for m:=1 to Stolb do
begin
b[n,m]:=Random(9);
write(b[n,m]:2,' ');
end;
writeln;
end;
readln;
for i:=1 to Strok do
begin
for j:=1 to Stolb do
for n:=1 to Strok do
begin
for m:=1 to Stolb do
begin
s:=0;
for k:=1 to 3 do
s:=s+A[i,k]*B[k,j];
C[i,j]:=s;
end;
writeln;
end;
end;
writeln('matrica1*matrica2=');
for i:=1 to Strok do
begin
for j:=1 to Stolb do
begin
write(c[i,j]:2,' ');
end;
writeln;
end;
readln;
end.

Умножение матриц (Турбо Паскаль) программа