pascal第21讲 指针.mht

学习Pascal程序设计的基础教材

From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?ufPW3cqhza3IyrXa0rvW0NGn?=
Date: Fri, 30 Nov 2007 12:21:14 +0800
MIME-Version: 1.0
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: base64
Content-Location: http://www.tryz.com.cn/yz/PRINTLR.ASP?ID=5857
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12rb+yq7Su72yOta41esgPC9GT05UPjwvVEQ+PC9UUj48L1RCT0RZPjwvVEFCTEU+PEJS
Pg0KPEgzIGNsYXNzPXN0eWxlMSBhbGlnbj1jZW50ZXI+1rihoaGh1esgPC9IMz4NCjxVTD4NCiAg
PExJPjxTUEFOIGNsYXNzPXN0eWxlMj48U1RST05HPjxGT05UIA0KICBjb2xvcj0jMDAwMGZmPta4
1eu1xLavzKyx5MG/PC9GT05UPjwvU1RST05HPjwvU1BBTj4gPC9MST48L1VMPg0KPFA+oaEgoaEg
oaEgMS62qNLl1rjV68Dg0M0gPEJSPqGhIKGhINTaVHVyYm8gDQpQYXNjYWzW0KOs1rjV67Hkwb/W
0LTmt8W1xMSzuPa05rSitaXUqrXEtdjWt6OsvLTWuNXrseTBv9a4z/LEs7j2tOa0orWl1Kqho9K7
uPbWuNXrseTBv732xNzWuM/yxLPSu9bWwODQzbXEtOa0orWl1KqjrNXi1tbK/b7dwODQzcrH1NrW
uNXrwODQzbXEtqjS5dbQyLe2qLXEo6yzxs6q1rjV68Dg0M21xLv5wODQzaGj1rjV68Dg0M22qNLl
yOfPwqO6IA0KPEJSPqGhIKGhIKGhoaGhoaGhIMDg0M3D+6O9Xrv5wODQzcP7o7sgPEJSPqGhIKGh
IKGhIMD9yOejunR5cGUgcT1eaW50ZWdlcjsgPEJSPqGhIKGhIKGhoaGhoaGhIHZhciBhLGIsYzpx
OyANCjxCUj6hoSChoSChoaGhoaEgy7XD93HKx9K71rjP8tX70M205rSitaXUqrXE1rjV68Dg0M2j
rMbk1tAiXiLOqta41eu3+6GjYSxiLGO++bao0uXOqta41eux5MG/o6y31rHwv8nS1Na4z/LSu7j2
1fvQzbTmtKK1pdSqoaMgPEJSPqGhIKGhIA0KoaGhoaGhyc/A/dKyv8m2qNLlzqqjuiA8QlI+oaEg
oaEgoaGhoaGhoaGhoSB2YXIgYSxiLGM6XmludGVnZXI7IDxCUj6hoSChoSChoaGhoaEg1rjV69Ky
v8nS1Na4z/LT0L3hubm1xLTmtKK1pdSqoaMgPEJSPqGhIA0KoaEgoaHA/cjno7p0eXBlIHBlcnNv
bj1yZWNvcmQgPEJSPqGhIKGhIKGhoaGhoaGhoaGhoaGhoaGhoSBuYW1lOnN0cmluZ1sxMF07IDxC
Uj6hoSChoSANCqGhoaGhoaGhoaGhoaGhoaGhoXNleDoobWFsZSxmZW1hbGUpOyA8QlI+oaEgoaEg
oaGhoaGhoaGhoaGhoaGhoaGhIGFnZToyMC4uNzAgPEJSPqGhIKGhIKGhoaGhoaGhoaGhoaGhIGVu
ZDsgDQo8QlI+oaEgoaEgoaGhoaGhoaEgdmFyIHB0Ol5wZXJzb247IDxCUj6hoSChoSChoaGhoaEg
cHTOqta4z/K8x8K8wODQzXBlcnNvbrXE1rjV67Hkwb+hoyA8QlI+oaEgoaEgoaEgMi62r8ysseTB
vyANCjxCUj6hoSChoSChoaGhoaEg06bTw9K7uPbWuNXr1rjP8rXEtq/MrLTmtKK1pdSqvLS2r8ys
seTBv7XE0M7Kvcjnz8KjuiA8QlI+oaEgoaEgoaGhoaGhoaGhoSDWuNXrseTBv8P7XiA8QlI+oaEg
oaEgoaEgDQrA/cjno7pwXqGicV6honJeIDxCUj6hoSChoSChoaGhoaEg1rjV67Hkwb9wus3L/Mv5
1rjP8rXEtq/MrLHkwb9ecNauvOTT0Mjnz8K52M+1o7ogPEJSPqGhIKGhIKGhIFCjrSZndDtQJyA8
QlI+oaEgoaEgDQqhodLUz8LT777ksNHV+8r9NbTmt8W1vXDL+da4z/K1xLavzKyx5MG/cF4g1tDI
paO6IDxCUj6hoSChoSChoSBwXjo9NTsgPEJSPqGhIKGhIKGhINLUz8LT777ksNFwy/nWuM/ytcRw
XtbQtcTWtbizuPjV+9DNseTBv2mjuiANCjxCUj6hoSChoSChoSBpOj1wXjsgPEJSPqGhIKGhIKGh
IMjnufvWuNXrseTBv3Cyos601rjP8sjOus605rSitaXUqqOs1PK/ydPDz8LB0Liz1rXT777ko7og
PEJSPqGhIKGhIKGhIHA6PW5pbDsgPEJSPqGhIA0KoaEgoaHG5NbQbmlsysdUdXJibyBQYXNjYWyx
o8H019ajrLHtyr6hsL/VobGjrM/gtbHT2kPA78PmtcRudWxsIDwvUD4NCjxVTD4NCiAgPExJPjxT
UEFOIGNsYXNzPXN0eWxlMj48U1RST05HPjxGT05UIGNvbG9yPSMwMDAwZmY+ttS2r8ysseTBv7XE
stnX9yANCiAgPC9GT05UPjwvU1RST05HPjwvU1BBTj48L0xJPjwvVUw+DQo8UD6hoSChodTaVHVy
b2IgUGFzY2Fss8zQ8tbQo6y2r8ysseTBv7K7xNzTyXZhctaxvdO2qNLltvjKx82ouf2199PDserX
vLn9s8xuZXe9qMGitcSho7n9s8zQzsq9zqqjuiA8QlI+oaEgoaEgDQqhoaGhoaGhoaGhbmV3KNa4
1eux5MG/w/spOyA8QlI+oaEgoaHI57n709DPwsHQseTBv7ao0uXT777ko7ogPEJSPqGhIKGhIKGh
oaGhoaGhIHZhciBwOl5pbnRlZ2VyOyANCjxCUj6hoaGhvfa99su1w/fBy3DKx9K7uPbWuM/y1fvQ
zbHkwb+1pdSqtcTWuNXrseTBv6OstavV4rj21fvQzbWl1KqyorK7tObU2qOs1NrWuNXrseTBv3DW
0Lu5w7vT0L7fzOW1xLXY1rfWtaGj1NqzzNDy1tCx2NDrzai5/bn9s8y199PD0+++5KO6bmV3KHAp
O7LF1NrE2rTm1tC31sXkwcvSu7j21fvQzbHkwb+1pdSqo6yyorDR1eK49rWl1Kq1xLXY1re3xdTa
seTBv3DW0KOs0ru49ta41eux5MG/1rvE3LTmt8XSu7j2tdjWt6Gj1NrNrNK7yrG85MTa0ru49ta4
1evWu8Tc1rjP8tK7uPax5MG/taXUqqGjtbGzzNDy1Nm0zta00NBuZXcocCnKsaOs09bU2sTatObW
0NDCvajBosHL0ru49tX70M2x5MG/taXUqqOssqKw0dDCtaXUqrXEtdjWt7Tmt8XU2nDW0KOstNO2
+LaqyqfBy77JtcSx5MG/taXUqrXEtdjWt6GjIA0KPEJSPqGhIKGhIA0KoaGhoaGhzqrBy73ayqHE
2rTmv9W85KOsttTT2tK70KnS0b6tsrvKudPDtcTP1tPQtq/MrLHkwb+jrNOmuMPKudPDserXvLn9
s8xkaXNwb3Nl0+jS1MrNt8Who7n9s8zQzsq9zqqjumRpc3Bvc2Uo1rjV67Hkwb/D+ymju86qbmV3
KNa41eux5MG/w/sptcTE5rn9s8yjrMbk1/fTw8rHys23xdPJ1rjV67Hkwb/L+da4z/K1xLavzKyx
5MG/tcS05rSitaXUqqGjwP3I59Ta08PBy25ldyhwKbrz1Nq199PDZGlzcG9zZShwKaOs1PLWuNXr
cMv51rjP8rXEtq/MrLHkwb+xu7O3z/qjrMTatOa/1bzku7m4+M+1zbOjrNXiyrEgDQo8QlI+oaEg
oaEgoaEgcLXE1rXOqiBuaWyhoyA8QlI+oaEgoaEgoaEgwP2jusrkyOvBvbj2yv2jrNKqx/PPyLTy
06G088r9uvO08tOh0KHK/bXEt73Kvcrks/ajrNPDtq/MrLHkwb/X9qGjIDxCUj48U1BBTiANCmNs
YXNzPXByb2dyYW1fdGV4dD6hoSChoSChoaGhIHByb2dyYW0gZG9uZ3RhaTsgPEJSPqGhIKGhIKGh
oaGhoSB0eXBlIGludGVwdGVyPV5pbnRlZ2VyOyANCjxCUj6hoSChoSChoaGhoaEgdmFyIHAxLHAy
OmludGVwdGVyOyA8QlI+oaEgoaEgoaGhoaGhcHJvY2VkdXJlIHN3YXAodmFyLHExLHEyOmludGVw
dGVyKTsgDQo8QlI+oaEgoaEgoaGhoaGhoaEgdmFyIHA6aW50ZWdlcjsgPEJSPqGhIKGhIKGhoaGh
oWJlZ2luIDxCUj6hoSChoSChoaGhoaGhoSBwOj1xMTtxMTo9cTI7cTI6PXA7IA0KPEJSPqGhIKGh
IKGhoaGhoSBlbmQ7IDxCUj6hoSChoSChoaGhIGJlZ2luIDxCUj6hoSChoSChoaGhoaFuZXcocDEp
O25ldyhwMik7IDxCUj6hoSChoSChoaGhoaEgDQp3cml0ZWxuKCdpbnB1dCAyIGRhdGE6ICcpO3Jl
YWRsbihwMV4scDJeKTsgPEJSPqGhIKGhIKGhoaGhoWlmIHAxXqGhoaF3cml0ZWxuKCdvdXRwdXQg
MiANCmRhdGE6ICcscDFeOjQscDJeOiQpOyA8QlI+oaEgoaEgoaGhoSBlbmQuIDwvU1BBTj48L1A+
PC9CT0RZPjwvSFRNTD4NCg==