pascal第13讲 一维数组.mht

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

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

PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIj4NCjxIVE1MPjxIRUFEPjxUSVRMRT6589bdyqHNrcjKtdrSu9bQ0ac8L1RJVExFPg0KPE1F
VEEgY29udGVudD0iTVNIVE1MIDYuMDAuMjkwMC4zMTU3IiBuYW1lPUdFTkVSQVRPUj4NCjxNRVRB
IGNvbnRlbnQ9RnJvbnRQYWdlLkVkaXRvci5Eb2N1bWVudCBuYW1lPVByb2dJZD4NCjxNRVRBIGh0
dHAtZXF1aXY9Q29udGVudC1UeXBlIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD1nYjIzMTIi
PjwvSEVBRD4NCjxCT0RZPg0KPFRBQkxFIGhlaWdodD0yNCBjZWxsU3BhY2luZz0wIGNlbGxQYWRk
aW5nPTAgd2lkdGg9IjEwMCUiPg0KICA8VEJPRFk+DQogIDxUUj4NCiAgICA8VEQgYWxpZ249bWlk
ZGxlPjxGT05UIHN0eWxlPSJGT05ULVNJWkU6IDI0cHQiIA0KICAgICAgY29sb3I9IzAwMDAwMD5w
YXNjYWy12squyP29sjrSu86syv3X6SA8L0ZPTlQ+PC9URD48L1RSPjwvVEJPRFk+PC9UQUJMRT48
QlI+DQo8SDMgYWxpZ249Y2VudGVyPjxGT05UIGNvbG9yPSNmZjAwMDA+0rvOrMr91+k8L0ZPTlQ+
IDwvSDM+DQo8UD48Qj6hvNPvt6i31s72ob08L0I+PC9QPg0KPFA+oaGhodTaseCzzMqx08O1vdK7
xfrA4NDNz+DNrLXEyv2+3aOszqrBy7SmwO3Jz7XEt72x46Oszaizo9LUyv3X6bXE0M7KvcC0tqjS
5dXi0rvF+sr9vt2hozwvUD4NCjxQPqGhoaExoaLK/dfptcS2qNLluPHKvaO6PEJSPjxTVFJPTkc+
PEZPTlQgY29sb3I9IzAwMDBmZj48U1BBTiBjbGFzcz1zdHlsZTE+dmFyPEJSPqGhoaEgDQphOmFy
cmF5IFsxLi4xMF0gb2YgaW50ZWdlcjs8L1NQQU4+PEJSPjwvRk9OVD48L1NUUk9ORz6hoaGhIA0K
xuTW0KO6YcrH1eLSu8X6yv2+3bXEw/uzxqOss8bOqsr91+nD+6O7YXJyYXmhom9myse2qNLlyv3X
6bXEsaPB9NfWo7vW0MCousXW0LXEyv3X1srHyv2+3bHgusW1xM/Cz966zcnPz96jrM2syrHSssu1
w/fBy8r9vt21xLj2yv2jqMnPz94tz8LP3qOpo7vX7rrz0ru49srHyv2+3bXEu/nA4NDNo6zI52lu
dGVnZXKjrGNoYXKjrHJlYWyjrGJvb2xlYW6hozxCUj48QlI+oaGhoSANCjKhosr91+nUqsvYtcTK
5Mjro7o8QlI+yv3X6cP7tPqx7bXEsqKyu8rH0ru49rHkwb+jrLb4ysfSu8X6seTBv6Os0vK2+KOs
srvE3NaxvdPV+7j2yv3X6bbByOujrLb4ysfSqtbwuPbK/dfp1KrL2LbByOujrM2os6PTw9Gtu7e9
4bm5wLTN6rPJ1eLSu7mmxNyho8/Cw+bKx7y4uPazo9PDyuTI68r91+nUqsvYtcTA/dfTo7o8QlI+
Zm9yIA0KaTo9MSB0byAxMCBkbyByZWFkKGFbaV0pOzxCUj6hoaGhIHuhqqGqoaqhqrTTvPzFzLbB
yOvK/dfp1KrL2LXE1rWju9fus6PTw7XEt723qH0gPEJSPmZvciBpOj0xIHRvIDEwIGRvIA0KYVtp
XTo9aTs8QlI+oaGhoSB7oaqhqqGqoarK/dfp1KrL2GFbMV21vWFbMTBdtcTWtbfWsfDOqjG1vTEw
o7vK/b7duLOz9da1fSA8QlI+Zm9yIGk6PTEgdG8gMTAgZG8gDQphW2ldOj0wOzxCUj6hoaGhIHuh
qqGqoaqhqsr91+nUqsvYx+Uwo7vX7rOj08O1xMr9vt2z9cq8u6+1xLe9t6h9PEJSPmZvciBpOj0x
IHRvIDEwIGRvIA0KYVtpXTo9cmFuZG9tKDEwMCk7PEJSPqGhoaEge6GqoaqhqqGqy+a7+rL6yfox
MLj2MTAw0tTE2rXEyv2jrLizuPi498r91+nUqsvYfSA8QlI+PEJSPqGhoaEgDQozoaLK/dfp1KrL
2LXEyuSz9qO6PEJSPqGhoaEgDQq6zcr91+nUqsvYtcTK5Mjrz+DNrKOsyv3X6dSqy9i1xMrks/bS
srK7xNzTydK7uPZ3cml0ZdPvvuTWsb3TzeqzyaGjzazR+dKq1vC49sr91+nUqsvYyuSz9qGjzaiz
o9Ky08PRrbu3veG5ucC0zeqzydXi0ru5psTco7o8QlI+Zm9yIGk6PTEgdG8gDQoxMCBkbyB3cml0
ZShhW2ldLCcgJyk7e6GqoaqhqqGqyv3X6dSqy9jWrrzk08O/1bjxt9a49H08QlI+d3JpdGVsbjsg
PEJSPjxCUj6hoaGhIDShosr91+m1xNOm08OjujxCUj6hoaGhIA0KwP0xo7q007z8xczK5MjrMTC4
9sr9o6y9q9XiMTC49sr9xObQ8srks/ajrLKix/PV4jEwuPbK/bXEus2jrMrks/bV4rj2us2hozxC
Uj48U1BBTiBjbGFzcz1wcm9ncmFtX3RleHQ+cHJvZ3JhbSANCnAxOzxCUj52YXI8QlI+oaGhoSBh
OmFycmF5IFsxLi4xMF0gb2YgaW50ZWdlcjs8QlI+oaGhoSBpLHM6aW50ZWdlcjs8QlI+YmVnaW48
QlI+oaGhoSANCmZvciBpOj0xIHRvIDEwIGRvIHJlYWQoYVtpXSk7PEJSPqGhoaEgZm9yIGk6PTEw
IGRvd250byAxIGRvIHdyaXRlKGFbaV0sJyAnKTs8QlI+oaGhoSANCndyaXRlbG47PEJSPqGhoaEg
czo9MDsgPEJSPqGhoaEgZm9yIGk6PTEgdG8gMTAgZG8gczo9cythW2ldOzxCUj6hoaGhIA0Kd3Jp
dGVsbigncz0nLHMpOzxCUj5lbmQuPC9TUEFOPjwvUD4NCjxQPjxCUj6hoaGhwP0yo7q007z8xczK
5MjrMTC49sr9o6y9q9XiMTC49sr9tNO087W90KG1xMuz0PLK5LP2oaMgPC9QPjxQUkU+PFNQQU4g
Y2xhc3M9cHJvZ3JhbV90ZXh0PnByb2dyYW0gcDI7DQpWYXIgbjphcnJheVsxLi4xMF0gb2YgaW50
ZWdlcjsNCkksaix0OmludGVnZXI7DQpCZWdpbg0KICBGb3IgSTo9MSB0byAxMCBkbyBSZWFkbG4o
bltJXSk7DQogIEZvciBJOj0xIHRvIDkgZG8gYmVnaW4NCqGhRm9yIGo6PUkrMSB0byAxMCBkbyBi
ZWdpbg0KICChoUlmIG5bSV0mbHQ7bltqXSB0aGVuIGJlZ2luDQogICAgoaFUOj1uW0ldOw0KICAg
IKGhTltJXTo9bltqXTsNCiAgICChoU5bal06PXQ7DQogIKGhRW5kOw0KoaFFbmQ7DQogIEVuZDsN
CiAgRm9yIEk6PTEgdG8gMTAgZG8gYmVnaW4NCqGhV3JpdGUobltJXTo1KTsNCiAgRW5kOw0KRW5k
LjwvU1BBTj4NCg0KIKGhwP0zo7rTw8m4t6jH8zEwMNLUxNq1xMvYyv2jqNbKyv2jqaGjDQoNCiAg
oaGhoSC31s72o7rL2Mr9ysez/cHLMbrNy/yxvsnt0tTN4sO709DG5Mv81LzK/bXEyv2ho9PDybi3
qMfzy9jK/bXEt723qMrHo7rTw9bKyv3JuMilus/K/aO6tNO12tK7uPbL2Mr9Mr+qyryjrA0KICAg
ICAgILDRy/y1xLG2yv3IpbX0o7vV4tH5MtLUuvO1xLXa0ru49rfHMMr9vs3Su7ao0rLKx8vYyv2j
rLDRy/y1xLG2yv3Sssm+wcuhraGt1ti4tNXiuPbJvsr9uf2zzKOs1rG1vdTay/nV0rW9DQogICAg
ICAgtcTL2Mr9uvPU2dKy1dKyu7W90ru49rfHMMr9oaOw0cv509C3xzDK/crks/ahow0KDQo8U1BB
TiBjbGFzcz1wcm9ncmFtX3RleHQ+cHJvZ3JhbSBwMzsNCnZhcg0KICAgIGE6YXJyYXkgWzEuLjEw
MF0gb2YgaW50ZWdlcjsNCiAgICBpLGosazppbnRlZ2VyOw0KYmVnaW4NCiAgICAgZm9yIGk6PTEg
dG8gMTAwIGRvIGFbaV06PWk7DQogICAgIGFbMV06PTA7aTo9MjsNCiAgICAgd2hpbGUgaSZsdDs9
MTAwIGRvDQogICAgIGJlZ2luDQogICAgICAgICBrOj1pOw0KICAgICAgICAgd2hpbGUgayZsdDs9
MTAwIGRvIA0KICAgICAgICAgYmVnaW4NCiAgICAgICAgICAgICBrOj1rK2k7DQogICAgICAgICAg
ICAgYVtrXTo9MDsNCiAgICAgICAgIGVuZDsNCiAgICAgICAgIHuhqqGqoaqhqsnPw+a9q8v509Bh
W2ldtcSxtsr9x+UwfSANCiAgICAgICAgIGk6PWkrMTsNCiAgICAgICAgIHdoaWxlIGFbaV09MCBk
byBpOj1pKzE7DQogICAgICAgICB7oaqhqqGqoaqy6dXSvdPPwsC0tcS12tK7uPa3xzDK/X0gDQog
ICAgIGVuZDsNCiAgICAgZm9yIGk6PTEgdG8gMTAwIGRvIGlmIGFbaV0mbHQ7Jmd0OzAgdGhlbiB3
cml0ZShhW2ldLCcgJyk7DQplbmQuICA8L1NQQU4+DQogICAgICAgIDwvUFJFPg0KPFA+wbfPsMzi
o7o8QlI+oaExoaLL5rv6svrJ+jIwuPYxMDDS1MTatcTK/aOsyuSz9qO7sLS009Chtb2087XEy7PQ
8sXF0PKjrMrks/ahozxCUj6hoTKhotPQ0rvX6cr9o6zG5MXFwdDQzsq9yOfPwqO6MTGjrDE5o6w5
o6wxMqOsNaOsMjCjrDGjrDE4o6w0o6wxNqOsNqOsMTCjrDE1o6wyo6wxN6OsM6OsMTSjrDejrDEz
o6w4o6w8QlI+x9LOsrK/OLrNzbeyvzExytfOss/gwayjrLm5s8m7t9DOtcTSu9fpyv2jrLHgs8zV
0rP2z+DB2rXENLj2yv2jrMbkz+C809auus3X7rTzo6yyorj4s/bL/MPHtcTG8Mq8zrvWw6GjPC9Q
Pg0KPFA+PEEgDQpocmVmPSJodHRwOi8vd3d3LnRyeXouY29tLmNuL3l6L3VwZmlsZS8yMDA3NC8y
MDA3NDM1NTk5MTk5OS50eHQiPltUWFS48cq9Xbi9vP48L0E+PC9QPg0KPFA+Jm5ic3A7PC9QPjwv
Qk9EWT48L0hUTUw+DQo=