Perkalian 2 Buah Matrix

uses
wincrt;
var
a,b,c:array [1..50,1..50] of integer;
i,j,k,y,z,x:integer;
begin
clrscr;
writeln('Program Untuk Menghitung Perkalian 2 Buah Matriks');
writeln;
writeln(' Ukuran Matriks A');
write(' Baris :');
readln(x);
write(' Kolom :');
readln(y);
writeln;
writeln(' Ukuran Matriks B');
write(' Baris :');
readln(y);
write(' Kolom :');
readln(z);
writeln;
for i:=1 to x do
for j:=1 to y do
begin
write(' Elemen A[',i,',',j,']:');
readln(a[i,j]);
end;
writeln;
for i:=1 to y do
for j:=1 to z do
begin
write(' (Elemen B[',i,',',j,']:'); readln(b[i,j]);
end;
for i:=1 to x do
for j:=1 to z do
for k:=1 to y do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
writeln;
writeln(' Hasil Perkalian Matriks A dan Matriks B');
writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],'');
writeln;
end;
readln;
end.

{ Read More }

Segitiga Pascal

Uses

wincrt;

var num:array[1..100] of longint;

i,j,n,batas:integer;

begin

clrscr;

writeln(' Program Segitiga Pascal ');

writeln;

write(' Masukan Nilai N :');

readln(n);

num[1]:=1;

writeln(1);

for i:=1 to n do

begin

batas:=(i+1) div 2;

if not odd(i)then

num[batas+1]:=num[batas]*2;

for j:=batas down to 2 do

num[j]:=num[j]+num[j-1];

for j:=1 to batas do

write(num[j],' ');

if not odd(i)then write (num[batas+1],' ');

for j:=batas downto 1 do

write(num[j],' ');

writeln;

end;

readln;

end.

{ Read More }