Pembuatan Program Perkalian Matriks Ordo 3x3 Menggunakan Aplikasi Turbo Pascal

Mendengar kata matriks kita pasti tahu kita bisa mempelajari hal itu di saat kita duduk di bangku SMA di mata pelajaran matematika. Matriks itu bermacam-macam jenisnya ada yang pengurangan,pembagian,pertambahan,perkalian,dll. Tapi dalam laporan ini kita akan membahas tentang bagaimana cara membuat program matriks perkalian ordo 3x3 menggunakan aplikasi Turbo Pascal. Adapun penjelasannya seperti di bawah ini :
1. Buka Aplikasi Turbo Pascal yang sudah di install di komputer maupun laptop misal TPW 1.5.
2. Buatlah file baru dan di dalamnya masukkan script-script pemrogramannya.
3. Adapun script-scriptnya seperti dibawah ini :
program Kali_Matrix;
uses wincrt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;
begin
clrscr;
writeln('Ukuran matrix A');
write('Baris : ');
readln(x);
write('Kolom : ');
readln(y);
writeln;
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',y);
write('Kolom : ');
readln(z);
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;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln; end.
Previous
Next Post »