资源描述：
《pascal基础题100道合集(全)处理---中》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Pascal基础题100道合集(全)处理---中4题目：输入某年某月某日，判断这一天是这一年的第几天？vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer;beginread(a,b,c);a1:=0;a2:=31;a3:=59;a4:=90;a5:=120;a6:=151;a7:=181;a8:=212;a9:=243;a10:=273;a11:=304;a12:=334;if(b=1)thend:=a1elseif(b=2)thend:=a2elseif(b=3)thend:=a3els
2、eif(b=4)thend:=a4elseif(b=5)thend:=a5elseif(b=6)thend:=a6elseif(b=7)thend:=a7elseif(b=8)thend:=a8elseif(b=9)thend:=a9elseif(b=10)thend:=a10elseif(b=11)thend:=a11elseif(b=12)thend:=a12;d:=d+c;if(amod1000=0)and(cmod400=0)and(b>3)thend:=d+1;if(amod1000<>0)and(cmod4=0)and(b>3)thend:
3、=d+1;writeln(d);end.5题目：输入三个整数x,y,z，请把这三个数由小到大输出。vara,b,c,d:integer;beginreadln(a,b,c);ifa>bthenbegind:=a;a:=b;b:=d;end;ifa>cthenbegind:=a;a:=c;c:=d;end;ifb>cthenbegind:=b;b:=c;c:=d;end;writeln(a,b,c);end.6题目：用*号输出字母c的图案。beginwriteln('***');writeln('*');writeln('*');writeln('*')
4、;writeln('*');writeln('***');end.7题目：输出9*9口诀。vari,j:integer;beginfori:=1to9dobeginforj:=1to9dobeginwrite(j,'*',i,'=',j*i,'');end;writeln;end;end.8题目：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12:integer;begina1:=1;wri
5、teln(a1);a2:=1;writeln(a2);a3:=a1+a2;writeln(a3);a4:=a2+a3;writeln(a4);a5:=a3+a4;writeln(a5);a6:=a4+a5;writeln(a6);a7:=a5+a6;writeln(a7);a8:=a6+a7;writeln(a8);a9:=a7+a8;writeln(a9);a10:=a8+a9;writeln(a10);a11:=a9+a10;writeln(a11);a12:=a10+a11;writeln(a12);end.9题目：输出所有101-200之间的素
6、数。varn,i,a:integer;p:boolean;beginn:=200;fora:=101tondobeginp:=true;fori:=2totrunc(sqrt(a))+1doifamodi=0thenbeginp:=false;breakend;ifp=truethenwrite(a:4);end;end.10题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。vara,b,c,i:integer;beginfori
7、:=100to999dobegina:=idiv100;b:=(idiv10)mod10;c:=imod10;ifa*a*a+b*b*b+c*c*c=ithenwriteln(i);end;end.11题目：将一个正整数分解质因数。例如：输入90,打印出90=1*2*3*3*5。varn,i:integer;beginwrite('pleaseinputthenumber:');read(n);write(n,'=',1);i:=1;repeatinc(i);whilenmodi=0dobeginn:=ndivi;write('*',i);end;un
8、tiln=1;end.12题目：利用条件运算符的嵌套来完成此题：学习成绩>=90分的同学用a表
