资源描述：
《pascal基础题100道合集(全)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Pascal基础题100道合集(全)题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？vari,j,a,b,c:integer;beginfori:=1to4doforj:=1to4dofora:=1to4doforb:=1to4dobeginif(i<>j)and(i<>a)and(i<>b)and(j<>a)and(j<>b)and(a<>b)thenwriteln(i,j,a,b);end;end.2题目：企业发放的奖金根据利润提成。利润(i)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，
2、高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？vara:longint;s:real;beginreadln(a);ifa<100000thens:=a*0.1;ifa>100000thenbeginif(a>100000)and(a<=200000)thens:=s+(a-100000)*0.075+100000*0.1;if(a>200
3、000)and(a<=400000)thens:=s+(a-200000)*0.05+100000*0.1+100000*0.075;if(a>400000)and(a<=600000)thens:=s+(a-400000)*0.03+100000*0.1+200000*0.05;if(a>600000)and(a<=1000000)thens:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03;if(a>1000000)thens:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+2000
4、00*0.03+400000*0.015;end;writeln(s:5:2);end.3题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？vari:longint;a,b:real;beginfori:=1to1000000dobegina:=sqrt(i+100);b:=sqrt(i+268);if((a*a)=(i+100))and((b*b)=(i+268))thenwriteln(i);end;end.4题目：输入某年某月某日，判断这一天是这一年的第几天？vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11
5、,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:=a3elseif(b=4)thend:=a4elseif(b=5)thend:=a5elseif(b=6)thend:=a6elseif(b=7)thend:=a7elseif(b=8)thend:=a8elseif(
6、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:=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;
7、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('*');writeln('*');writeln('***');end.7题目：输出9*9口诀。vari,j:integer;beginfori:=
