Laporan Akhir Praktikum 12 ( Program Pointer Pada Pascal)

Program Pointer Pada Pascal

uses crt;

type ptr = ^string;

var

ptrNama, ptrKLS, ptrNIS : ptr;

Nama, KLS, NIS: string;

x,n : integer;

begin

clrscr;

writeln('Data Siswa:');

writeln('');

writeln('Masukan Angka:');

readln (n);

for x := 1 to n do

begin

writeln('Data Ke = ',x);

write('Nama =');

readln(Nama);

write('Kelas=');

readln(KLS);

write('NIS=');

readln(NIS);

ptrNama := @Nama;

ptrKLS := @KLS;

ptrNIS := @NIS;

writeln('Nama =',ptrNama^);

writeln('Kelas =',ptrKLS^);

writeln('NIS =',ptrNIS^);

end;

readln;

end.

Hasil Progrtam Diatas

Laporan Akhir Praktikum 12 ( Program Pointer Pada C++)

Program Pointer Pada C++

#include <iostream.h>

int main ()

{

int numbers [5];

            int * p;

            p = numbers; *p =10;

            p++; *p = 15;

            p = &numbers[2]; *p =20;

            p = numbers + 3; *p  =25;

            p = numbers; *(p+4)  =30;

            for (int n=0; n<5; n++)

                        cout << numbers[n] << ",";

            return 0;

}

Hasil Dari Program Diatas!!!