Pasca基础题100道合集(全).docVIP

Pascal基础题100道合集(全) 1 题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？ var i,j,a,b,c:integer; begin for i:=1 to 4 do for j:=1 to 4 do for a:=1 to 4 do for b:=1 to 4 do begin if (ij) and (ia) and (ib) and (ja) and (jb) and (ab) then writeln(i,j,a,b); end; end. 2 题目：企业发放的奖金根据利润提成。利润(i)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？ var a:longint; s:real; begin readln(a); if a100000 then s:=a*0.1; if a100000 then begin if (a100000)and(a=200000) then s:=s+(a-100000)*0.075+100000*0.1; if (a200000)and(a=400000) then s:=s+(a-200000)*0.05+100000*0.1+100000*0.075; if (a400000)and(a=600000) then s:=s+(a-400000)*0.03+100000*0.1+200000*0.05; if (a600000)and(a=1000000) then s:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03; if (a1000000) then s:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015; end; writeln(s:5:2); end. 3 题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？ var i:longint; a,b:real; begin for i:=1 to 1000000 do begin a:=sqrt(i+100); b:=sqrt(i+268); if ((a*a)=(i+100)) and ((b*b)=(i+268)) then writeln(i); end; end. 4 题目：输入某年某月某日，判断这一天是这一年的第几天？ var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer; begin read(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) then d:=a1 else if (b=2) then d:=a2 else if (b=3) then d:=a3 else if (b=4) then d:=a4 else if (b=5) then d:=a5 else if (b=6) then d:=a6 else if (b=7) then d:=a7 else if (b=8) then d:=a8 else if (b=9) then d:=a9 else if (b=10) then d:=a10 else if (b=11) then d:=a11 else if (b=12) then d:=a12; d:=d+c; if (a mod 1000=0) and (c mod 400=0) and (b3) then d:=d+1; if (a mod 10000) and (c m