Program Sederhana Tentang Pointer

Program Pointer pada pascal. langsung saja berikut contoh program sederhananya.

Tampilan Program

Berikut adalah Source Codenya:

Program pointer;

uses crt;

var     nama, nim : string;

        shift, no : integer;

        a, b : ^string;

        c, d : ^integer;

begin

        clrscr;

        new(a);

        new(b);

        new(c);

        new(d);

        nama :='Muhammad Darmadi';

        nim  :='J1F114076';

        shift:= 1;

        no   := 16;

        a^:= nama;

        b^:= nim;

        c^:= shift;

        d^:= no;

        writeln('Nama    : ',a^);

        writeln('NIM     : ',b^);

        writeln('Shift   : ',c^);

        writeln('No Meja : ',d^);

        readln;

end.