pascal第19讲 集合与记录.mht

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

From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?ufPW3cqhza3IyrXa0rvW0NGn?=
Date: Fri, 30 Nov 2007 12:20:28 +0800
MIME-Version: 1.0
Content-Type: multipart/related;
	type="text/html";
	boundary="----=_NextPart_000_0040_01C8334B.646D7D40"
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180

This is a multi-part message in MIME format.

------=_NextPart_000_0040_01C8334B.646D7D40
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: base64
Content-Location: http://www.tryz.com.cn/yz/PRINTLR.ASP?ID=5855

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12squvsW9sjq8r7rP0+u8x8K8PC9GT05UPjwvVEQ+PC9UUj48L1RCT0RZPjwvVEFCTEU+
PEJSPg0KPEgzIGNsYXNzPXN0eWxlMSBhbGlnbj1jZW50ZXI+vK+hobrPPC9IMz4NCjxQPtK7Lryv
us+1xLao0uWjuiA8QlI+oaGhoSA8U1RST05HPjxGT05UIGNvbG9yPSMwMDAwZmY+PFNQQU4gY2xh
c3M9c3R5bGUzPnR5cGUgwODQzcP7PXNldCANCm9mILv5wODQzTwvU1BBTj48QlI+PC9GT05UPjwv
U1RST05HPqGhoaEgwP3I56O6PEJSPqGhoaGhoaGhIHR5cGU8QlI+oaGhoaGhoaGhoSBudW09c2V0
IG9mIA0KY2hhcjs8QlI+oaGhoaGhoaEgdmFyPEJSPqGhoaGhoaGhoaEgbjpudW07PEJSPqGhoaGh
oSC78jxCUj6hoaGhoaGhoSB2YXI8QlI+oaGhoaGhoaGhoSBuOiBzZXQgb2YgY2hhcjsgDQo8L1A+
DQo8UD6hoSC2/i68r7rPtcTUy8vjo7o8QlI+oaGhoaGhIDEuvK+6z7XEse3KvqO6PEJSPqGhoaGh
oaGhINPD0rvX6be9wKi6xcCousXSu9fp1KrL2MC0se3KvqOs1KrL2NauvOTTw7a6usW31rj0oaPI
56O6PEJSPqGhoaGhoaGhoaEgDQpbQSxCLEMsRF2jraOt09DLxLj2w7a+2cG/tcS8r7rPPEJSPqGh
oaGhoaGhoaEgWydBJywnQicsJ0MnLCdEJ12jraOt09DLxLj219a3+7XEvK+6zzxCUj6hoaGhoaGh
oaGhIA0KWzEuLjIwXaOto62w/Lqswcsxtb0yMNbQy/nT0NX7yv21xLyvus88QlI+oaGhoaGhoaGh
oSBbMF2jraOt1rvT0NK7uPbUqsvYMLXEtaXUqsvYvK88QlI+oaGhoaGhoaGhoSBbXaOto62/1byv
IDxCUj6hoaGhoaEgDQoyLryvus+1xNTLy+OjujxCUj6hoaGhoaGhoSAoMSm4s9a1KDo9KTo8QlI+
oaGhoaGhoaGhoaGhIGxsOj1bJ0EnLi4nQyddOzxCUj6hoaGhoaGhoSAoMimyoigrKTogDQo8QlI+
oaGhoaGhoaGhoaGhIFswLi43XStbMC4uNF21xNa1zqpbMC4uN10gPEJSPqGhoaGhoaGhICgzKb27
KCopOiA8QlI+oaGhoaGhoaGhoaGhIA0KWzAuLjddKlswLi40XbXE1rXOqlswLi40XTxCUj6hoaGh
oaGhoSAoNCmy7igtKTogPEJSPqGhoaGhoaGhoaGhoSANClswLi43XS1bMC4uNF21xNa1zqpbNS4u
N108QlI+oaGhoaGhoaEgKDUpz+C1yCg9KTo8QlI+oaGhoaGhoaGhoaGhIFswLi43XT1bMC4uNF21
xNa1zqpmYWxzZSANCjxCUj6hoaGhoaGhoSAoNimyu7XIKCZsdDsmZ3Q7KTogPEJSPqGhoaGhoaGh
oaGhoSBbMC4uN10mbHQ7Jmd0O1swLi40XbXE1rXOqnRydWUgPEJSPqGhoaGhoaGhIA0KKDcpsPy6
rNPaKCZsdDs9KTogPEJSPqGhoaGhoaGhoaGhoSBbMC4uN10mbHQ7PVswLi40XbXE1rXOqmZhbHNl
PEJSPqGhoaGhoaGhIA0KKDgpsPy6rCgmZ3Q7PSk6PEJSPqGhoaGhoaGhoaGhoSBbMC4uN10mZ3Q7
PVswLi40XbXE1rXOqnRydWUgPEJSPqGhoaGhoaGhICg5KbPJ1LG05tTa09ogDQooaW4pOjxCUj6h
oaGhoaGhoaGhoaEgMSBpbiBbMC4uNF21xNa1zqp0cnVlPEJSPqGhoaGhoSAzLtei0uKjujxCUj6h
oaGhoaGhoSANCigxKbyvus/Uy8vjz+C1sb/so6zU2rPM0PLW0LOj08O8r7rPse2078q9wLTD6Mr2
uLTU07XEsuLK1KGjyOc8QlI+oaGhoaGhoaGhoaGhIEEpzPW8/rHttO/KvaO6IChjaD0nVCcpIG9y
IChjaD0ndCcpIG9yIA0KKGNoPSdZJykgb3IgKGNoPSd5Jykgv8nTw7yvus+x7bTvyr2x7cq+zqqj
ujxCUj6hoaGhoaGhoaGhoaGhoSBjaCBpbiBbJ1QnLCd0JywnWScsJ3knXTxCUj6hoaGhoaGhoaGh
oaEgDQpCKWlmIChjaCZndDs9MjApIGFuZCAoY2gmbHQ7PTUwKSB0aGVuIC4uLjsgPEJSPqGhoaGh
oaGhoaGhoaGhIL/J0LSzyaO6PEJSPqGhoaGhoaGhoaGhoaGhoaGhoSBpZiBjaCANCmluIFsyMC4u
NTBdIHRoZW4gLi4uOzxCUj6hoaGhoaGhoSAoMim8r7rPwODQzcrH0rvW1sq508O88rHjo6y92sqh
xNq05sPm09bUy8vjy9m2yL/stcTK/b7dwODQzaGjPEJSPqGhoaGhoaGhICgzKVR1cmJvIA0KUGFz
Y2Fsuea2qLyvus+1xNSqy9i49sr9sruzrLn9MjU2uPYotbHKtbzKzsrM4sv50Oi1xNSqy9i49sr9
tPPT2jI1Nsqxo6wgv8myydPDsry2+8r91+m0+szmvK+6z8Dg0M0poaPL+dLUyOfPwrao0uXKx7Tt
zvO1xKO6IHZhciBpOiBzZXQgDQpvZiBpbnRlZ2VyOyA8QlI+oaGhoaGhoaEgKDQpvK+6z8Dg0M2x
5MG/srvE3L340NDL48r11MvL46Oswcuyu9TK0O3Tw7bBL9C00+++5NaxvdPK5MjrL8rks/a8r7rP
oaMgy/nS1Lyvus+1xL2owaKjuiA8QlI+oaGhoaGhoaGhoSANCkEp0qrNqLn9uLPWtdPvvuTKtc/W
OzxCUj6hoaGhoaGhoaGhIEIpu/LPyLP1yry7r9K7uPa8r7rPo6zIu7rzzai5/bKi1MvL48/yvK+6
z9bQ1vCyvbzTyOu497j21KrL2C48QlI+oaGhoaGhoaEgDQooNSm8r7rP1KrL2MrHzt7Q8rXEo6zL
+dLUb3Jko6xwcmVkus1zdWNjuq/K/bK7xNzTw9PavK+6z8Dg0M21xLHkwb+hozxCUj6hoaGhoaEg
NC7A/TGjujxTUEFOIGNsYXNzPXN0eWxlND48Rk9OVCANCmNvbG9yPSMwMDAwZmY+vajBosG9uPa8
r7rPo6zIu7rzttTL/MPHvfjQ0Lbg1ta8r7rP1MvL46OssqLH0srks/a94bn7oaM8L0ZPTlQ+PC9T
UEFOPjxBIA0KaHJlZj0iaHR0cDovL3d3dy53cHl6Lm5ldC9ub2lwL2ZpbGVzL1BzZXQxLnR4dCI+
PElNRyBoZWlnaHQ9OCANCnNyYz0iaHR0cDovL3d3dy53cHl6Lm5ldC9ub2lwL2ltYWdlcy9idWxs
ZXQxLmdpZiIgd2lkdGg9OSBib3JkZXI9MD48L0E+PEJSPqGhoaGhoSANCjUuwP0yo7o8U1BBTiBj
bGFzcz1zdHlsZTQ+PEZPTlQgY29sb3I9IzAwMDBmZj7Uy9PDvK+6z83qs8nJuLeo1dLL2Mr9oaM8
L0ZPTlQ+PEEgDQpocmVmPSJodHRwOi8vd3d3LndweXoubmV0L25vaXAvZmlsZXMvUHNldDIudHh0
Ij48SU1HIGhlaWdodD04IA0Kc3JjPSJodHRwOi8vd3d3LndweXoubmV0L25vaXAvaW1hZ2VzL2J1
bGxldDEuZ2lmIiB3aWR0aD05IA0KYm9yZGVyPTA+PC9BPjwvU1BBTj48L1A+DQo8UD6hocj9oaLB
t8+wo7o8QlI+PFNQQU4gY2xhc3M9c3R5bGUyPjxGT05UIGNvbG9yPSM2NjAwMDA+oaGhoSANCjGh
orTTvPzFzMrkyOvSu7j219a3+7Suo6y9+NDQz8LD5rXEseS7u6O6PC9GT05UPjxBIA0KaHJlZj0i
aHR0cDovL3d3dy53cHl6Lm5ldC9ub2lwL2ZpbGVzL3AxNjhfMy50eHQiPjxGT05UIGNvbG9yPSM2
NjAwMDA+PElNRyANCmhlaWdodD04IHNyYz0iaHR0cDovL3d3dy53cHl6Lm5ldC9ub2lwL2ltYWdl
cy9idWxsZXQxLmdpZiIgd2lkdGg9OSANCmJvcmRlcj0wPjwvRk9OVD48L0E+PEJSPjxGT05UIGNv
bG9yPSM2NjAwMDA+oaGhoaGhIA0KKDEpyv3X1jAsMSwyLDMsLi4uLDm31rHwus3X1sS4YSxiLGMs
Li4uLGq7pbu7o7s8QlI+oaGhoaGhICgyKdfWxLhrLG0scCx0LHm31rHw0+vG5LrzvMy7pbu7o7s8
QlI+oaGhoaGhIA0KKDMpxuTL/NfWxLi6zb/VuPGxo7PWsrux5KOsyuTI69fWt/u0rtLUvuS6xb3h
yvijuzxCUj6hoaGhIDIuseCzzLbByOvBvbj219a3+7Suo6zIu7rzyuSz9sjnz8LQxc+io7o8L0ZP
TlQ+PEEgDQpocmVmPSJodHRwOi8vd3d3LndweXoubmV0L25vaXAvZmlsZXMvUDE2OF80LnR4dCI+
PEZPTlQgY29sb3I9IzY2MDAwMD48SU1HIA0KaGVpZ2h0PTggc3JjPSJodHRwOi8vd3d3LndweXou
bmV0L25vaXAvaW1hZ2VzL2J1bGxldDEuZ2lmIiB3aWR0aD05IA0KYm9yZGVyPTA+PC9GT05UPjwv
QT48QlI+PEZPTlQgY29sb3I9IzY2MDAwMD6hoaGhoaEgKDEps/bP1tTaxLPSu7j219a3+7Su1tDW
wcnZ0ru0zrXE19bEuLrNyv3X1qO7PEJSPqGhoaGhoSANCigyKc2syrGz9s/W1NrBvbj219a3+7Su
1tDWwcnZ0ru0zrXE19bEuLrNyv3X1qO7PEJSPqGhoaGhoSAoMymz9s/W1NrSu7j219a3+7Su1tC2
+LK7s/bP1tTawe3Su7j219a3+7Su1tC1xNfWxLi6zcr919ajuzxCUj6hoaGhoaEgDQooNCmyu7P2
z9bU2sjOus7X1rf7tK7W0LXE19bEuLrNyv3X1qGjPC9GT05UPjwvU1BBTj48L1A+DQo8SDMgY2xh
c3M9c3R5bGUxIGFsaWduPWNlbnRlcj68xyChocK8PC9IMz4NCjxQPjxCUj6hoSDSuy68x8K8tcS2
qNLlo7o8QlI+PFNUUk9ORz48Rk9OVCBjb2xvcj0jMDAwMGZmPjxTUEFOIGNsYXNzPXN0eWxlMz6h
oaGhIHR5cGUgDQrA4NDNserKtrf7PXJlY29yZDxCUj6hoaGhoaGhoaGhINfWts7D+zGjusDg0M0x
o7s8QlI+oaGhoaGhoaGhoSDX1rbOw/syo7rA4NDNMqO7PEJSPqGhoaGhoaGhoaGhoSAuLi48QlI+
oaGhoaGhoaGhoSANCtfWts7D+26jusDg0M1uo7s8QlI+oaGhoaGhoaEgZW5kOzwvU1BBTj48QlI+
PC9GT05UPjwvU1RST05HPqGhoaEgyOejuiA8QlI+oaGhoaGhIHR5cGUgPEJSPqGhoaGhoaGhIA0K
c3R1ZGF0YT1yZWNvcmQ8QlI+oaGhoaGhoaGhoSBudW06c3RyaW5nWzZdOzxCUj6hoaGhoaGhoaGh
IG5hbWU6c3RyaW5nWzhdOzxCUj6hoaGhoaGhoaGhIA0Kc2V4OmJvb2xlYW47PEJSPqGhoaGhoaGh
oaEgczphcnJheVsxLi41XSBvZiByZWFsOyA8QlI+oaGhoaGhoaEgZW5kOzxCUj6hoaGhoaEgdmFy
PEJSPqGhoaGhoaGhIA0Kc3R1ZGVudDpzdHVkYXRhOzxCUj6hoaGhoaGhoSBzdHVkZW50czphcnJh
eVsxLi4xMF0gb2Ygc3R1ZGF0YTs8QlI+oaEgtv4uvMfCvLXE1MvTw6O6PEJSPqGhoaEgDQoxLrbU
vMfCvNbQus249tPytcTS/dPDo6zSqtC0s/a8x8K8w/u6zdPyw/ujrMjno7pzdHVkZW50Lm51bTxC
Uj6hoaGhIDIuv6rT8tPvvuSjundpdGihozxCUj6hoaGhoaGhoSB3aXRoILzHwrzD+yBkbyDT777k
o7sgDQo8QlI+oaGhoaGhILvyIDxCUj6hoaGhoaGhoSB3aXRoILzHwrzD+zGjrLzHwrzD+zKjrC4u
LiBkbyDT777ko7s8QlI+oaGhoaGhINei0uKjujxCUj6hoaGhoaGhoSAoMSkgDQrU2mRvuvPD5tPv
vuTW0Mq508O1xLzHwry1xNPyyrGjrNa70qq88rWltdjQtLP20/LD+77Nv8nS1MHLo6wg0/LD+8ew
tcS8x8K8seTBv7rNIi4ivvm/ycqhwtShoyA8QlI+oaGhoaGhoaEgKDIpIA0K1Nq52Lz819Z3aXRo
uvPD5qOs0+++5L/J0tTKx9K7uPa88rWl0+++5KOswcu/ydLUysfSu7j2uLS6z9PvvuShoyA8QlI+
oaGhoaGhoaEgKDMpIA0Ky+TIu9Tad2l0aLrzv8nS1NPQtuC49rzHwryx5MG/w/ujrLWr0ruw49Ta
d2l0aLrz1rvKudPD0ru49rzHwryx5MG/w/uhozwvUD4NCjxQIGNsYXNzPWNvbW1vbj5bwP02oaIy
XbHg0ruzzNDyo6zTw8C0vMfCvDIwuPbRp8n6tcTQ1cP7oaLE6ry2oaKw4Ly2oaLQ1LHwoaLT787E
s8m8qKGiyv3Rp7PJvKihotfct9ajrMa9vvm31qGjPEJSPlR5cGUgDQpzdHVkZW50PXJlY29yZDxC
Uj6hoaGhTmFtZTpzdHJpbmc7PEJSPqGhoaFHcmFkZSxjbGFzcyxjaGluZXNlLG1hdGhlLHN1bTpp
bnRlZ2VyOzxCUj6hoaGhQXZlcmFnZTpyZWFsOzxCUj6hoaGhTWFsZTpib29sZWFuOzxCUj5FbmQ7
PEJSPlZhciANCnM6YXJyYXlbMS4uMjBdIG9mIHN0dWRlbnQ7PEJSPqGhoaFJLGo6aW50ZWdlcjs8
QlI+QmVnaW48QlI+oaFGb3IgSTo9MSB0byAyMCBkbyANCmJlZ2luPEJSPqGhoaFXcml0ZSihrnBs
ZWFzZSBpbnB1dCB0aGUgc3R1ZGVudKGvcyANCm5hbWUsZ3JhZGUsY2xhc3MsbWFsZSxjaGluZXNl
LG1hdGhlKTs8QlI+oaGhoVJlYWRsbihzW0ldLm5hbWUpOzxCUj6hoaGhUmVhZGxuKHNbSV0uZ3Jh
ZGUpOzxCUj6hoaGhUmVhZGxuKHNbSV0uY2xhc3MpOzxCUj6hoaGhUmVhZGxuKHNbSV0ubWFsZSk7
PEJSPqGhoaFSZWFkbG4oc1tJXS5jaGluZXNlKTs8QlI+oaGhoVJlYWRsbihzW0ldLm1hdGhlKTs8
QlI+oaGhoVNbSV0uc3VtOj1zW0ldLmNoaW5lc2Urc1tJXS5tYXRoZTs8QlI+oaGhoVNbSV0uYXZl
cmFnZTo9c1tpXS5zdW0vMjxCUj6hoUVuZDs8QlI+oaGhraGtoa2hrTxCUj6hoXvI57n7s8zQ8tKq
x/O08tOhu/LFxdDyo6zWu9Do1Nq0y9T2vNPV4tCpuabE3NPvvuR9PEJSPmVuZC48L1A+PC9CT0RZ
PjwvSFRNTD4NCg==

------=_NextPart_000_0040_01C8334B.646D7D40
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: http://www.wpyz.net/noip/images/bullet1.gif

R0lGODlhCgAKAMQAAABmZnCpqUCMjLzX1yN7e12ensXc3JG9vf///xZzczCDg1CWlmajo5zExNPl
5X+ysil/f2aZmYCzs////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAUU
ABMALAAAAAAKAAoAAAVG4DQNAgAIgzg9QAIpUPKMACEUTCEQZCIEh8YhIFgAIIXDwDE4FCAABaPh
QDgaDIUAqWQ6CwMfUEg0TCQ2nO6gGixeBfMkBAA7

------=_NextPart_000_0040_01C8334B.646D7D40--