Program Matrik

Program matriks1_herman;
uses wincrt;
var
a,f,k:array[1..10,1..10] of integer;
b,c,i,j,l,z:integer;
m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)');
write('banyaknya baris M1:'); readln(b);
write('banyaknya kolom M1: '); readln(c);
for d:= 1 to b do
 begin
 for e:= 1 to c do
  begin
  write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
  for d:= 1 to b do
  end;
 end;
begin
for e:= 1 to c do
begin
write(a[d,e]:10);
end;writeln;
end;writeln;
writeln('Masukkan data untuk matriks kedua (M2)');
write('banyaknya baris M2:'); readln(g);
write('banyaknya kolom M2:'); readln(h);
for i:= 1 to g do
begin
for j:=1 to h do
begin
write('entri baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);
end;
end;
begin
for i:= 1 to g do
begin
for j:= 1 to h do
begin
write(f[i,j]:10);
end;writeln;
end;writeln;
end;writeln;
if c=i then
begin
writeln('M1 x M2:');
writeln;
for d:= 1 to b do
end;
begin
for l:=1 to h do
end;
begin
for e:= 1 to c do
end;
begin
for j:= l to h do
end;
begin
for i:=e to g do
end;
begin
k[d,j]:=k[d,j]+a[d,e]*f[i,j];
if c=e then
end;
begin
write(k[d,j]:10);
end;
end.

program matrik2_herman;
uses
WinCrt;
var
x,y:integer;
Mat:array[1..10,1..10]of integer;
begin
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
       Mat[x,y]:=0;
       if x+y=6 then Mat[x,y]:=1;
       write (Mat[x,y]:4);
    end;
    writeln;
  end;
end.

Add caption