pascal小学生教程
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1：输入两个整数x,y，计算x,y的差并输出。
Program example;
var
x,y,s:integer;
begin
read(x,y);
s:=x-y;
writeln(s);
end.
2、输入3个整数，输出最大的数。Program bijiao;
var
a,b,c,max:integer;
begin
readln(a,b,c);
if a>=b
then max:=a
else max:=b;
if c>max then max:=c;
writeln(max);
end.
四、IF 语句的嵌套
If 条件
Then Begin
If 条件
Then 语句1
Else 语句2;
End
Else Begin
If 条件
Then 语句3
Else 语句4;
End;
【典型例题1】计算s=1+2+3+...+n，n由键盘输入。Program example;
var
s,i,n:integer;
begin
readln(n);
s:=0;
For i:=1 to n do
s:=s+i;
writeln(s);
end.
【典型例题2】从键盘输入一个数，判断它是不是素数。PROGRAM sushu;
VAR
a,i:integer;
flag:boolean;
BEGIN
readln(a);
flag:=true;
FOR i:=2 to trunc(sqrt(a)) do
IF a mod i=0
THEN BEGIN flag:=false;BREAK;END; IF flag
THEN writeln(‘Y’)
ELSE writeln(‘N’);
END.