Kód: Vybrať všetko

program Sucin_matic;

uses crt;

Type pole=array[1..10,1..10] of integer;

var
 A,B,D : pole;
 I,J,M,N,K,L : integer;

procedure CITAJ (var A : pole);
 begin
  for I:= 1 to M do
  for J:= 1 to N do
   begin
    Writeln('Zadaj ',J,' prvok v ',I,' riadku ');
    Readln(A[I,J]);
   end;
 end;
procedure CITAJ2 (var B : pole);
 begin
  for I:= 1 to K do
  for J:= 1 to L do
   begin
    Writeln('Zadaj ',J,' prvok v ',I,' riadku ');
    Readln(B[I,J]);
   end;
 end;

procedure VYPIS (A : pole);
 begin
  for I:= 1 to M do begin
  for J:= 1 to N do begin
   Write(A[I,J]:4);
   end;
  Writeln;
 end;
 end;
procedure VYPIS2 (B: pole);
 begin
  for I:= 1 to K do begin
  for J:= 1 to L do begin
   Write(B[I,J]:4);
    end;
   writeln;
  end;
  end;

procedure SUCIN (D : pole);
 begin
  for I:=M to K  do begin
  for J:=N to L do begin
   D[I,J]:=(A[I,J])*(B[J,I]);
   write (A[I,J]*B[J,I]:4);
 end;
 writeln;
 end;
 end;

begin
 clrscr;
  Writeln('Zadaj pocet riadkov v 1. matici ');
  Readln(M);
  Writeln('Zadaj pocet stlpcov v 1. matici ');
  Readln(N);
  Writeln('Zadaj pocet riadkov v 2. matici ');
  Readln(K);
  Writeln('Zadaj pocet stlpcov v 2. matici ');
  Readln(L);
  Writeln('Zadaj prvky I. matice ');
  CITAJ(A);
  Writeln('Zadaj prvky II. matice ');
  CITAJ2(B);
 readkey;
 delay(1000);
 clrscr;
  Writeln('I. matica ');
  VYPIS(A);
  Writeln('II. matica ');
  VYPIS2(B);
if N<>K then writeln ('Matica sa neda vypocitat ') else
  Writeln('Sucin I. a II. matice ');
  SUCIN(D);
   readkey;
end.