pascal小学生教程

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.