pascal第20讲 文件.mht

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

From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?ufPW3cqhza3IyrXa0rvW0NGn?=
Date: Fri, 30 Nov 2007 12:20:52 +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=5856
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12rb+yq69sjrOxLz+PC9GT05UPjwvVEQ+PC9UUj48L1RCT0RZPjwvVEFCTEU+PEJSPg0K
PEgzIGNsYXNzPXN0eWxlMSBhbGlnbj1jZW50ZXI+zsQgoaG8/jwvSDM+DQo8UD6hoaGhzsS8/srH
0rvW1rm51OzQzbXEyv2+3cDg0M2ho9Tas8zQ8tbQtrzQ6NKqsvrJ+tK70KnK5LP2o6zSstDo0qq9
08rcyPS4ybj2yuTI66Gj1eLQqcrkyOuhosrks/bKtbzKyc/Kx9PDzsS8/rXEt723qMC0yrXP1rXE
o6zU2lBhc2NhbNbQ08Ox6te8zsS8/qGwaW5wdXShsbrNobBvdXRwdXShscC0yrXP1qOsy/zDx7fW
sfC21NOmserXvMrkyOvJ6LG4us2x6te8yuSz9snosbijqL/JyqHC1LK70LSjqdXi0rK+zcrH0rvQ
qbPM0PK1xLPM0PLK6dC0yOfPwrXE1K3S8sHLo7o8QlI+oaGhoSANCnByb2dyYW0gZXgoaW5wdXQs
b3V0cHV0KTs8QlI+oaGhoSAuLi48QlI+oaGhoSANCrWr09DKsbTzwb/K/b7dtcS2wcjrus3K5LP2
trzKx8C019S0xcXMzsS8/qOs1eK+zdKqx/PO0sPHsdjQ68rswbfVxs7VttS0xcXMzsS8/rXEstnX
96GjPC9QPg0KPFA+oaGhobbU09rO0sPHwLTLtaOsztLDx9a7sdjQ69XGztXOxLG+zsS8/qOou/Kz
xtX9zsTOxLz+o6x0ZXh0o6m1xLbB0LS8tL/JOjwvUD4NCjxQPqGhoaExLs7Esb7OxLz+tcS2qNLl
o7o8QlI+oaGhoaGhIA0KzsSxvs7EvP6yu8rHvPK1pbXY08nEs8Dg0M21xNSqy9jQ8sHQy/nX6bPJ
o6zL/LXEu/mxvtSqy9jKx9fWt/ujrNPJy/zDx7m5s8nQ0KOsyPS4ydDQ1+mzydK7t93Urc7EoaPT
ydPauPfQ0LXEs6S2yL/J0tSyu82so6zL+dLUzsSxvs7EvP7Wu8Tcy7PQ8rXYtKbA7aGjzsSxvs7E
vP61xLao0uXI58/Co7o8QlI+oaGhoaGhoaEgDQp2YXI8QlI+oaGhoaGhoaGhoSBmcDp0ZXh0OzxC
Uj6hoaGhIDIuzsSxvs7EvP61xLbBstnX96O6PEJSPqGhoaGhoSANCigxKbX308Nhc3NpZ265/bPM
o6yw0bTFxczOxLz+uLPT6M7Esb7OxLz+seTBv6O7PEJSPqGhoaGhoaGhoaGhoSBhc3NpZ24oZnAs
ZmlsZW5hbWUpOzxCUj6hoaGhoaEgDQooMim199PDcmVzZXS5/bPMo6zOqrbBstnX99f217yxuKO7
PEJSPqGhoaGhoaGhoaGhoSByZXNldChmcCk7PEJSPqGhoaGhoSANCigzKdTa0OjSqrbByv2+3bXE
zrvWw7X308NyZWFkuf2zzLvycmVhZGxuuf2zzKGjPEJSPqGhoaGhoaGhoaGhoSByZWFkbG4oZnAs
dmFyMSx2YXIyLC4uLix2YXJuKTs8QlI+oaGhoSANCjMuzsSxvs7EvP61xNC0stnX96O6PEJSPqGh
oaGhoSAoMSm199PDYXNzaWduuf2zzKOssNG0xcXMzsS8/riz0+jOxLG+zsS8/rHkwb+juzxCUj6h
oaGhoaGhoaGhoaEgDQphc3NpZ24oZnAsZmlsZW5hbWUpOzxCUj6hoaGhoaEgKDIptffTw3Jld3Jp
dGW5/bPMo6zOqtC0stnX99f217yxuKO7PEJSPqGhoaGhoaGhoaGhoSANCnJld3JpdGUoZnApOzxC
Uj6hoaGhoaEgKDMp1NrQ6NKq0LTK/b7dtcTOu9bDtffTw3dyaXRluf2zzLvyd3JpdGVsbrn9s8yh
ozxCUj6hoaGhoaGhoaGhoaEgDQp3cml0ZWxuKGZwLHZhcjEsdmFyMiwuLi4sdmFybik7PEJSPqGh
oaEgNC7OxLG+zsS8/rXEudix1bLZ1/ejujxCUj6hoaGhoaEgY2xvc2UoZnApOyA8QlI+oaGhoSAN
CjUuzsSxvs7EvP61xMbky/uy2df3o7o8QlI+oaGhoaGhICgxKUVPRihmcCmhqrK8tvu6r8r9o6zT
w9PaxdC2z87EvP694cr4t/GhozxCUj6hoaGhoaEgDQooMilFT0xOKGZwKaGqsry2+7qvyv2jrNPD
09rF0LbP0NC94cr4t/GhozwvUD4NCjxQPjxCUj5bwP04oaIxXbDRMbW9MTAw1eIxMDC49sr919bQ
tLW90ru49s7Esb7OxLz+o6hBTlNXRVIuVFhUo6nW0KGjPEJSPjxTUEFOIGNsYXNzPXByb2dyYW1f
dGV4dD5WYXIgDQpJOmludGVnZXI7PEJSPqGhRjp0ZXN0OzxCUj5CZWdpbjxCUj6hoUFzc2lnbihm
LKGvYW5zd2VyLnR4dKGvKTs8QlI+oaFSZXdyaXRlKGYpOzxCUj6hoUZvciANCkk6PTEgdG8gMTAw
IGRvIA0Kd3JpdGVsbihmLEkpOzxCUj6hoUNsb3NlKGYpOzxCUj5FbmQuPC9TUEFOPjxCUj5bwP04
oaIyXbDR0tTPws7Esb7OxLz+1tC1xMquuPbV+8r9tsGz9sC0o6zIu7rzsLS089Chy7PQ8tC0u9i0
y87EvP7W0KGjPEJSPk5VTUJFUi5UWFQ8QlI+MyANCjUgNyAxPEJSPjIgOCAxMiA1NCAxNCA5PEJS
PrPM0PLI58/Co7o8QlI+PFNQQU4gY2xhc3M9cHJvZ3JhbV90ZXh0PnZhciANCmY6dGV4dDs8QlI+
bjphcnJheVsxLi4xMF0gb2YgDQppbnRlZ2VyOzxCUj6hoUksajppbnRlZ2VyOzxCUj5iZWdpbjxC
Uj6hoWFzc2lnbihmLKGvbnVtYmVyLnR4dKGvKTs8QlI+oaFyZXNldChmKTs8QlI+oaFyZWFkKGYs
blsxXSxuWzJdLG5bM10sbls0XSk7PEJSPqGhcmVhZGxuKGYpOzxCUj6hoXJlYWRsbihmLG5bNV0s
bls2XSxuWzddLG5bOF0sbls5XSxuWzEwXSk7PEJSPqGhY2xvc2UoZik7PEJSPqGhe7TLtKbT777k
zqrFxdDyyv3X6U6jrLTzvNLX1NLRvNPI632juzxCUj6hoXJld3JpdGUoZik7PEJSPqGhZm9yIA0K
STo9MSB0byAxMCBkbyB3cml0ZWxuKGYsSSk7PEJSPqGhY2xvc2UoZik7PEJSPmVuZC48L1NQQU4+
IDwvUD4NCjxQPsG3z7CjujxCUj6hoaGhIA0KMS6x4NC0s8zQ8rTTtMXFzMnPtsHIodK7uPbTyTEw
MLj2yrXK/dfps8m1xMq10M3K/b7dzsS8/ihpbmRhdGEuZGF0KaOs0tS0y87EvP7W0Mv509C089Pa
xr2++da1tcTKtcr9vajBotK7uPbD+86qobBhYm92ZS5kYXShsbXEzsS8/qOsxuTT4LXEvajBotK7
uPbD+86qobByZXN0LmRhdKGxtcTOxLz+oaM8QlI+oaGhoSANCjIu0LTSu7j2s8zQ8qOssNHOxLG+
zsS8/tbQy/nT0EdPT0S4xM6qQkFEoaM8L1A+PC9CT0RZPjwvSFRNTD4NCg==