Perkalian Matriks - Pascal

Haduh.... Jumpa lagi....
lama ga update yah.... sorry deh hehehe >.<

ya udah langsung saja yah...
Kali ini saya akan share Ilmu saya Tentang Pascal...
yaitu Perkalian Matrix (pelajaran matematika itu lho...)

nih Source Code nya...
uses crt;

var

a,b,c : array [1..50,1..50] of integer;

a,b,c,d,e,f : integer;

begin

clrscr;
writeln(‘Ukuran matrix A’);
write(‘Baris : ‘);
readln(d);
write(‘Kolom : ‘);
readln(e);
writeln;
writeln;
writeln(‘Ukuran matrix B’);
writeln(‘Baris : ‘,d);
write(‘Kolom : ‘);
readln(f);
for a:=1 to x do
for b:=1 to y do
begin
write(‘Elemen A[',a,',',b,'] : ‘);
readln(a[a,b]);
end;
writeln;
for a:=1 to e do
for b:=1 to f do
begin
write(‘Elemen B[',a,',',b,'] : ‘);
readln(b[a,b]);
end;
for a:=1 to d do
for b:=1 to f do
for c:=1 to e do
c[a,b] := c[a,b] + a[a,c]*b[c,b];
writeln;
writeln;
writeln(‘Hasil perkalian Matrix A dan B : ‘);
Writeln;
for a:=1 to d do
begin
for b:=1 to f do
write(c[a,b],’ ‘);
writeln;
end;
writeln;

writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#');
gotoxy(16,23);
writeln('# ==Created Design by : Arvin Janathan Adhim== *');
gotoxy(16,24);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#');
readln;
end.

Sudah kan... Semoga dapat membantu teman" sekalian yah... Amin...

Yaudah... sampe disini dlo Updatenya.... Besok Saya Share Ilmu lagi di Blog ini...

Thanks yah....

Perkalian Matriks - Pascal 2012-05-13T21:18:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown