if<条件> then [<语句1>][else<语句2>];
例:if(x>0) and (y>0) then
z:=x+y //注意:这里不需要加分号else
z:=x-y;//可以继续嵌套if then else语句
case语句
case<选择器表达式> of
<情况常量表1>:<语句1>;...<情况常量表n>:<语句n>;else<其它语句>;
end;
例:case par of
0:writeln('Hello');1:writeln('world');elsewriteln('Hello world!');
end;
5. 循环语句
while 语句
while<条件>do
循环体;//循环体用begin...end括起来
例:while n<=100do
begin
sum:=sum+n;
n:=n+1;
end;
repeat 语句
repeat
循环体;
until <条件>;
例:
program Test;
var
sum,n:Integer;
begin
sum:=0;
n:=0;
repeat
sum:=sum+n;
n:=n+1;
until n>=100;writeln(sum)
end.
for 语句
for<循环变量>=<初值>{to|down}<终止>do
begin
循环体;
end:
例:for i:=0 to 100do
begin
sum:=sum+i;
end:
6. 数组
var 数组名:array[1..n] of integer;
例:
var a:array[1..10] of integer;//定义一个整型的数组a[10]