pascal第18讲 子程序中的参数.mht

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

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

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12squsMu9sjrX07PM0PLW0LXEss7K/TwvRk9OVD48L1REPjwvVFI+PC9UQk9EWT48L1RB
QkxFPjxCUj4NCjxIMyBjbGFzcz1zdHlsZTEgYWxpZ249Y2VudGVyPtfTs8zQ8tbQtcSyzsr9PC9I
Mz4NCjxVTD4NCiAgPExJIGNsYXNzPXN0eWxlND7QzrLOus3KtbLOIDwvTEk+PC9VTD4NCjxQPqGh
oaHX07PM0PK199PDKLn9s8y199PDu/K6r8r9tffTwym1xNa00NDLs9Dyt9bOqtLUz8K8uLK9o7og
PEJSPqGhIKGhyrWyzrrN0M6yzr3hus+hqqGqobXWtNDQ19OzzNDyoaqhqqG1t7W72LX308O0przM
0PjWtNDQIDxCUj6hoSANCqGh19OzzNDyy7XD97XE0M7KvbLOyv2x7bbU19OzzNDyzOXWsb3T0v3T
w7XEseTBv7340NDLtcP3o6zP6s+41rjD99Xi0Kmyzsr9tcTA4LHwoaLK/b7dwODQzdKqx/O6zbLO
yv21xLj2yv2ho9fTs8zQ8rG7tffTw8qxsdjQ686qy/y1xMO/uPbQzrLOzOG5qdK7uPbKtbLOo6yw
tLLOyv21xM671sPLs9Dy0rvSu7bU06ajrMO/uPbKtbLOsdjQ68L61+O21NOm0M6yzrXE0qrH8yAN
CjxCUj6hoSChoVR1cmJvIFBhc2NhbNfTs8zQ8tDOss7T0MvEwOCjuiA8QlI+oaEgoaExLta1ss7K
/SA8QlI+oaEgDQqhodDOyr2yzsr9se3W0Meww+bDu9PQdmFyo6y689PQwODQzbXEss7K/aGjy/zA
4MvGuf2zzLrNuq/K/bXEvtayv7Hkwb+jrL32zqq5/bPMus26r8r9tcTWtNDQzOG5qbP11rW2+LK7
07DP7LX308PKscq1vMqyzsr9tcTWtaGj1Nq199PDuf2zzLvy06bTw7qvyv3KsaOs1rWyzsr9y/m2
1NOmtcTKtbzKss7K/bHY0OvKx7HttO/KvaOstvjH0sv8tcTWtbK7xNzKuc7EvP7A4NDNu/Kw/MCo
zsS8/sDg0M21xNa1oaPKtbLOsdjQ67rN0M6yzriz1rXP4MjdoaMgDQo8QlI+oaEgoaEyLrHkwb+y
zsr9IDxCUj6hoSANCqGh0M7KvbLOyv2x7dbQx7DD5tPQdmFyuvPTycDg0M21xLLOyv2ho8jnufvQ
6NKq19OzzNDyz/K199PDs8zQ8re1u9jWtcqxo6zTprLJ08Ox5MG/ss7K/aGjseTBv7LOyv3Sqsfz
y/y1xMq1ss7Kx7rNy/zNrNK7wODQzbXEseTBv6Gj0vLOqtTa19OzzNDy1rTQ0Mqxo6zT9rW9ttTP
4NOm0M6yzrXE0v3Tw8q9tqjWtaOsvs3Kx7bUz+DTpsq1ss61xNL908PKvbao1rWjrLy0ttTQzrLO
tcTIzrrOstnX977Nyse21Mq1ss6xvsnttcSy2df3oaMgDQo8QlI+oaEgoaEzLs7ewODQzbHkwb+y
zsr9IDxCUj6hoSANCqGh0M7KvbLOyv2x7dbQx7DD5tPQdmFytvi688Pmw7vT0MDg0M21xLLOyv2h
o9DOss7Kx87ewODQzbHkwb+jrLbU06a1xMq1ss7UytDtzqrIztLiwODQzbXEseTBv6OstavSqtTa
19OzzNDy1tDJ6NbDtcTHv9bGwODQzdequ7ujqMDg0M3D+6Oozt7A4NDNseTBv7LOyv3D+6Opo6mj
rL2rzt7A4NDNseTBv7LOyv24xLHkzqrP4NOmwODQzaGjIA0KPEJSPqGhIKGhNC7X07PM0PKyzsr9
IDxCUj6hoSChodPDuf2zzMrXsr+78rqvyv3K17K/1/fOqtDOyr2yzsr9oaMgPC9QPg0KPFVMPg0K
ICA8TEk+PFNQQU4gY2xhc3M9c3R5bGU0PjxGT05UIGNvbG9yPSMwMDAwZmY+serKtrf7tcTX99PD
0/IgPC9GT05UPjwvU1BBTj48L0xJPjwvVUw+DQo8UD6hoSChoTEuyKu+1rHkwb+6zcv8tcTX99PD
0/IgPEJSPqGhIKGhoaHIq77WseTBv8rH1rjU2rPM0PK/qs23tcTLtcP3sr+31rao0uW6zcu1w/e1
xMG/oaPL/LXE1/fTw9Pyt9bOqsG91tbH6b/2o7ogPEJSPqGhIA0KoaGhoSgxKdTayKu+1rHkwb+6
zb7Wsr+x5MG/srvNrMP7yrGjrMbk1/fTw9PyysfV+7j2s8zQ8qGjIDxCUj6hoSChoaGhKDIp1NrI
q77WseTBv7rNvtayv7Hkwb/NrMP7yrGjrMirvtax5MG/tcTX99PD0/Kyu7D8uqzNrMP7vtayv7Hk
wb+1xNf308PT8qGjIA0KPEJSPqGhIKGhMi6+1rK/seTBv7rNy/y1xNf308PT8iA8QlI+oaEgoaEg
DQqhobeyysfU2tfTs8zQ8sTasr/KudPDtcSx5MG/o6yx2NDr1NrX07PM0PLW0LzTyOvLtcP3oaPV
4tbW1NrX07PM0PLE2rK/y7XD97XEseTBv7PGzqq+1rK/seTBv6Gjvtayv7Hkwb+1xNf308PT8srH
xuTL+dTatcTX07PM0PKho9DOyr2yzsr90rLWu8Tc1NrX07PM0PLW0NPQ0Keho9LytMvSssr009q+
1rK/seTBv6Gjvtayv7Hkwb+1xNf308PT8rfWzqrBvdbWx+m/9qO6IA0KPEJSPqGhIKGhIKGhKDEp
tbHN4rLjuf2zzNDytcS+1rK/seTBv8P7us3HtszXuf2zzNbQtcS+1rK/seTBv7K7zazD+8qxo6zN
4rLjuf2zzLXEvtayv7Hkwb/X99PD0/Kw/Lqsx7bM17n96KGhoyA8QlI+oaEgoaEgDQqhoSgyKbWx
zeKy47n9s8y1xL7Wsr+x5MG/w/u6zce2zNe5/bPMxNq1xL7Wsr+x5MG/w/vNrMP7yrGjrM3isuO+
1rK/seTBv8P7tcTX99PD0/Kyu7D8uqy0y7n9s8yhozwvUD4NCjxQPtf308PT8rXEyr7A/TxBIGhy
ZWY9Imh0dHA6Ly93d3cud3B5ei5uZXQvbm9pcC9maWxlcy9QcHJvNC50eHQiIHRhcmdldD1fYmxh
bms+PEZPTlQgDQpjb2xvcj0jY2MwMDAwPnBwcm80LnR4dDwvRk9OVD48L0E+us08QSANCmhyZWY9
Imh0dHA6Ly93d3cud3B5ei5uZXQvbm9pcC9maWxlcy9QcHJvNS50eHQiIHRhcmdldD1fYmxhbms+
PEZPTlQgDQpjb2xvcj0jY2MwMDAwPnBwcm81LnR4dDwvRk9OVD48L0E+PC9QPjwvQk9EWT48L0hU
TUw+DQo=