Составить блок-схему

@a_maziar · Регистрация: 24.02.2013

Author24 — интернет-сервис помощи студентам

Pascal

program L1;
uses Crt;
const n=3;
Type Matrix=array[1..n,1..n] of integer;
 
procedure AddMatrix(A,B:Matrix;var C:Matrix);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to n do
  C[i,j]:=A[i,j]+B[i,j];
end;
 
procedure MulMatrix(A,B:Matrix;var C:Matrix);
var i,j,k,Sum:integer;
begin
for i:=1 to n do
 for j:=1 to n do
  begin
  Sum:=0;
   for k:=1 to n do
  Sum:=A[i,k]+B[k,j];
  C[i,j]:=Sum;
 end;
end;
procedure InitMatrix(Var A:Matrix);
var i,j:integer;
begin
Randomize;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(20);
end;
procedure OutMatrix(A:Matrix);
var i,j:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
end;
var a,b,c,d,k:Matrix;
begin
Writeln('-------A--------');
InitMatrix(a);
InitMatrix(b);
InitMatrix(c);
OutMatrix(a);
Writeln('--------B-------');
OutMatrix(b);
Writeln('-------C--------');
OutMatrix(c);
Writeln('-------(A+B)C--------');
AddMatrix(a,b,d);
MulMatrix(d,c,K);
OutMatrix(k);
readln;
end.

	16.03.2013, 10:21