Perkalian Matriks & Menu Pada Pascal
_PERTANYAAN_
1. Buatlah contoh program dalam pascal mengenai perkalian matriks !
2. Apa yang Anda ketahui tentang Menu !
3. Buat Langkah - langkah membuat menu min. 3 Opsi!
_JAWABAN_
1. Perkalian Matriks :
Program Perkalian_Matriks;
uses crt;
type
mtrx = array[1..50,1..50] of integer;
var
mtrxa,mtrxb,mtrxc : mtrx;
l,m,n,o : integer;
Procedure Input(var a:mtrx;b,c:integer);
var s,k:integer;
begin
for s:=1 to b do
begin
for k:=1 to c do
begin
Write('Elemen [',s,',',k,'] : ');
Readln(a[s,k]);
end;
end;
end;
Procedure perkalian(var a,b,p:mtrx;d,e,f,g:integer);
var s,k,c,i:integer;
begin
for s:=1 to d do
begin
for k:=1 to g do
begin
p[s,k] := 0;
for c:=1 to e do
begin
p[s,k] := p[s,k] + a[s,c] * b[c,k];
end;
end;
end;
for s:=1 to d do
begin
for k:=1 to e do
begin
write(p[s,k]:3);
end;
writeln;
end;
end;
begin
Clrscr;
Writeln('Program Perkalian Matriks');
Writeln('Matriks I');
Write('Inputkan Banyaknya Baris : ');
Readln(l);
Write('Inputkan Banyaknya Kolom : ');
Readln(m);
Writeln('Program Perkalian Matriks');
Writeln('Matriks II');
Write('Inputkan Banyaknya Baris : ');
Readln(n);
Write('Inputkan Banyaknya Kolom : ');
Readln(o);
if(m <> n) then
begin
Write('Tidak Terdefinisi');
exit;
end
else
begin
clrscr;
Writeln('Matriks I');
Input(mtrxa,l,m);
Writeln;
Writeln('Matriks II');
Input(mtrxb,n,o);
perkalian(mtrxa,mtrxb,mtrxc,l,m,n,o);
end;
readln;
end.
2. Menu adalah daftar pilihan - pilihan yang disediakan untuk digunakan bernavigasi dalam suatu program. Dengan menu kita dapat lebih mudah menggunakan feature - feature yang disediakan oleh suatu program.
3. Langkah - langkah membuat menu :
a. Deklarasikan variable untuk menyimpan pilihan yang akan kita simpan.
Var
Pil : byte;
b. Kemudian buat pilihan-pilihan dengan statement write / writeln
Writeln(‘====== Menu Transaksi Data ======’);
Writeln(‘1. Input Data );
Writeln( 2. Update Data );
Writeln( 3. Delete Data );
Writeln( 4. Keluar);
Writeln(‘================================ );
c. Inputkan pilihan dan simpan dalam variabel yang telah dideklarasikan
Write( Masukkan Pilihan Anda : ’);
Readln(pil);
d. Setelah itu masuk ke statement kondisi sesuai dengan pilihan yang dipilih
Case pil of
1 : <>
.....
.....
.....
4 : <>
makasih mbak atas infonya :)