Buat bahan referensi,. silahkan download Modul Pascal
Read More >>>
Home » Archives for 2011
Perkalian Matrik dengan Pascal
Dalam Pemrograman Pascal tidaklah sulit untuk membuat program perkalian Matrik, disini saya akan tampilkan kode program untuk perkalian matrik menggunakan bahasa pascal. Lihat kodenya sebagai berikut :
uses crt;
var matrik1 : array [1..3,1..2] of integer;
matrik2 : array [1..2,1..3] of integer;
hasil : array [1..3,1..3] of integer;
b,k,z : integer;
begin
clrscr;
writeln ('INPUT ISI MATRIK 1 ');
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Baris ke ',b,' kolom ke - ',k,' = ');
readln(matrik1[b,k]);
end;
end;
writeln ('INPUT ISI MATRIK 2 ');
for b:=1 to 2 do begin
for k:=1 to 3 do begin
write ('Baris ke ',b,' kolom ke - ',k,' = ');
readln(matrik2[b,k]);
end;
end;
writeln (' Matrik 1 ');
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (matrik1[b,k],' ');
end;
writeln;
end;
writeln (' Matrik 2 ');
for b:=1 to 2 do begin
for k:=1 to 3 do begin
write (matrik2[b,k],' ');
end;
writeln;
end;
writeln (' Hasil Perkalian Matrik ; ');
for b:=1 to 3 do begin
for k:=1 to 3 do begin
hasil[b,k]:=0;
for z:=1 to 2 do
hasil[b,k]:=hasil[b,k]+matrik1[b,z]*matrik2[z,k];
end;
end;
for b:=1 to 3 do begin
for k:=1 to 3 do begin
write(hasil[b,k],' ');
end;
writeln;
end;
readln;
end.
Gimana??? Mudah bukan?? Semoga dapat menjadikan pengetahuan untuk tugas anda.....
Read More >>>
var matrik1 : array [1..3,1..2] of integer;
matrik2 : array [1..2,1..3] of integer;
hasil : array [1..3,1..3] of integer;
b,k,z : integer;
begin
clrscr;
writeln ('INPUT ISI MATRIK 1 ');
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Baris ke ',b,' kolom ke - ',k,' = ');
readln(matrik1[b,k]);
end;
end;
writeln ('INPUT ISI MATRIK 2 ');
for b:=1 to 2 do begin
for k:=1 to 3 do begin
write ('Baris ke ',b,' kolom ke - ',k,' = ');
readln(matrik2[b,k]);
end;
end;
writeln (' Matrik 1 ');
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (matrik1[b,k],' ');
end;
writeln;
end;
writeln (' Matrik 2 ');
for b:=1 to 2 do begin
for k:=1 to 3 do begin
write (matrik2[b,k],' ');
end;
writeln;
end;
writeln (' Hasil Perkalian Matrik ; ');
for b:=1 to 3 do begin
for k:=1 to 3 do begin
hasil[b,k]:=0;
for z:=1 to 2 do
hasil[b,k]:=hasil[b,k]+matrik1[b,z]*matrik2[z,k];
end;
end;
for b:=1 to 3 do begin
for k:=1 to 3 do begin
write(hasil[b,k],' ');
end;
writeln;
end;
readln;
end.
Gimana??? Mudah bukan?? Semoga dapat menjadikan pengetahuan untuk tugas anda.....
Langganan:
Postingan (Atom)