Siswa Master

Berbagi Mata Pelajaran Sekolah, Tips Belajar dan Info Menarik Lainnya | Lengkap dan Terpercaya

3 Mei 2016

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.

Contoh Syntax Pascal Program Tipe Pointer & Pointer Tak Bertipe

#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

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 :

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


Salam anak TKJ !

Ayo budayakan komentar setelah membaca artikel ! (Jangan SPAM ya)

 
Back To Top