It`s My Second Home,, Happy Surfing! n_n

Prikitiw,,!!!

Contoh Pembuatan Bilangan Matrix Dasar Pada Pascal


1. Buka program aplikasi bahasa pemrograman paskal

2. Untuk membuka halaman kerja baru klik File lalu pilih New

3. Untuk program ini, masukan kode program sebagai berikut :

4. Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.

5. Tampilan program yang sudah dijalankan :

6. Berikut logika beserta keterangan setiap kode pada program

Uses crt;

(unit yang digunakan dalam program)

Var

(pendeklarasian variabel)

tabel:array[1. .2,1. .6] of integer;

(pendeklarasian data variable table sebagai array dengan dua ordo, ordo pertama 1 sampai 2,      ordo kedua 1 sampai 6 dan dinyatakan sebagai tipe data integer)

i,j:integer;

(Pendeklarasian data variabel i dan j bertipe bilangan bulat)

Begin

(kata yang mengawali blok statement)

clrscr;

(membersihkan layar)

Tabel[1,1]:=1;

(Untuk tabel[1,1] bernilai ”1”)

Tabel[1,2]:=2;

(Untuk tabel[1,2] bernilai “2”)

Tabel[1,3]:=2;

(Untuk tabel[1,3] bernilai “2”)

Tabel[1,4]:=3;

(Untuk tabel[1,4] bernilai “3”)

Tabel[1,5]:=10;

(Untuk tabel[1,5] bernilai “10”)

Tabel[1,6]:=20;

(Untuk tabel[1,6] bernilai “20”)

Tabel[2,1]:=3;

(Untuk tabel[2,1] bernilai “3”)

Tabel[2,2]:=4;

(Untuk tabel[2,2] bernilai “4”)

Tabel[2,3]:=4;

(Untuk tabel[2,3] bernilai “4”)

Tabel[2,4]:=1;

(Untuk tabel[2,4] bernilai “1”)

Tabel[2,5]:=16;

(Untuk tabel[2,5] bernilai “16”)

Tabel[2,6]:=63;

(Untuk tabel[2,6] bernilai “63”)

For i := 1 to 2 do

(memulai perintah perulangan 1, dimana nilai variabel i adalah satu sampai dengan dua. Selama nilai perulangan variabel i belum terpenuhi jalankan perulangan 2)

Begin

(kata yang mengawali blok statement)

For j := 1 to 6 do

(memulai perintah perulangan 2, dimana nilai variabel j adalah satu sampai dengan enam)

Write(tabel[I,j]:10);

(selama nilai perulangan variabel j belum terpenuhi cetak nilai array variabel ”tabel[variabel i / ordo 1, variabel j / ordo 2]” dengan jarak spasi 10)

Writeln;

(menempatkan kursor di bawah cetakan)

End;

(akhir dari blok statement)

Readln;

(menunggu penekanan enter)

End.

(akhir program)

About these ads

January 6, 2010 - Posted by | saatnya belajar

No comments yet.

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

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: