pascal第02讲 程序的基本结构.mht

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

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

This is a multi-part message in MIME format.

------=_NextPart_000_0005_01C83347.F48942F0
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: base64
Content-Location: http://www.tryz.com.cn/yz/PRINTLR.ASP?ID=5664

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5Q
QVNDQUy12rb+vbI6s8zQ8rXEu/mxvr3hubk8L0ZPTlQ+PC9URD48L1RSPjwvVEJPRFk+PC9UQUJM
RT48QlI+0ruhorPM0PK1xLv5sb694bm5IA0KPEJSPjxCUj5wcm9ncmFtJm5ic3A7YXJlYV9vZl9j
aWNsZTsgPEJSPmNvbnN0Jm5ic3A7cGk9My4xNDE2OyANCjxCUj52YXImbmJzcDtzOnJlYWw7IDxC
Uj6hoXI6aW50ZWdlcjsgPEJSPmJlZ2luIA0KPEJSPqGhd3JpdGVsbiihrlBsZWFzZSZuYnNwO2lu
cHV0Jm5ic3A7cmFkaXVzJm5ic3A7OqGvKTsgPEJSPqGhcmVhZGxuKHIpOyANCjxCUj6hoXM6PXBp
KnIqcjsgPEJSPqGhd3JpdGVsbiihrnM9oa8scyk7IDxCUj6hoXJlYWRsbjsgPEJSPmVuZC4mbmJz
cDsgDQo8QlI+PEJSPsO/0ru49iZuYnNwO1BBU0NBTLPM0PK2vNPJs8zQ8s23sr+6zbPM0PLW98zl
1+mzyaOs1+6689LUobAmbmJzcDtlbmQuobHX986q1fu49rPM0PK1xL3hyvihoyZuYnNwOyANCjxC
Uj48QlI+s8zQ8s23sr8gDQo8QlI+PEJSPrPM0PLNt7K/usHO3tLJzsrKx9Tas8zQ8rXEv6rNt867
1sOjrNLUobAmbmJzcDtwcm9ncmFtobHV4rj2tMq/qsq8o6i1q76ts6PKocLU1eLSu6Opo6w8QlI+
0tS12tK7uPYmbmJzcDtCRUdJTrXEx7DSu9DQveHK+KOs1tC85MO/0NC6877509C31rrFoaMgDQo8
QlI+PEJSPtLUJm5ic3A7Q09OU1TOqr+qyry1xLK/t9bKx8u1w/ezzNDy1tDSqtPDtb21xLOjwb+j
rNLUJm5ic3A7VkFSzqq/qsq8tcSyv7fWysfLtcP3s8zQ8tbQ0qrTwzxCUj61vbXEseTBv6GjvLSz
zNDy1tDSqtPDtb21xMv509C1xLOjwb+8sLHkwb+jrM7Sw8ex2NDo1NqzzNDyyteyv7zT0tTLtcP3
xuTD+7PGvLDA4DxCUj7QzaGj1eLQqc7Sw8e9q9TaydS6872ytb2hoyANCjxCUj48QlI+s8zQ8tb3
zOUgPEJSPjxCUj7S1LXa0ru49iZuYnNwO0JFR0lOv6rKvKOs0tTX7rrz0ru49iZuYnNwO0VORL3h
yvijrNbQvOS8tM6qs8zQ8sP8we7Q0KOsw7/Su9DQvvnS1LfWusW94cr4o6EgDQo8QlI+PEJSPrb+
oaJQYXNjYWzTw7W9tcTK/brNt/u6xSA8QlI+PEJSPjGholBBU0NBTNPv0dS1xNfWt/ux7SA8QlI+
PEJSPsrHQVNDSUnX1rf7vK+jrNb30qrT0KO6IA0KPEJSPjxCUj6hoaLFMja49tOizsTX1sS4KLK7
t9a089Ch0LQpIDxCUj48QlI+oaGixsquuPbK/dfWt/u6xSA8QlI+PEJSPqGhosfM2Mrit/u6xaGj
yOcrLSovPSZndDsmbHQ7o92j26O6o7ujrrXIIA0KPEJSPjxCUj4yoaKx6sq2t/sgPEJSPjxCUj7S
1NfWxLi/qs23tcTX1sS4yv3X1tDywdAotPPQodC0tcjQp6Osv8m4+s/Cu67P318po6zTw8C0serK
trOjwb+horHkwb+horPM0PKhorqvyv21yKGjIA0KPEJSPjxCUj7X1Lao0uWx6sq2t/vKsdKq16LS
4tfx0a20y7nm1PKhoyA8QlI+PEJSPjOhorHq17yx6sq2t/vT67GjwfTX1iANCjxCUj48QlI+serX
vLHqyra3+9PQNDC49qOszuXA4ChmYWxzZSZuYnNwO3RydWUmbmJzcDttYXhpbnQmbmJzcDtCb29s
ZWFuJm5ic3A7cmVhbCZuYnNwO2ludGVnZXImbmJzcDtjaGFyJm5ic3A7YWJzJm5ic3A7dHJ1bmMm
bmJzcDtyZWFkJm5ic3A7PEJSPndyaXRlKc/qvPvK6VAxNqGjIA0KPEJSPjxCUj6xo8H019bKx1Bh
c2NhbNPv0dTW0L7f09DM2LaotcS6rNLltcTX1rf7oaPU2lBBU0NBTDcuMNbQyunQtLGjwfTX1rXE
yrG68qOs19a3+9HVyau74TxCUj6x5M6qsNfJq6GjIDxCUj7Su7myMza49rGjwfTX1qO6IA0KPEJS
Pihwcm9ncmFtJm5ic3A7ZnVuY3Rpb24mbmJzcDtiZWdpbiZuYnNwO2VuZCZuYnNwO3Byb2NlZHVy
ZSZuYnNwO3ZhciZuYnNwO2NvbnN0Jm5ic3A7YXJyYXkmbmJzcDtpZiZuYnNwO3RoZW4mbmJzcDtl
bHNlJm5ic3A7Y2FzZSZuYnNwO2ZvciZuYnNwO3RvJm5ic3A7ZG8mbmJzcDs8QlI+cmVwZWF0Jm5i
c3A7dW50aWwmbmJzcDt3aGlsZSZuYnNwO2FuZCZuYnNwO2RpdiZuYnNwO2luJm5ic3A7bW9kJm5i
c3A7bm90Jm5ic3A7b3ImbmJzcDtuaWwgDQo8QlI+PEJSPjShorOjwb+6zbHkwb+juiA8QlI+PEJS
PrPM0PLJ6LzG1tC+rbOj0qrTw7W9s6PBv7rNseTBv6Os1eLQqba8sdjQ68/ItqjS5brzssXE3Mq5
08OhoyANCjxCUj48QlI+UEFTQ0FM0+/R1LXEs6PBv9PrseTBv7a8sdjQ69Tas8zQ8s23sr/PyLzT
0tTLtcP3o6y8tMu1w/ezo8G/oaKx5MG/tcS1xMP7s8a8sMr9vt3A4NDNoaMgDQo8QlI+UEFTQ0FM
0+/R1LXEyv2+3cDg0M263Lbgo6zX7rOj08O1xNPQ0tTPwry41tajuiA8QlI+PEJSPtX7yv3A4NDN
o6jDu9PQ0KHK/bK/t9ajqSZuYnNwOyANCjxCUj5JTlRFR0VSo7rIoda1t7bOpyZuYnNwO1stMzI3
NjijrCZuYnNwOzMyNzY3XaGj1bzTw8TatOYmbmJzcDsyuPbX1r3ao6gmbmJzcDsxNs67o6mhoyAN
CjxCUj48QlI+V09SRKO6yKHWtbe2zqcmbmJzcDtbMKOsJm5ic3A7NjU1MzVdoaPVvNPDxNq05iZu
YnNwOzK49tfWvdqjqCZuYnNwOzE2zrujqaGjIA0KPEJSPjxCUj5CWVRFo7rIoda1t7bOpyZuYnNw
O1swo6wmbmJzcDsyNTVdoaPVvNPDxNq05iZuYnNwOzG49tfWvdqjqCZuYnNwOzjOu6OpoaMgDQo8
QlI+PEJSPkxPTkdJTlSjusih1rW3ts6nJm5ic3A7Wy0yMTQ3NDgzNjQ4o6wmbmJzcDsyMTQ3NDgz
NjQ3XaGj1bzTw8TatOYmbmJzcDs0uPbX1r3ao6gmbmJzcDszMs67o6mhoyANCjxCUj48QlI+U0hP
UlRJTlSjusih1rW3ts6nJm5ic3A7Wy0xMjijrCZuYnNwOzEyN12ho9W808PE2rTmJm5ic3A7Mbj2
19a92qOoJm5ic3A7OM67o6mhoyANCjxCUj48QlI+zNi146O6IDxCUj48QlI+v8m9+NDQK6GiLaGi
KqGiRElWKNX7s/0poaJNT0QoyKHT4CkmbmJzcDsgPEJSPtei0uKyu8Tc08Mvo6zS8s6qtcO1vbXE
veG5+7/JxNyyu86q1fvQzaGjIA0KPEJSPjxCUj7Ktcr9wODQzSZuYnNwOyANCjxCUj5SRUFMo7rI
oda1t7bOpyZuYnNwO1syLjlFLTM5o6wmbmJzcDsxLjdFKzM4XaGj1bzTw8TatOYmbmJzcDs2uPbX
1r3ao6gmbmJzcDs0OM67o6mhoyANCjxCUj48QlI+yrXK/bXEse3Kvreo09DBvdbWo7ogDQo8QlI+
PEJSPjGhosquvfjWxrHtyr63qKOsyOejuiZuYnNwOy0wLjQ1NzYsJm5ic3A7MTIzLjU2NywmbmJz
cDstMjM0LCZuYnNwOzAgDQo8QlI+PEJSPjKhor/G0ae8xsr9t6ijrMjno7ombmJzcDsxLjIzNEUt
NCwmbmJzcDstMy41NDZFMTIgDQo8QlI+PEJSPrHtyr4mbmJzcDsxLjIzNLPLJm5ic3A7MTC1xLi6
Jm5ic3A7NLTOJm5ic3A7Lre9o7smbmJzcDstMy41NDazyyZuYnNwOzEwtcQmbmJzcDsxMrTOt72h
oyANCjxCUj48QlI+zNi146O6IDxCUj48QlI+sPzAqNX9yrXK/aGiuLrKtcr9us3B46Gj1MvL48L9
o6zO3reovqvIt7Htyr6hoyZuYnNwOyANCjxCUj6/yb340NAroaItoaIqoaIv1MvL46Gj1fvK/dPr
yrXK/dTLy+PKsdfUtq/Xqs6qyrXK/b340NDUy8vjoaMmbmJzcDsgPEJSPtfWt/vA4NDNJm5ic3A7
IA0KPEJSPkNIQVKjurWl19a3+9DNo6y8tMihJm5ic3A7Mbj219a3+6OsyOehriZuYnNwO0Ghr6Os
Jm5ic3A7oa4mbmJzcDsxoa+hoyANCjxCUj48QlI+U1RSSU5Ho7rX1rf7tK7QzaOsvLS24Lj219a3
+6OsyOehriZuYnNwO0FCQ0SjoSZuYnNwOzEyM6Gvo6yhriZuYnNwOyWjpCZuYnNwOyNEUzEyoa+h
oyANCjxCUj48QlI+yOe5+9K7uPazoyZuYnNwOy+x5MG/1rvSqtPDtb0mbmJzcDsxuPbX1rf7o6zU
8r/JsNHL/Lao0uWzySZuYnNwO0NIQVLQzaO7yOe5+8rHtuC49tfWt/ujrLWrsrvWqjxCUj7It8fQ
tuDJ2bj2o6zU8rao0uWzySZuYnNwO1NUUklOR9DNo6zI57n71qq1wMi3x9DT0CZuYnNwO0649tfW
t/ujrNTytqjS5bPJJm5ic3A7U1RSSU5HW05d0M2ho9fWPEJSPrf7tK7U2iZuYnNwO1BBU0NBTNbQ
yrnTw7a8yse808nPtaXS/brFoaMgDQo8QlI+PEJSPszYteOjuiANCjxCUj48QlI+19a3+7OjJm5i
c3A7L7Hkwb/Kx9PJtaW49tfWt/vX6bPJtcSjrMv509DX1rf7trzAtNfUQVNDSUnX1rf7vK+ho9fW
t/u1xMr9vt3Kx9PDwb249rWlPEJSPtL9usWw0bWluPbX1rf7wKjG8MC0se3KvrXEoaMmbmJzcDsg
DQo8QlI+w7+49tfWt/u2vNPQ0ru49tDy1rUo1NpBU0NJSdfWt/u8r7XEzrvWwymjrL/J0tTTw8H5
uPa52M+11MvL47f7o6ijvqOso72jrKO8o6yjvqO9o6w8QlI+o7yjvaOso6GjvaOpwLSxyL3PtPPQ
oaGjJm5ic3A7IA0KPEJSPrK8tvvQzSZuYnNwOyANCjxCUj5CT09MRUFOo7qyvLb70M28tM6qwt+8
rdDNo6zIoda1zqombmJzcDtUUlVFoaImbmJzcDtGQUxTRaOsJm5ic3A7vLTV5qGivNmho9Ky09DQ
8qOsdHJ1ZSZuYnNwO86qMaOsZmFsc2XOqjChoyANCjxCUj48QlI+oaGhoaGhoaGhoaGhsry2+9DN
09DI/bj21MvL47f7o7phbmQmbmJzcDtvciZuYnNwO25vdCA8QlI+PEJSPiZuYnNwOyANCjxCUj48
QlI+s6PBv6O61rizzNDy1MvQ0Ln9s8zW0KOsxuTWtbK7xNy4xLHktcTBv6GjJm5ic3A71NqzzNDy
zbeyv9bQy7XD96Os0tQmbmJzcDtDT05TVNL9tbyhoyA8QlI+PEJSPrfWzqrLxMDgo7ogDQo8QlI+
PEJSPqLF1fvQzbOjwb8gPEJSPjxCUj6ixsq10M2zo8G/IDxCUj48QlI+osfX1rf7s6PBvyA8QlI+
PEJSPqLIsry2+9DNs6PBvyA8QlI+PEJSPrjxyr2juiANCjxCUj6hoaGhJm5ic3A7Y29uc3QmbmJz
cDsmbHQ7s6PBv7Hqyra3+yZndDs9Jmx0O7Ojwb8mZ3Q7OyZuYnNwOyANCjxCUj6hoaGhwP2jumNv
bnN0Jm5ic3A7cGk6PTMuMTQ7IA0KPEJSPjxCUj6x5MG/o7rKx9a41NqzzNDy1rTQ0Ln9s8zW0KOs
xuTWtb/J0tS4xLHktcTBv6GjJm5ic3A71NqzzNDyzbeyv9bQvNPS1Mu1w/ejrNLUJm5ic3A7VkFS
0v21vKGjIA0KPEJSPjxCUj6x5MG/yP3SqsvYo7qx5MG/w/uhorHkwb/A4NDNoaKx5MG/1rWhoyA8
QlI+PEJSPqLFseTBv8P708PSu7j2us+3qLXEserKtrf7wLSx7cq+oaMgDQo8QlI+PEJSPqLGseTB
v9TaxLPSu7nMtqjKsb/MysfTw8C0tOa3xbOjwb+1xKOstvizo8G/ysfT0MDg0M21xMr9vt2jrNLy
tvix5MG/0rLKx9PQwODQzbXEoaM8QlI+wODQzbK7xNzT0MG90uXQ1KGjIA0KPEJSPjxCUj6ix7Hk
wb/WtaGj1NqzzNDy1tDTybiz1rXT777kwLS4s9a1oaMgPEJSPjxCUj52YXImbmJzcDsmbHQ7seTB
v7Hqyra3+8HQse0mZ3Q7OiZsdDvA4NDNJmd0OzsmbmJzcDsgDQo8QlI+oaGhoSZuYnNwO8D9o7p2
YXImbmJzcDthLGI6aW50ZWdlcjsmbmJzcDtjLGQ6cmVhbDsgPEJSPjxCUj41oaKx7bTvyr0gDQo8
QlI+PEJSPtPJy+PK9dTLy+O3+6OoJm5ic3A7K6OsoaqjrCZuYnNwOyqjrCZuYnNwOy+jqbywyv3X
1qGis6PBv6GiseTBv6GiserXvLqvyv3L+dfps8m1xMq919PW0NDEse2078q9oaMgDQo8QlI+PEJS
Psjno7ombmJzcDs1KzmjuyZuYnNwO0EqQi0zNCpBQlOjqCZuYnNwOy0zNKOpJm5ic3A7L0lOVKOo
Jm5ic3A7QqOpIA0KPEJSPjxCUj7B7c3io6wmbmJzcDtQQVNDQUzW0NPQwb249rrc09DTw7XE1MvL
47f7o6wmbmJzcDtESVajusfzycy1xNX7yv3WtaO7Jm5ic3A7TU9Eo7rH89Pgyv2ho8jno7ogDQo8
QlI+PEJSPjgmbmJzcDtESVYmbmJzcDszJm5ic3A7tcTWtcrHJm5ic3A7MqOsJm5ic3A7MTAmbmJz
cDtESVYmbmJzcDszJm5ic3A7tcTWtcrHJm5ic3A7M6O7IA0KPEJSPjxCUj44Jm5ic3A7TU9EJm5i
c3A7M7XE1rXKxyZuYnNwOzKjrCZuYnNwOzEwJm5ic3A7TU9EJm5ic3A7M7XE1rXKxyZuYnNwOzGj
uyANCjxCUj48QlI+1NombmJzcDtQQVNDQUy1xLHttO/KvdbQo6yyu9TK0O2z9s/WztLDx8jVs6PJ
+rvu1tC1xMTH1ta31sq9u/K4+brFtcjKvdfTo6zO0sPHsdjQ67C01dUmbmJzcDs8QlI+UEFTQ0FM
tcTT77eosNHL/MPHuMTQtLPJJm5ic3A7UEFTQ0FMse2078q9oaMgDQo8QlI+PEJSPlBhc2NhbNPv
0dTW0LXE1MvL47f7vLDG5NPFz8i8tiZuYnNwOyA8QlI+PEJSPrWlxL/Uy8vjt/smbmJzcDso1+64
39PFz8i8tikmbmJzcDsgDQo8QlI+QCZuYnNwO8ihseTBv7vyuq/K/bXEtdjWtyi3tbvY0ru49ta4
1espJm5ic3A7IDxCUj5ub3QmbmJzcDvC37ytyKG3tLvysLTOu8iht7QmbmJzcDsgDQo8QlI+s8uz
/bywsLTOu9TLy+O3+yZuYnNwOyA8QlI+KiZuYnNwO8/gs8u78ryvus+9u7yvJm5ic3A7IDxCUj4v
Jm5ic3A7uKG148/gs/0mbmJzcDsgDQo8QlI+ZGl2Jm5ic3A71fvK/c/gs/0mbmJzcDsgPEJSPm1v
ZCZuYnNwO8ihxKMmbmJzcDso1fvK/c/gs/21xNPgyv0pJm5ic3A7IA0KPEJSPmFzJm5ic3A7s8zQ
8tTL0NC917bOwODQzdequ7smbmJzcDsoUlRUSdTLy+O3+ykmbmJzcDsgPEJSPmFuZCZuYnNwO8Lf
vK278rC0zrvH87rNJm5ic3A7IA0KPEJSPnNobCZuYnNwO7C0zrvX89LGJm5ic3A7IDxCUj5zaHIm
bmJzcDuwtM6709LSxiZuYnNwOyA8QlI+vNO89dTLy+O3+yZuYnNwOyANCjxCUj4rJm5ic3A7z+C8
06GivK+6z7KivK+hotfWt/u0rsGsvdO78ta41evU9rzT0ru49sar0sbBvyZuYnNwOyA8QlI+LSZu
YnNwO8/gvPWhoryvus+y7ryvu/LWuNXrvPXJ2dK7uPbGq9LGwb8mbmJzcDsgDQo8QlI+b3ImbmJz
cDvC37ytu/KwtM67u/LUy8vjJm5ic3A7IDxCUj54b3ImbmJzcDvC37ytu/KwtM670uy78tTLy+Mm
bmJzcDsgDQo8QlI+udjPtbywsci9z9TLy+O3+yjX7rXN08XPyLy2KSZuYnNwOyA8QlI+PSZuYnNw
O8XQts/Kx7fxz+C1yCZuYnNwOyANCjxCUj4mbHQ7Jmd0OyZuYnNwO8XQts/Kx7fxsrvP4LXIJm5i
c3A7IDxCUj4mbHQ7Jm5ic3A7xdC2z8rHt/HQodPaJm5ic3A7IA0KPEJSPiZndDsmbmJzcDvF0LbP
yse38bTz09ombmJzcDsgPEJSPiZsdDs9Jm5ic3A7xdC2z8rHt/HQodPau/K1yNPaLLvyyse38crH
0ru49ryvus+1xNfTvK8mbmJzcDsgDQo8QlI+Jmd0Oz0mbmJzcDvF0LbPyse38bTz09q78rXI09os