home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / pascal_tut / pas / pointers < prev    next >
Unknown  |  1992-11-14  |  389 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% dexmagic PrintFox/Pagefox WEAK default
100% gt2 Kopftext: 'PROGRAM pointer_use_example; default (weak)
100% disktype Blank disk/medium default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 52 4f 47 52 41 4d 20 | 70 6f 69 6e 74 65 72 5f |PROGRAM |pointer_|
|00000010| 75 73 65 5f 65 78 61 6d | 70 6c 65 3b 0a 0a 54 59 |use_exam|ple;..TY|
|00000020| 50 45 20 6e 61 6d 65 20 | 20 3d 20 53 54 52 49 4e |PE name | = STRIN|
|00000030| 47 5b 32 30 5d 3b 0a 0a | 56 41 52 20 20 6d 79 5f |G[20];..|VAR my_|
|00000040| 6e 61 6d 65 20 3a 20 5e | 6e 61 6d 65 3b 20 28 2a |name : ^|name; (*|
|00000050| 20 6d 79 5f 6e 61 6d 65 | 20 69 73 20 61 20 70 6f | my_name| is a po|
|00000060| 69 6e 74 65 72 20 74 6f | 20 61 20 53 54 52 49 4e |inter to| a STRIN|
|00000070| 47 5b 32 30 5d 20 2a 29 | 0a 20 20 20 20 20 6d 79 |G[20] *)|. my|
|00000080| 5f 61 67 65 20 20 3a 20 | 5e 49 4e 54 45 47 45 52 |_age : |^INTEGER|
|00000090| 3b 20 20 28 2a 20 6d 79 | 5f 61 67 65 20 69 73 20 |; (* my|_age is |
|000000a0| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 61 6e 20 |a pointe|r to an |
|000000b0| 49 4e 54 45 47 45 52 20 | 2a 29 0a 0a 42 45 47 49 |INTEGER |*)..BEGI|
|000000c0| 4e 0a 0a 20 20 6e 65 77 | 28 6d 79 5f 6e 61 6d 65 |N.. new|(my_name|
|000000d0| 29 3b 0a 20 20 6e 65 77 | 28 6d 79 5f 61 67 65 29 |);. new|(my_age)|
|000000e0| 3b 0a 0a 20 20 6d 79 5f | 6e 61 6d 65 5e 20 3a 3d |;.. my_|name^ :=|
|000000f0| 20 27 4a 6f 68 6e 20 51 | 20 44 6f 65 27 3b 0a 20 | 'John Q| Doe';. |
|00000100| 20 6d 79 5f 61 67 65 5e | 20 3a 3d 20 32 37 3b 0a | my_age^| := 27;.|
|00000110| 0a 20 20 57 52 49 54 45 | 4c 4e 28 27 4d 79 69 07 |. WRITE|LN('Myi.|
|00000120| e3 8f 4b 8f 39 a6 e6 8d | 2e 57 50 e7 fd 07 b2 00 |..K.9...|.WP.....|
|00000130| b6 d4 c5 b8 1c 78 fe 0b | 73 f4 58 da a9 88 dd 73 |.....x..|s.X....s|
|00000140| 5a 1a b6 41 f4 9b 49 a9 | 82 89 05 14 00 90 0d 18 |Z..A..I.|........|
|00000150| 94 81 d5 4e 8b ed 00 6a | fc 5e 59 e6 f0 5d 8d 34 |...N...j|.^Y..].4|
|00000160| 23 f0 ab 08 a6 07 b7 86 | 26 b6 29 91 a2 9d 21 b7 |#.......|&.)...!.|
|00000170| 12 e1 c4 85 d5 04 ed c0 | d2 dd 5e 09 ac 9f ff a1 |........|..^.....|
|00000180| 77 22 1f c5 cf | |w"... | |
+--------+-------------------------+-------------------------+--------+--------+