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

Prikitiw,,!!!

Penentuan Bilangan Prima Pada Pascal


1. Buka halaman kerja baru

2. Untuk ini , berikan kode program sebagai berikut :

3. 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.

4. Tampilan program yang sudah berjalan :

5. Berikut keterangan tiap kode pada program

Uses crt;

(unit yang digunakan dalam program)

Var

(pendeklarasian variabel)

Prima : array [1. .100] of integer;

(pendeklarasian data variable Prima sebagai array dengan satu ordo1 sampai dengan 100 dan    dinyatakan sebagai tipe data integer)

x,y : integer;

(Pendeklarasian data variabel x dan y bertipe bilangan bulat)

bil  : integer;

(Pendeklarasian data variabel bilbertipe bilangan bulat)

Begin

(kata yang mengawali blok statement)

clrscr;

(membersihkan layar)

For x := 2 to 100 do

(memulai perintah perulangan 1, dimana nilai variabel x adalah dua sampai dengan seratus)

Begin

(kata yang mengawali blok statement)

Prima[x] := x;

(selama nilai variable x belum terpenuhi, lakukan untuk variable prima[data ke-x] bernilai sama dengan variabel x)

For y := 2 to x-1; do

(memulai perintah perulangan 2, dimana nilai variabel y adalah dua dampai dengan nilai variabel x dikurangi satu)

Begin

(kata yang mengawali blok statement)

Bil := (x mod y);

(selama perulangan 2 belum terpenuhi, lakukan untuk variable bil bernilai variable x modulus variable y)

If bil := 0 then prima[x] := 0;

(memulai perintah kondisi, jika nilai variabel bil sama dengan nol maka nilai variabel prima[data ke-x] juga sama dengan nol)

End;

(akhir dari blok statement)

If prima[x] <> 0 then write (prima[x],’ ‘);

(Jika nilai variabel Prima[data ke-x] tidak bernilai 0 maka cetak nilai variable Prima[data ke-x] dan satu spasi)

End;

(akhir dari blok statement)

Readln;

(menunggu penekanan enter)

End.

(akhir program)

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

%d bloggers like this: