Program pointerr;
uses crt;
var nama, nim : ^string;
shift, no : byte;
begin
clrscr;
new(nama); new(nim);
nama^ := 'M. irhansi putra';
nim^ := 'J1F114078';
shift := 1;
no := 17;
writeln('Nama : ',nama^);
writeln('NIM : ',nim^);
writeln('Shift : ',shift);
writeln('No. Meja : ',no);
dispose(nama); dispose(nim);
readln;
end.
Senin, 13 April 2015
pointer
06.27
No comments
0 komentar:
Posting Komentar