Contoh Program Pointer pada Pascal

Tampilan Program

Source Code

Program pointer;
uses crt;

var nama, nim : ^string;
    shift, no : byte;

begin
clrscr;
new(nama); new(nim);
        nama^ := 'M Reza Ramadhana';
        nim^ := 'J1F114204';
        shift := 1;
        no := 20;

writeln('Nama           : ',nama^);
writeln('NIM            : ',nim^);
writeln('Shift          : ',shift);
writeln('No. Meja       : ',no);
dispose(nama); dispose(nim);
readln;
end.