PROGRAM POINTER PADA PASCAL

Program Pointer Pada Pascal

PROGRAM POINTER PADA PASCAL

Uses crt;                             

Type ptr = ^string;          

Var        

ptrnama, ptrkls, ptrnpm : ptr;

nama,kls,npm : string; 

x,n : integer;                     

begin                                                    

clrscr;                                                   

writeln(‘data mahasiswa : ‘);      

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(‘npm = ‘); readln(npm);   

                                 

ptrnama := @nama;                                       

ptrkls := @kls;                   

ptrnpm := @npm;           

writeln(‘nama = ‘,ptrnama^);    

writeln(‘kelas = ‘,ptrkls^);                           

writeln(‘npm = ‘,ptrnpm^);        

end; 

readln;                      

end.

Output Dan Input