Contoh Program Pascal

Posted: 24 November 2011 in Uncategorized

Uses crt;

Var a,b,c : integer;

Begin

Clrscr;

a:=5;

for b=a downto 1 do

begin

for c:= 1 to b do

write (c);

readln;

end.

End.

Keterangan : pada program diatas menggunakan downto, downto disini dimaksudkan untuk mengurangi sebuah step, jika di BASIC menggunakan (step-) namun pada pascal yang digunakan adalah downto. Logikanya yaitu mula-mula a diberi nilai 5 kemudian nilai b sama dengan nilai a selanjutnya c dicetak dengan nilai 1, selanjutnya a bernilai 4 karna dikurani 1 lalu cetak c = 2, begitu seterusnya sampai a bernilai 1, maka hasil yang didapat yaitu 12345.

 

Uses crt;

Const max_elemen=3;

Type nama_musik= array [1..max_elemen] of string [15];

Var music : nama_musik;

Posisi: integer;

Begin

Clrscr;

Music [1]:= ‘jazz’;

Music [2]:= ‘rock’;

For posisi := 1 to maz_elemen do

Writeln(music[posisi]); readln;

End.

Keterangan: const diatas dimaksudkan sebagai harga awal dimana nilainya adalah konstanta atu tidak berubah, type juga dimaksudkan sebagai harga awal. Pada contoh array diatas telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 3 elemen, nilai dari elemen array tersebut diatas harus bertipe string.

About these ads
Komentar
  1. vera mengatakan:

    oke bgttzzz

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s