Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program matrik;
- uses crt;
- type data = array[1..5,1..5] of integer;
- var
- matrikI,matrikII : data;
- baris,kolom,pil : integer;procedure isi;
- var i,j :integer;
- begin
- writeln('Penentuan ORDO MATRIK I');
- write('Masukan banyak baris matrik I : ');readln(baris);
- write('Masukan banyak kolom matrik I : ');readln(kolom);
- for i:=1 to baris do
- for j:=1 to kolom do
- begin
- gotoxy(j*10,i*5);
- readln(matrikI[i,j]);
- end;
- clrscr;
- writeln('Penentuan ORDO MATRIK II');
- write('Masukan banyak baris matrik II : ');
- readln(baris);
- write('Masukan banyak kolom matrik II : ');
- readln(kolom);
- for i:=1 to baris do
- for j:=1 to kolom do
- begin gotoxy(j*10,i*5);
- readln(matrikII[i,j]);
- end;
- end;procedure gagal;
- begin
- writeln('Program Dibatalkan');
- end;procedure kali(a1,a2 : data);
- var
- hasil:data;
- i,j,z:integer;
- begin
- clrscr;
- for i:=1 to baris do
- for j:=1 to kolom do
- begin
- hasil[i,j]:=0;
- for z:=1 to baris do
- hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];
- end;
- clrscr;
- writeln('Hasil perkalian');
- for i:=1 to baris do
- for j:=1 to kolom do
- begin gotoxy(j*10,i*5);
- write(hasil[i,j]);
- end;
- end;
- begin
- clrscr;
- writeln('MENU');
- writeln('Ketik(1) Perkalian Matrik');
- writeln('ketik(2) Batal Program');
- write('pilihan = ');
- readln(pil);
- clrscr;
- case pil of
- 1:begin
- isi;
- kali(matrikI,matrikII);
- end;
- 2:begin
- gagal;
- end;
- end;
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement