1. PASCAL
Var Count : integer;
Switch : boolean;
Betha : char;
Alamat : packed array[1..25] of char;
2. COBOL
DATA DIVISION
01 Count PICTURE S999.
01 Flda PICTURE X.
88 Switch VALUE 'Y'.
01 Betha PICTURE X.
01 Alamat PICTURE X(25).
Rabu, 27 Mei 2009
Langganan:
Posting Komentar (Atom)

Tidak ada komentar:
Posting Komentar