三、程序的基本结构：
1、 顺序结构：以上的程序都是按照语句书写的顺序一条一条执行的，它是顺序程序结构。
2、 选择结构（分支结构）之一：
计算半径为R的圆面积S
program Area（input , output）; {程序首部}
{已知半径求圆的面积}
const pi=3.14159; {说明部分——数据描述}
var s,r:real;
begin {执行部分}
readln(r);
s:=pi*sqr(r);
writeln
end |
语句结构：
A、IF 条件 THEN 语句1
B、IF 条件 THEN 语句1
ELSE 语句2
例如：求y=f(x),当x>0时，y=1，当x=0时，y=0，
当x<0时，y=-1
Program exp1(input,output)
Var
X,y : real;
Begin
Writeln (‘input x=‘);
Read (x);
If (x<0)
Then y:=-1;
Else
case语句其形式为：
case 表达式 of
常量1：语句1；
常量2：语句2；
……
常量n：语句n；
else 语句 n+1 ｛可选项｝
end; |
If x>0
Then y=1
Else y=0;
Writeln (‘y=‘,y);
End.
选择结构之二； case语句
program chengji;
var s:real;ch:char;
begin
write('input the score: ');
readln(s);
if(s>=0)and(s<=100)then
case s div 10 of
10,9:ch:=‘A';
8:ch:='B';
7,6:='C';
else ch:='D';
end;
writeln(s,'--',ch);
end.
表达式只能是顺序类型（除了实型以外的简单类型），其值必须是唯一确定并且和表达式类型相同。case语句执行和表达式值相匹配的case常数所指向的那条语句，如果没有相匹配的值，则执行else部分（如果有的话）或者什么也不做。在else前面的语句末尾有分号，这是和if语句不同的。 |
例：根据学生的成绩给予相应的等低，对应关系如下：
９０——１００ Ａ
８０——８９ Ｂ
６０——７９ Ｃ
６０以下 Ｄ
|
3、循环结构程序设计1
for 语句：
for 语句用来描述已知重复次数的循环结构。for 语句有两种形式：
(1) for 控制变量：＝初值 to 终值 do 语句；
(2) for 控制变量：＝初值 downto 终值 do 语句；
第一种形式的for 语句是递增循环。
第二种形式的for 语句是递减循环。（学生自主完成）
循环结构程序设计3：repeat语句
repeat
语句1;
……
语句n;
until 布尔表达式；
Begin
P:=20;
M:=2;
Repeat
p:=p-m
M:=m+3
Until m>p;
Write(‘m,p=‘,m,p);
end
免责声明：
① 凡本站注明“稿件来源：中国教育在线”的所有文字、图片和音视频稿件，版权均属本网所有，任何媒体、网站或个人未经本网协议授权不得转载、链接、转贴或以其他方式复制发表。已经本站协议授权的媒体、网站，在下载使用时必须注明“稿件来源：中国教育在线”，违者本站将依法追究责任。
② 本站注明稿件来源为其他媒体的文/图等稿件均为转载稿，本站转载出于非商业性的教育和科研之目的，并不意味着赞同其观点或证实其内容的真实性。如转载稿涉及版权等问题，请作者在两周内速来电或来函联系。
相关新闻
|
中国教育在线
