Contoh Syntax Pascal Program Tipe Pointer & Pointer Tak Bertipe

Contoh Syntax Pascal Program Tipe Pointer dan Pointer Tak Bertipe - Contoh coding pointer pascal ini sudah saya coba dan terbukti berhasil 100% work di aplikasi Turbo Pascal for Windows. Oke silahkan disimak dan dicoba dengan baik-baik, untuk penulisan jangan sampai salah ketik.

#1. Contoh Syntax Pascal Program Tipe Pointer 

Program tipe_pointer;
Uses WinCrt;
var
nama : string [20] ;
pointer : ^ string ;
begin
clrscr;
nama := �Unyil� ;
writeln ( �variabel nama berisi :�, nama) ;
pointer := @nama;
writeln ( �variabel pointer merujuk ke nilai : �, pointer ^) ;
nama:= �Alex� ;
writeln ( �variabel pointer merujuk ke nilai : �, pointer ^) ;
pointer^ := �Joni� ;
writeln ( �variabel nama berisi : �, nama) ;
readln ;
end.

#2. Contoh Syntax Pascal Program Pointer Tak Bertipe

Hasil Jadi

program pointer_tak_bertipe;
uses WinCrt;
var
p : pointer ;
q : ^Byte ;
r : array [0..19] of Byte;
i : Byte;
begin
GetMem (p,20);
q := p ;
for i := 0 to 19 do
begin
r [ i ] := 19 - i ;
q^ := 19 - i ;
inc (q^) ;
end;
q := p ;
for i := 0 to 19 do
begin
write ( ' r [ ' , i , ' ] = ' , r [ i ] , ' ; ' ) ;
writeln ( ' p ^ ke- ' , i , ' = ' , q ^ ) ;
end ;
readln ;
end.

Baca juga :

• Contoh Syntax Pascal Case Of
• Contoh Program Kasir Sederhana Menggunakan Pascal 

Demikianlah artikel Contoh Syntax Pascal Program Tipe Pointer & Pointer Tak Bertipe, semoga bermanfaat.


Salam anak TKJ !

Tweet

Subscribe to receive free email updates: