资源描述：
《pascal完善程序汇总》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、四、完善程序（每空2分，共22分）1．输出1～100中所有的素数。[程序清单]Vari，j:integer;F:Boolean;BeginFori:=2to100doBegin①Forj:=2to②doIf③thenbeginf:=false;break;end;If④thenwrite(i,’’);End;End.2．编程求出所有的不超过6位数的完全平方数。每行输出6个。每个数占8位场宽。(注：4是2的平方，所以4是一个完全平方数。)[程序清单]Vari,t:longint;BeginWrite(1:8);①Fo
2、ri:=2to999doBegint:=t+1;②If③thenwriteln;End;End.3．算算一串字符含有几个大写英文字母。（提示：大写英文字母的ASCII码在65～90之间）输入样例输出样例PRC,PRC,I'mfromChina.8[程序清单]vart,jms,ln:integer;en:string;beginreadln(en);ln:=①;②;fort:=③tolndoif(ord(en[t])>64)and(ord(en[t])<91)then④;writeln(jms)end.五、编写程序（
3、10分）[问题描述]：仔细观察这个N=5的矩阵，23456345674567856789678910请根据这个规律生成N行N列的矩阵。[输入格式]：N（N<20）[输出格式]：输出N行N列的矩阵，矩阵中每个元素占4个场宽。[输入样例]：3[输出样例]：234345456四、完善程序（每空2分，共22分）1.计算平均值给出一批数,现要编程计算出这一批数的平均值。(输入数据时以“0”表示结束)程序：programy41;vard,v:real;k,n:integer;begin①;v:=0;k:=0;while②dob
4、eginv:=v+d;③;read(d);end;v:=v/k;writeln('ave=',v:0:2);end.2．统计人数四(3)班同学中每个人都有一个英文名，请你编程序读入该班同学的英文名，并统计出该班同学中英文名以大写“C”开头的人数。程序：Constmax=60;varname:array[1..max]of①;n,i,cn:integer;beginreadln(n);②;fori:=1tondobegin③;if④='C’thencn:=cn+1;end;writeln('renshu=',cn);
5、end.3．约数之和输入一个自然数n，求这个自然数的所有约数之和sum。（约数不重复计算）输入样例：16输出样例：31程序：varsum,i,n:integer;beginreadln(n);sum:=0;fori:=1to①doif②thenifi*i<>nthensum:=sum+i+③elsesum:=④;writeln(sum);end.五、编写程序（10分）将一张面值为100元的人民币等值换成100张面值为5元、1元和5角的零钞，要求每种零钞不少于1张，问有哪些换法？编程要求输出每种换法中面值为5元、1元
6、和5角人民币的张数。四、完善程序（每空2分，共22分）1.末尾数给出N个正整数，请统计出N个数中末尾数为0的数的个数。varn,i,ans,a:integer;begin（1）;fori:=1tondobeginread(a);if(2)thenans:=ans+1;end;(3);end.2．十进制与十六进制十六进制在数学中是一种逢16进1的进位制，一般用数字0到9和字母A到F表示（其中:A～F即10～15）。现给你一个十进制数，请将它转成十六进制。varn,i,t:integer;a:array[1..10]o
7、finteger;beginreadln(n);repeatt:=t+1;(1);n:=ndiv16;Until(2);fori:=(3)doifa[i]>9then(4)elsewrite(a[i]);end.3.用筛法求n以内的素数（质数）。素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。programt43
8、;varss:array[1..1000]ofinteger;n,i,k:integer;beginreadln(n);fori:=1tondo(1);ss[1]:=0;i:=2;whilei<=ndobegin(2);whilek+i<=ndobegink:=k+i;(3):=0;end;i:=i+1;whiless[i]=0doi:=i+1;end;fo
