pascal第04讲 程序设计的方法.mht

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

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

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12svEvbI6s8zQ8snovMa1xLe9t6ggDQo8L0ZPTlQ+PC9URD48L1RSPjwvVEJPRFk+PC9U
QUJMRT48QlI+s8zQ8snovMa1xLe9t6gmbmJzcDs8QlI+PEJSPjEuxKO/6buvo7ogDQo8QlI+KDEp
Jm5ic3A7sNHSu7j2vc+087XEs8zQ8ruut9bOqsj0uMnX07PM0PKjrMO/0ru49tfTs8zQ8r3ivvbS
u7j219zKx7bAwaKzyc6q0ru49sSjv+mjuyANCjxCUj4oMikmbmJzcDvDv9K7uPbEo7/p09a/ybzM
0Pi7rrfWzqq4/NChtcTX08Sjv+mjuyA8QlI+KDMpJm5ic3A7s8zQ8r7f09DSu9bWsuO0zr3hubmh
oyANCjxCUj7XoqO61MvTw9Xi1tax4LPMt723qKOsv7zCx87KzOKx2NDrz8i9+NDQ1fvM5bfWzvaj
rLHcw+Kx39C0sd/P66GjIDxCUj48QlI+Mi7X1Lalz/LPwqO6IA0KPEJSPigxKSZuYnNwO8/Iyei8
xrXa0ruy4yi8tKO6tqWy4ymjrMi7uvOyvbK9ye7I66Os1vCy48+4t9ajrNbwsr3H876ro6zWsbW9
1fu49s7KzOK/ydPDs8zQ8snovMbT79HUw/fIt7XYw+jK9rP2wLTOqta5oaMgDQo8QlI+KDIpJm5i
c3A7sr3W6KO6Jm5ic3A7ytfPyLbUzsrM4r340NDX0M+4t9bO9qOsyLe2qMbkyuTI66GiyuSz9sr9
vt2jrNC0s/azzNDy1MvQ0LXE1vfSqrn9s8y6zcjOzvGjuyZuYnNwO8i7uvO007TztcS5psTct73D
5rDR0ru49s7KzOK1xL3ivva5/bPMt9azyby4uPbOyszio6zDv7j219POyszi0M6zydK7uPbEo7/p
oaMmbmJzcDsgDQo8QlI+KDMpJm5ic3A7zNi146O6z8jV+8zluvO+1rK/o6zPyLPpz/O6877fzOWh
oyA8QlI+PEJSPjMu19S118/yyc+juiA8QlI+KDEpJm5ic3A7vLTPyMnovMa117Ljo6zX7rrzyei8
xralsuOjuyANCjxCUj4oMikmbmJzcDvTxbXjo7rTybHtvLDA76Gi08nHs8jrye612L3ivvbOyszi
o7smbmJzcDsgPEJSPigzKSZuYnNwO7K71+OjutTa1vCyvc+4u6+1xLn9s8zW0L/JxNy3os/W1K3A
tLXEt9a94s+4u6+yu7m7zerJxqO7IA0KPEJSPig0KSZuYnNwO9ei0uKjurjDt723qNb30qrTw9Pa
0N64xKGi08W7r7vywKmz5NK7uPazzNDyoaMgPEJSPjxCUj40LsD919OjusfzMbW9btauvOS1xMvY
yv2hoyANCjxCUj694qO60qrH8zG1vW7WrrzktcTL2Mr9o6yzzNDy0qrX9rXEysK+zcrHtNMxv6rK
vNLAtM7V0qOsxdC2z8rHt/HKx8vYyv2jrMrH1PK08tOhs/bAtKOst/HU8rzM0PjN+c/C1dKjrNax
tb1uzqrWuaGj09rKx7P1sr3J6M/rs8mjuiANCjxCUj48QlI+PEJSPiZuYnNwO2JlZ2luIDxCUj4m
bmJzcDsmbmJzcDsmbmJzcDtyZWFkKG4pOyANCjxCUj4mbmJzcDsmbmJzcDsmbmJzcDtudW1iZXI6
PTI7IA0KPEJSPiZuYnNwOyZuYnNwOyZuYnNwO3doaWxlJm5ic3A7bnVtYmVyobRuJm5ic3A7ZG8m
bmJzcDsgDQo8QlI+Jm5ic3A7Jm5ic3A7Jm5ic3A7YmVnaW4gDQo8QlI+Jm5ic3A7Jm5ic3A7Jm5i
c3A7Jm5ic3A7Jm5ic3A7aWYmbmJzcDtudW1iZXLKx9K7uPbL2Mr9Jm5ic3A7dGhlbiZuYnNwO3dy
aXRlKG51bWJlcik7Jm5ic3A7IA0KPEJSPiZuYnNwOyZuYnNwOyZuYnNwOyZuYnNwOyZuYnNwOyZu
YnNwOyZuYnNwOyZuYnNwO251bWJlcsihz8LSu7j21rWjuyANCjxCUj4mbmJzcDsmbmJzcDsmbmJz
cDsmbmJzcDsmbmJzcDtlbmQgDQo8QlI+Jm5ic3A7Jm5ic3A7ZW5kLrXatv6yvaO6z7i7r6GwbnVt
YmVyysfSu7j2y9jK/aGxvLChsG51bWJlcsihz8LSu7j21rWhsaGjJm5ic3A7IA0KPEJSPigxKSZu
YnNwO8+4u6+hsG51bWJlcsrH0ru49svYyv2hsaO6IA0KPEJSPqGwbnVtYmVyysfSu7j2y9jK/aGx
1eLKx9K7uPayvLb71rWjrLWxbnVtYmVyysfSu7j2y9jK/cqxzqp0cnVlo6y38dTyzqpmYWxzZaGj
z7i7r8jnz8KjuiA8QlI+PEJSPiZuYnNwO2s6PTI7IA0KPEJSPiZuYnNwOyZuYnNwO2xpbTo9bnVt
YmVyLTE7Jm5ic3A7IDxCUj4mbmJzcDsmbmJzcDtyZXBlYXQmbmJzcDsgDQo8QlI+Jm5ic3A7Jm5i
c3A7Jm5ic3A7Jm5ic3A7aWYmbmJzcDtudWJtZXLE3LG7a9X7s/0mbmJzcDt0aGVuIA0KPEJSPiZu
YnNwOyZuYnNwOyZuYnNwOyZuYnNwOyZuYnNwOyZuYnNwO3ByaW06PWZhbHNlIA0KPEJSPiZuYnNw
OyZuYnNwOyZuYnNwOyZuYnNwO2Vsc2UmbmJzcDtiZWdpbiANCjxCUj4mbmJzcDsmbmJzcDsmbmJz
cDsmbmJzcDsmbmJzcDsmbmJzcDtrOj1rKzE7IA0KPEJSPiZuYnNwOyZuYnNwOyZuYnNwOyZuYnNw
OyZuYnNwOyZuYnNwO3ByaW06PXRydWU7IA0KPEJSPiZuYnNwOyZuYnNwOyZuYnNwOyZuYnNwO2Vu
ZDsgDQo8QlI+Jm5ic3A7Jm5ic3A7dW50aWwmbmJzcDtub3QocHJpbSkmbmJzcDtvciZuYnNwOyhr
tO+1vWxpbSmjuyANCjxCUj4oMikmbmJzcDvPuLuvobBudW1iZXLIoc/C0ru49ta1obGjuiA8QlI+
bnVtYmVyOj1udW1iZXIrMTsgDQo8QlI+tdrI/bK9o7rPuLuvobBudW1iZXLE3LG7a9X7s/2hsbyw
obBrtO+1vWxpbaGxoaMgPEJSPigxKSZuYnNwO8+4u6+hsG51bWJlcsTcsbtr1fuz/aGxo7ombmJz
cDsgDQo8QlI+bnVtYmVyJm5ic3A7bW9kJm5ic3A7az0wOyA8QlI+KDIpJm5ic3A7z7i7r6Gwa7Tv
tb1saW2hsaO6IDxCUj5rJmx0Oz1saW07IA0KPEJSPrXay8SyvaO6srmz5M3q1fuzzNDyoaMgPEJS
PrXazuWyvaO6tNPL+dPQtcTL2Mr9s/3ByzLWrs3itrzKx8bmyv21xL3Htsiz9rei08W7r7PM0PKh
oyZuYnNwOyA8QlI+PEJSPrPM0PLJ6LzGsr3W6DogDQo8QlI+PEJSPjEut9bO9s7KzOKjuiANCjxC
Uj621NKqveK+9rXEzsrM4qOsytfPyLHY0Ou31s72x+Wz/qOsw/fIt8zixL+1xNKqx/OjrMHQs/bL
+dPQ0tHWqsG/o6zV0rP2zOLEv7XEx/O94re2zqehor3itcS+q7bItciho8D9obC12jEw1tzBt8+w
obG12jfM4qGqoarNw9fTtcS3sdazzsrM4qOssdjQ69XSs/bG5Lex1rO55sLJoaMgDQo8QlI+Mi69
qMGiyv3Rp8Sj0M2juiZuYnNwOyANCjxCUj621Mq1vMrOyszivfjQ0LfWzvbWrrrzo6zV0rP2y/y1
xMTa1Nq55sLJo6y+zb/J0tS9qMGiyv3Rp8Sj0M2ho9a709C9qMGiwcvEo9DNtcTOyszio6yyxcTc
v8nE3MD708O8xsvju/rAtL3ivvaho8jnyc/A/aOsv8nNxrP2td3Nxrmryr11W25dPXVbbi0xXSt1
W24tMl0o1eLKx7fGsqjEx8b1yv3B0CkgDQo8QlI+My7RodTxy+O3qKO6IDxCUj69qMGiyv3Rp8Sj
0M2686Osu7myu8Tc18XK1rHgs8zQ8qOssdjQ67j5vt3K/b7dveG5uaOsveK+9s7KzOK1xMvjt6ih
o9K7sOPRodTxy+O3qNKq16LS4qO6IA0KPEJSPigxKSZuYnNwO8vjt6i1xMLfvK294bm5vqG/ycTc
vPK1paO7IDxCUj4oMikmbmJzcDvL47eoy/nSqsfztcS05tb8wb/Tpr6hv8nE3MnZo7sgDQo8QlI+
KDMpJm5ic3A7sdzD4rK7sdjSqrXE0a27t6OsvPXJ2cvjt6i1xNa00NDKsbzko7sgPEJSPig0KSZu
YnNwO9TawvrX48zixL/M9bz+0qrH88/Co6zKucv50Oi1xLzGy+PBv9fu0KGhoyANCjxCUj40LrHg
0LSzzNDyo7ombmJzcDuw0dX7uPazzNDyv7TX99K7uPbV+8zlo6zPyMirvta6877Wsr+jrNfUtqXP
8s/Co6zSu7Lj0ruy47fWveK0psDto6zI57n7xLPQqdfTzsrM4rXEy+O3qM/gzay2+L32ss7K/bK7
zayjrL/J0tTTw9fTs8zQ8sC0se3KvqGjIA0KPEJSPjUutffK1NTL0NCjuyA8QlI+Ni631s72veG5
+6O7IDxCUj43LtC0s/azzNDytcTOxLW1o7ogDQo8QlI+1vfSqsrHttSzzNDy1tC1xLHkwb+horqv
yv278rn9s8zX97HY0qq1xMu1w/ejrL3iys2x4LPMy7zCt6Osu62z9r/yzbyjrMzWwtvUy9DQveG5
+7XIoaMgDQo8QlI+PEJSPjxCUj44LsD9MaO6yuTI68bmyv1uo6y8xsvjsqLK5LP2bs67tcTEp7e9
1fOhoyA8QlI+y7XD96O6IA0KPEJSPigxKSZuYnNwO8Snt73V877NysduKm649rK7zay1xNX91fvK
/bC0t73V88XFwdDKsaOsy/y1xMO/0rvQ0KOsw7/Su8HQ0tS8sNHYttS9x8/ftcS8uLj2yv21xLrN
vt/T0M2s0rvQ1NbKtcS3vdXzoaMgDQo8QlI+KDIpJm5ic3A708kxtb1uKm649tfUyLvK/cr9ubmz
ybXExKe3vdXzysfX7rv5sb61xKOs09azxs6qobC7w7e9obGjrNXi1ta3vdXztcTDv9DQoaLDv8HQ
us3Dv7j2ttS9x8/fyc+1xNSqy9i1xLrNyKuyv8/gtcijrNLgvLS1yNPa0ru49rOjyv2ho7jDs6PK
/crHbihuKm4rMSkvMqGjIA0KPEJSPigzKSZuYnNwO7e9t6ijuiZuYnNwO8rXz8jIt7aoMbXEzrvW
w6Oszaizo7fF1Nq12tK70NC1xNbQvOTOu9bDo7smbmJzcDvIu7rztbHHsNfUyLvK/bXE09LJz7e9
t8XPwtK7uPbX1Mi7yv2juyZuYnNwO8jnufu1scew19TIu8r91Nq12tK70NC1q7K71NrX7tPSsuCj
rNTyz8LSu7j219TIu8r91NrX7rrz0rvQ0KOswdDK/dPS0sbSu8HQo7smbmJzcDvI57n7tbHHsNfU
yLvK/dTatdrSu9DQ1+7T0rLgo6zU8s/C0ru49tfUyLvK/dTatbHHsNfUyLvK/bXEz8Ky4KO7Jm5i
c3A7yOe5+7Wxx7DX1Mi7yv3U2sbky/zQ0LXE1+7T0rLgo6zU8s/C0ru49tfUyLvK/dTayc/Su9DQ
tcTX7tfzsuChoyANCjxCUj48QlI+PEJSPjkuwP0yo7rIzrrO0ru49tX7yv21xMGit722vL/J0tTQ
tLPJ0ru0rsbmyv3WrrrNoaMgPEJSPsu1w/ejuiANCjxCUj4oMSnV4srH1vjD+7XExOG/xsO3x9DL
ubaowO2ho7y0Jm5ic3A7MV4zPTEmbmJzcDsyXjM9Mys1PTgmbmJzcDszXjM9Nys5KzExPTI3Jm5i
c3A7oa2hrSZuYnNwOyANCjxCUj4oMinK/b7dvOS52M+1tcS55sLJo7ogPEJSPqGkbl4zysduuPbG
5sr91q66zaOsyOcyXjPKxzK49sbmyv3WrrrNo6wzXjPKxzO49sbmyv3WrrrNo7smbmJzcDsgDQo8
QlI+oaTV4m649sbmyv3Kx8/gwdq1xKOs1rvSqtaqtcC498q9tcS12tK7uPbG5sr90rK+zdaqtcDL
+dPQtcRuuPbG5sr9o7ogPEJSPtfps8kxXjO1xDG49sbmyv3Kx8bmyv3Q8sHQ1tC1xLXaMbj2xubK
/aO7Jm5ic3A7IA0KPEJSPtfps8kyXjO1xDK49sbmyv3W0NfutPO1xMbmyv3Kx8bmyv3Q8sHQ1tC1
xLXaMygzPTErMim49sbmyv0o1rXOqjUpo7sgDQo8QlI+1+mzyTNeM7XEM7j2xubK/dbQ1+6087XE
xubK/crHxubK/dDywdDW0LXEtdo2KDY9MSsyKzMpuPbG5sr9KNa1zqoxMSmjuyA8QlI+08m0y83G
s/ajuiANCjxCUj7X6bPJbl4ztcRuuPbG5sr91tDX7rTztcTG5sr9ysfG5sr90PLB0NbQtcS12m0o
bT0xKzIrMysuLi4rbim49sbmyv2jrLy0o7ombmJzcDttPW4obisxKS8yIA0KPEJSPqGkxubK/dDy
wdDW0LXabbj2xubK/bXE1rXKx6O6bW9kZD0ybS0xJm5ic3A7bW9kZLHtyr6hsLXabbj2xubK/aGx
o6zKx9fps8luXjO1xMbmyv3Q8sHQ1tDX7rTztcTSu7j2xubK/aGjIA0KPEJSPsD9yOejrLXaMrj2
xubK/crHM6Ostdo2uPbG5sr9yscxMaGjIA0KPEJSPqGkbl4zPW1vZGQrKG1vZGQtMikrKG1vZGQt
NCkrLi4uKG1vZGQtMihuLTEpKSZuYnNwOzxCUj4mbmJzcDsmbmJzcDs8QlI+Jm5ic3A7IA0KPEJS
PjwvQk9EWT48L0hUTUw+DQo=