1. Wskaźniki
1.1. PrzykładyPoniższe przykłady pochodzą z podręcznika J. Bieleckiego: Turbo Pascal 5.5, wyd. WNT, Warszawa, 1996.
1
{
3 adresowanie zmiennych nieprocedur a ln yc h
5 Operatory jednoargume n to we wskazania adresu : @ , @@
Wynikiem operacji @arg jest dana typu pointer ;
7 arg = nazwa zmiennej | procedury
Wynikiem operacji @@arg jest dana typu pointer ;
9 wskazuje zmienna , bedac argumentem @@
} 11 c o n s t nazwa : s t r i n g [3] = ’ typ ’; 13 t y p e z n a k i = a r r a y[0..3] o f c h a r; v a r w s k a z : ^ z n a k i ; 15 b e g i n w s k a z := @nazwa; 17 w r i t e( w s k a z ^[1] , w s k a z ^[2] , w s k a z ^[3]) en d. { wynik : typ } 1 { uzycie @ , @@ ; Bielecki , TP 5.5 , s124 3 } t y p e 5 mathType = f u n c t i o n( a , b :i n t e g e r):i n t e g e r; ma t h R ef = ^ mathType; 7 v a r Math : mathType; 9 F i x : i n t e g e r; 11 { $F + } f u n c t i o n Add(a , b :i n t e g e r):i n t e g e r; 13 b e g i n Add:= a + b ; en d; { $F - } 15 f u n c t i o n I n c ( p : mat h R ef ; q :i n t e g e r):i n t e g e r; 17 b e g i n I n c := p ^( q ,2) en d; 19 b e g i n Math := Add; 21 i f @Math =@Add t h e n F i x := I n c (@@Math ,5); 23 w r i t e( F i x ) { 7 } en d. { wynik : 7 } {
2 przyklad uzycia roznych zmiennych ; Bielecki
} 4 t y p e 6 w s k a z n i k = ^i n t e g e r; v a r 8 w s k a z : ^ w s k a z n i k ; b e g i n 1
10 New( w s k a z ); { tworzy sie zmienna typu wskaznik }
New( w s k a z ^); { tworzy sie zmienna typy integer }
12 w s k a z ^^:=13; { przypisanie zmiennej Ptr ^^ liczby 13 }
w r i t e l n( w s k a z ^^); { wyprowadzenie liczby 13 }
14 en d.
{ uwaga :
16
napis Ptr ^^ :=13 identyfikuje zmienna , a write ( Wskaz ^^)
18 reprezentuje stala
}
1 {
uzycie procedury New
3 } 5 u s e s C r t ; c o n s t F i x : word = 13; 7 v a r Wskaz : ^ word ; 9 b e g i n c l r s c r ; 11 New( Wskaz ); w s k a z ^:= F i x ; 13 w r i t e( w s k a z ^); { 13 } en d. 1 p r o g r a m p o i n t ; 3 t y p e 5 Ar = a r r a y[1..7] o f i n t e g e r; A r P t r = ^ Ar ; 7 p r o c e d u r e a s ( p : A r P t r ; num: i n t e g e r); 9 b e g i n p ^[1]:=num; 11 en d; 13 v a r ws : A r P t r ; 15 b e g i n a s (ws ,12345); 17 a s (@ws ^[2] ,4321); w r i t e l n( ws ^[1] , ws ^[2]); 19 en d. 2
