Pascal基础题100道合集(全) .pdfVIP

Pascal基础题100道合集(全).txt一个人一盒烟一台电脑过一天一个人一瓶酒

一盘蚕豆过一宿。永远扛不住女人的小脾气，女人永远抵不住男人的花言巧语。

1

题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？

vari,j,a,b,c:integer;

begin

fori:=1to4do

forj:=1to4do

fora:=1to4do

forb:=1to4do

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);

ifa100000thens:=a*0.1;

ifa100000then

begin

if(a100000)and(a=200000)thens:=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又是一个完全平方数，请问

该数是多少？

vari:longint;

a,b:real;

begin

fori:=1to1000000do

begin

a:=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,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)thend:=a1else

if(b=2)thend:=a2else

if(b=3)thend:=a3else

if(b