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