Minggu, November 21, 2010
andry yudha prawira
yahh,beginilai kalau ikut praktikum Ilab,banyak program yang harus dikerjakan,padahal waktunya gk banyak.Ini program perkalian matriks buat praktikum matematika informasi pakai bahasa Pascal.Mudah mudahan bisa membantu yah,,.Oia,jangan lupa sebelum ngerjain Ilab,harus berdoa, biar severnya maintenis(maintenance)*kaskus broo.hehhe..
Program Matriks;
uses crt;
var
a,f,k:array[1..100,1..100] of integer;
b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;
begin
clrscr;
write(' Program Perkalian 2 Matriks');
writeln;
writeln;
writeln('Masukkan element matriks pertama (m1)');
writeln;
write('banyak baris matriks pertama: ');
readln(b);
write('banyak kolom matriks pertama: ');
readln(c);
writeln;
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]);
end;
end;
writeln;
writeln('m1:');
writeln;
for d:= 1 to b do
begin
for e:= 1 to c do
begin
write(a[d,e]:7);
end;
writeln;writeln;
end;writeln;writeln;
writeln('Masukkan element matriks kedua (m2)');
writeln;
write('banyak baris matriks kedua? ');
readln(g);
write('banyak kolom matriks kedua? ');
readln(h);
writeln;
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;
writeln;
writeln('m2:');
writeln;
for i:= 1 to g do
begin
for j:= 1 to h do
begin
write(f[i,j]:7);
end;
writeln;writeln;
end;
writeln;writeln;
writeln('Tekan Enter Untuk Melihat Hasil dari m1 x m2!');
readln;
if c=i then begin
writeln('M1 x M2:');
writeln;
for d:= 1 to b do
begin
for l:=1 to h do
begin
for e:= 1 to c do
begin
for j:= l to h do
begin
for i:=e to g do
begin
k[d,j]:=k[d,j]+a[d,e]*f[i,j];
if c=e then begin
write(k[d,j]:7);
end;
i:=g;
end;
j:=h;
end;end;end;
writeln;writeln;
end;
end else
begin
writeln('Maaf?! perkalian matriks m1 x m2 tidak bisa dilakukan');
writeln('karena kolom m1 (',c,' kolom) tidak sama dengan baris m2 (',i,' baris)');
end;
readln;
end.
0 komentar:
Posting Komentar