pascal基础教程.doc

1.顺序结构

101.求长方形的周长

vara,b,c:integer;
begin
read(a,b);
c:=(a+b)*2;
write(c);
end.

102.两个变量的值的交换

需要第三个变量的方法：
vara,b,c:integer;
begin
a:=3;
b:=4;
c:=a;
a:=b;
b:=c;
write(a,'',b);
end.
不需要第三个变量：
vara,b:integer;
begin
a:=3;
b:=4;
a:=a+b;
b:=a-b;
a:=a-b;
write(a,'',b);
end.

103.inc()和dec()
vara:integer;
begin
a:=3;
a:=a+1;
writeln(a);
inc(a);
writeln(a);
inc(a,3);
writeln(a);
a:=a-1;

writeln(a);
dec(a);
writeln(a);
dec(a,3);
writeln(a);
end.

104.求一个四位数各位之和.
vara,b,c,d,s:integer;
begin
read(s);
a:=smod10;
b:=sdiv10mod10;
c:=sdiv100mod10;
d:=sdiv1000;
write(a+b+c+d);
end.

2.判断结构
201.求三个数的最大值
1.打擂台模式
vara,b,c,s:integer;
begin
read(a,b,c);
s:=a;
ifb>sthens:=b;
ifc>sthens:=c;
write(s);
end.
2.else方式
vara,b,c,s:integer;
begin
read(a,b,c);
ifa>=bthen
ifa>=cthen
write(a)
else
write(c)
else
ifb>=cthen
write(b)
else
write(c);
end.

202.判断是否闰年
varn:integer;
begin
read(n);
if(nmod100<>0)and(nmod4=0)or(nmod400=0)then
write('yes')
else
write('no');
end.
203.输入年和月，输出该月有多少天。

var
year,month,day:integer;
runnian:boolean;
begin
readln(year,month);
casemonthof
1,3,5,7,8,10,12:day:=31;
4,6,9,11:day:=30;{————以上处理31天和30天的情况}
2:begin
runnian:=(yearmod400=0)or((yearmod4=0)and(yearmod100<>0));
caserunnianof
true:day:=28;
false:day:=29;
end;
end;{————以上处理2月的情况：闰年28天，平年29天}
end;
write(day);
end.

204.某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。
varn,s:real;
begin
read(n);
ifn>100thens:=n*0.8
else
ifn>50thens:=n*0.9
else
s:=n;
write(s);
end.
3.循环结构
1.单重循环
301.
1+2+3+4+...+100
(1)for...do型
varn,i,s:integer;
begin
n:=100;
fori:=1tondos:=s+i;
write(s);
end.
(2).while....do型
varn,i,s:integer;
begin
n:=100;
i:=1;
whilei<=ndo
begin
s:=s+i;
i:=i+1;
end;
write(s);
end.
(3).repeat...until型
varn,i,s:integer;
begin
n:=100;
i:=1;
repeat
s:=s+i;
i:=i+1;
untili>n;
write(s);
end.

302.
1+3+5+7+..+99
(1)for...do型
varn,i,s:integer;
begin
n:=99;
fori:=1tondo
ifimod2=1then
s:=s+i;
write(s);
end.
(2).while....do型
varn,i,s:integer;
begin
n:=99;
i:=1;
whilei<=ndo
begin
s:=s+i;
i:=