Ramainya Kontes Blog membuat aku melalaikan suatu hal yang lebih penting dari itu yaitu membagi ilmu yang aku dapat di Kampus. Sejenak kita lupakan dulu Kontes Kenali dan Kunjungi Objek Wisata di Pandeglang yang ternyata lebih sulit dari yang dibayangkan dan para master sudah mulai unjuk Gigi. Oke setelah kita membuat program menjumlahkan dua buat matriks, sekarang kita buat program untuk mengalikan dua buah matriks. Dalam perkalian matriks, yang sangat penting diperhatikan adalah jumlah kolom matriks A harus sama dengan jumlah baris matriks B.
Daripada pusing mending copas code ini ja deh......
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');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya 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 data untuk matriks kedua (M2)');writeln;
write('berapa banyak baris matriks kedua? '); readln(g);
write('berapa 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 Operasi 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?! Operasi dari M1 x M2 tidak dapat dilakukan');
writeln('karena kolom M1 (',c,' kolom) tidak sama dengan baris M2 (',i,' baris)');
end;
readln;
end.
Maaf gak bisa lama-lama nulis n gak bisa berkunjung ketempat temen-temen. Beneran aku bukannya sombong atau bagaimana tapi lagi ada project nih n buat ngejar THR juga, jadi do'ain ya biar sukses. Salam Kontes Kenali dan Kunjungi Objek Wisata di Pandeglang
Daripada pusing mending copas code ini ja deh......
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');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya 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 data untuk matriks kedua (M2)');writeln;
write('berapa banyak baris matriks kedua? '); readln(g);
write('berapa 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 Operasi 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?! Operasi dari M1 x M2 tidak dapat dilakukan');
writeln('karena kolom M1 (',c,' kolom) tidak sama dengan baris M2 (',i,' baris)');
end;
readln;
end.
Maaf gak bisa lama-lama nulis n gak bisa berkunjung ketempat temen-temen. Beneran aku bukannya sombong atau bagaimana tapi lagi ada project nih n buat ngejar THR juga, jadi do'ain ya biar sukses. Salam Kontes Kenali dan Kunjungi Objek Wisata di Pandeglang
Bila Ada Kesulitan atau ada pertanyaan terhadap Materi dari Kuliah Gratis silahkan Hubungi saya, Add ID YM saya radenmas_surya . Semoga dapat membantu Artikelnya Ya!
Postingan
9 komentar
Nerah pokoknya kalau dah berbau programming :D
Posted on 24 Agustus 2009 pukul 13.49
Wah moga projectnya berhasil mas Surya....
Posted on 24 Agustus 2009 pukul 13.50
wah. gilaa blog ini makin berat aja kata2nya
Posted on 24 Agustus 2009 pukul 13.55
semoga dapat dah THRnya, yg banyak..
nanti dibagiin ke saya.. hahahah
Posted on 24 Agustus 2009 pukul 15.34
Hmm...very nice bro.Thanks.Met buka puasa ya...
Posted on 24 Agustus 2009 pukul 18.34
bagi dunk thrnya.....he..he..he..
Posted on 25 Agustus 2009 pukul 07.55
@ Semua: Maaf ya......Beneran maaf sekali aku belum bisa maen ketempat temen2 sekalian
Posted on 25 Agustus 2009 pukul 08.18
Nah! ini dia materi yang bikin pala ancur mendadak... Dalam pascal klo dah masuk matrik, graph, ma bil. prima??? Dah nyerah dweh....
Untung ada blog ini.... jadi bantu gw gbt dweh buat ngerjai tgs kuliah.
Thankz berat y...
Posted on 5 Januari 2010 pukul 20.16
wah, itu dulu jadi tugas kuliah mas??
tapi pas semester 1. hehhe
Posted on 3 Mei 2010 pukul 23.11
Form Komentar
Tinggalkan Komentar sebagai Wujud Apreasiasi Anda!
Dilarang NYAMPAH disini!
Maafkan Jika Kuliah Gratis tidak membalas Komentar!