Oleh: blogfirman | 26 Desember 2009

Reserved word (6) Statemen untuk Memanipulasi Data.

  • Pred [fungsi].

Memberikan nilai sebelum nilai argumen dalam urutannya dalam ASCII.

Sintaks: Pred (x);

  • Succ [fungsi].

Memberikan nilai sesudah nilai argumen dalam urutannya dalam ASCII.

Sintaks: Succ (x);

  • Inc[fungsi].

Menambah (increments) nilai suatu variabel.

Sintaks: Inc (x,i); {i >= 1}

  • Dec [fungsi].

Mengurangi (decrements) nilai suatu variabel.

Sintaks: DEC(x,i); {i >=1}

Contoh :

Progam Man_Data;

Uses Crt;

Type

hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)

Var

urutanhr : hari;

Const

namahr : Array [hr1..hr7] of String [6]=

(’Senin’,’Selasa’,’Rabu’,’Kamis’,

‘Jumat’,’Sabtu’,’Minggu’);

Begin

Writeln(’Daftar Nama Hari);

urutanhr := hr0;

While Urutanhr < hr7 DO

Begin

urutanhr := Succ(urutanhr);

Write(’hari ke ‘,Ord(Urutanhr):2,’ adalah ‘);

Writeln(namahr[urutanhr]);

End;

End.


hasilnya adalah :

Daftar Nama Hari

hari ke 1 adalah Senin

hari ke 2 adalah Selasa

hari ke 3 adalah Rabu

hari ke 4 adalah Kamis

hari ke 5 adalah Jumat

hari ke 6 adalah Sabtu

hari ke 7 adalah Minggu


Tinggalkan Balasan

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

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

Kategori

%d blogger menyukai ini: