原创力文档- 1、本文档共6页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
PASCAL完善程序汇总.doc
四、完善程序（每空2分，共22分） 1．输出1～100中所有的素数。
[程序清单]
Var i，j:integer;
F:Boolean;
Begin
For i:=2 to 100 do
Begin
①
For j:=2 to ② do
If ③ then
begin
f:=false;
break;
end;
If ④ then write(i,’ ’);
End;
End.
2．编程求出所有的不超过6位数的完全平方数。每行输出6个。每个数占8位场宽。
(注：4是2的平方，所以4是一个完全平方数。)
[程序清单]
Var i,t:longint;
Begin
Write(1:8); ①
For i:=2 to 999 do
Begin
t:=t+1;
②
If ③ then writeln;
End;
End.
3．算算一串字符含有几个大写英文字母。（提示：大写英文字母的ASCII码在65～90之间）
输入样例 输出样例 PRC,PRC,Im from China. 8 [程序清单]
var t,jms,ln:integer;
en:string;
begin
readln(en);
ln:= ① ;
② ;
for t:= ③ to ln do
if (ord(en[t])64 )and (ord(en[t])91) then ④ ;
writeln(jms)
end.
五、编写程序（10分）
[问题描述]：仔细观察这个N=5的矩阵，
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
6 7 8 9
7 8 9 10
请根据这个规律生成N行N列的矩阵。
[输入格式]：N（N20）
[输出格式]：输出N行N列的矩阵，矩阵中每个元素占4个场宽。
[输入样例]：
3
[输出样例]：
2 3 4
3 4 5
4 5 6
四、完善程序（每空2分，共22分）
计算平均值
给出一批数,现要编程计算出这一批数的平均值。(输入数据时以“0”表示结束)
程序：
program y41;
var d,v:real;
k,n:integer;
begin
① ;
v:=0;k:=0;
while ② do
begin
v:=v+d;
③ ;
read(d);
end;
v:=v/k;
writeln(ave=,v:0:2);
end. 2．统计人数
四(3)班同学中每个人都有一个英文名，请你编程序读入该班同学的英文名，并统计出该班同学中英文名以大写“C”开头的人数。
程序：
Const max=60;
var
name:array[1..max] of ① ;
n,i,cn:integer;
begin
readln(n);
② ;
for i:=1 to n do
begin
③ ;
if ④ = C’ then cn:=cn+1;
end;
writeln(renshu=,cn);
end. 3．约数之和
输入一个自然数n，求这个自然数的所有约数之和sum。（约数不重复计算）
输入样例：16
输出样例：31
程序：
var
sum,i,n:integer;
begin
readln(n);
sum:=0;
for i:=1 to ① do
if ② then
if i*in then
sum:=sum+i+ ③
else
sum:= ④ ;
writeln(sum);
end. 五、编写程序（10分）
将一张面值为100元的人民币等值换成100张面值为5元、1元和5角的零钞，要求每种零钞不少于1张，问有哪些换法？
编程要求输出每种换法中面值为5元、1元和5角人民币的张数。
四、完善程序（每空2分，共22分）
1. 末尾数
给出N个正整数，请统计出N个数中末尾数为0的数的个数。
var n,i,ans,a:integer
文档评论（0）