Contoh Program Pascal Matrik

HASILNah disini saya akan membagi sedikit tugas-tugas kuliah saya waktu semester 1, daripada jadi file sampah di komputer mendingan kan saya share lewat blog, siapa tau ada yang membutuhkan dan berguna bagi nusa dan bangsa. hehehe
Oke langsung aja kita belajar sama-sama membuat program matrik menggunakan pascal.


Algoritma dengan bahasa sehari-hari:

  1. Mulai
  2. Ketikan angka 1 untuk melanjutkan program
  3. Ketikan angka 2 untuk membatalkan program
  4. Jika angka 2 dimasukan maka program dibatalkan
  5. Jika angka 1 dimasukan maka program dijalankan
    • Penentuan ordo matrik I dijalankan
    • Masukan banyak baris matrik
    • Masukan banyak kolom matrik
    • Input nilai sampai semua baris dan kolom terpenuhi
    • Penentuan ordo matrik II dijalankan
    • Masukan banyak baris matrik II
    • Masukan banyak kolom matrik II
    • Input nilai sampai semua baris dan kolom terpenuhi
    • Hasil
  6. Selesai

Kode Program

program matrik;
uses wincrt;
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
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
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;
end.

Program saat dijalankan:
1.Menu Pilihan Ditampilkan
2.Terdapat 2 pilihan
JALAN1

Jika Menginput Angka 2 maka:
Program Dibatalkan
BATAL

Jika Menginput angka 1 maka:
Penentuan ordo matrik I dijalankan
1.Masukan banyak baris matrik I
2.Masukan banyak kolom matrik I
3.Input nilai sampai semua baris dan kolom terpenuhi
MATRIK1

Penentuan ordo matrik II dijalankan
Masukan banyak baris matrik II
Masukan banyak kolom matrik II
Input nilai sampai semua baris dan kolom terpenuhi
MATRIK2

Hasil
HASIL

sumber: tugas kuliah

Posted on March 19, 2013, in Uncategorized and tagged , , , , . Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: