Senin, 23 Maret 2009

1.Deklarasi Label

Input:

PROGRAM cetak;

LABEL satu,akhir;

BEGIN

WRITELN(’STMIK’);

GOTO SATU;

WRITELN(’BINA’);

satu:

WRITELN(’GUNADARMA’);

GOTO akhir;

WRITELN(’SARANA’);

akhir:

END.

Output:

STMIK

GUNADARMA

2.Deklarasi Konstanta

Input:

PROGRAM CETAK_2(OUTPUT);

CONST a = 50; (* selalu menggunakan tanda = *)

b = ‘INDONESIA Merdeka’;

BEGIN

WRITELN(a,’ TAHUN ‘);

WRITELN(b);

END.

Output:

50 TAHUN

INDONESIA Merdeka

3.Deklarasi Tipe

Input:

PROGRAM SATU;

TYPE bulat = INTEGER; { selalu menggunakan = }

hasil,pecahan = REAL;

ket = STRING[20];

BEGIN

pecahan := 2.52;

bulat := 2;

hasil := pecahan + bulat;

ket := ‘hasil penjumlahan = ‘;

WRITE(ket,hasil:4:2);

END.

Output:

hasil penjumlahan = 0.565

4.Deklarasi Variabel

Input:

VAR satu : INTEGER;

dua : INTEGER;

a : REAL;

b : REAL; { selalu menggunakan : }

BEGIN

satu := 5;

dua := 4;

a := 2.3;

b := 5+4*2.3; { hasil real }

WRITE(’hasil = ‘,b:4:1);

END

Output:

hasil = 14.2


5.Tipe Data Integer

Input:

VAR a,b,jumlah1,jumlah2 : INTEGER;

BEGIN

jumlah1:=10;

jumlah2:=3;

a:=jumlah1 DIV jumlah2;

b:=jumlah1 MOD jumlah2;

WRITELN(’HASIL A = ‘,a);

WRITELN(’HASIL B =’,b);

END.

Output:

HASIL A = 3

HASIL B =1


6.Tipe Data Real

Input:

VAR nilai1,nilai2,hasil : REAL;

BEGIN

nilai1 := 2.52;

nilai2 := 3.2;

hasil := nilai1 + nilai2;

WRITE(’HASIL PENJUMLAHAN = ‘,hasil:4:2);

END.

Output:

HASIL PENJUMLAHAN = 5.72


7.Tipe Data Karakter

Input:

VAR nilai : CHAR;

BEGIN

nilai :=’A';

WRITELN(’NILAI TERBAIK = ‘,nilai);

END.

Output:

NILAI TERBAIK = A

8.Tipe Data String

Input:

VAR kata1 : STRING[5];

kata2 : STRING[9];

kata : CHAR;

BEGIN

kata1 :=’STMIK’;

kata2 :=’GUNADARMA’;

kata :=’ ‘; { karakter berupa spasi }

WRITELN(kata1,kata,kata2);

END.

Output:

STMIK GUNADARMA


9.Tipe Data Boolean

Input:

VAR

benar : BOOLEAN;

BEGIN

benar := TRUE;

WRITELN(’benar = ‘,benar);

END.

hasil : benar = TRUE

Output:

benar = TRUE