tugas

Senin, 23 Maret 2009

Algoritma & Pemrograman 2

DEKLARASI LABEL :
PROGRAM cetak;
LABEL satu,akhir;
BEGIN
WRITELN('STMIK');
GOTO SATU;
WRITELN('BINA');
satu:
WRITELN('GUNADARMA');
GOTO akhir;
WRITELN('SARANA');
akhir:
END.
OUTPUT :
STMIK
GUNADARMA

DEKLARASI KONSTANTA :


PROGRAM CETAK_2(OUTPUT);

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

b = 'INDONESIA Merdeka';

BEGIN

WRITELN(a,' TAHUN ');

WRITELN(b);

END.

OUTPUT :

50TAHUN

INDONESIA Merdeka

DEKLARASI TIPE :


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 = 4.52

DEKLARASI VARIABEL/PERUBAH :

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.

RUN :

hasil=14.2

CONTOH PROGRAM :

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

CONTOH PROGRAM :

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

CONTOH PROGRAM :

VAR nilai : CHAR;

BEGIN

nilai :='A';

WRITELN('NILAI TERBAIK = ',nilai);

END.

OUTPUT :

NILAI TERBAIK = A

CONTOH PROGRAM :

VAR kata1 : STRING[5];

kata2 : STING[9];

kata : CHAR;

BEGIN

kata1 :='STMIK';

kata2 :='GUNADARMA';

kata :=' '; { karakter berupa spasi }

WRITELN(kata1,kata,kata2);

END.

OUTPUT :

STMIK GUNADARMA

CONTOH PROGRAM :

VAR

benar : BOOLEAN;

BEGIN

benar := TRUE;

WRITELN('benar = ',benar);

END.

OUTPUT :

benar = TRUE