PASCAL程序结构.

PASCAL程序例2.1
PROGRAM printtype(output); CONST pi=3.1416; r=5; VAR i,j,k,l:integer; w,x,y,z:real; ch1,ch2:char; b1,b2:boolean; BEGIN writeln('write&writeln statement format!'); writeln; i:=10; j:=100; w:=pi/2; z:=pi; x:=4*pi*sqr(r); b1:=(i<j) AND (z>w); b2:=NOT(w<z); ch1:='A'; ch2:='a'; write(i,' ',j); write(' ',sqr(i),' ',sqrt(j)); writeln; writeln(w,z); writeln(ch1,' ',ch2,' ',b1,' ',b2); writeln('radius=',r,' surfacearea=',x:8:4); writeln(' volume=',y:9:4); writeln(b1=b2,b1>b2:6); END.
y:=x*r/3;
作业
2.7 2.8 2.10 2.11 补充：编写一个程序，在屏幕上 输出下面的图形。
* **
*
*
* * *********
begin
write(' a,b,c= '); read(a,b,c); x := a + b + c; write(' x= ', x); end.
运行结果：
a,b,c= 1 2 3 x=6
输出语句write和writeln
输出语句的作用是：
将程序运行的结果显示在显示器 或打印机上，并且可以通过设置域宽进 行简单的格式控制。
语句部分
PASCAL程序示例
Program example1(input,output); Var temp,a,b,c:integer; Begin write(‘input three integer numbers:’); readln(a,b,c); if a<b then begin temp:=a; a:=b; b:=temp; end; if a<c then begin temp:=a; a:=c; c:=temp; end; if b<c then begin temp:=b; b:=c; c:=temp; end; writeln(a:5,b:5,c:5); End.
常量和常量定义

常量（const）和常量定义 字符串常量、数值常量 可以通过常量定义为常量起名字。用保 留字; ′
常量定义 部分：
＝
常量
常量：
常量标识符 无正负号数
字符
′
const
常量定义
;
变量和变量说明

变量（variable）和变量定义（说明） 一个变量的实质是：内存中的一个存储 单元。有类型、值和地址等属性。用保 留字var进行声明。
Write语句的格式
写语句：
write
（
项目 ，
）
writeln
单域宽 双域宽
项目
： ：
域宽
域宽1
项目
：
域宽2
例：使用Write语句输出信息

编写一个程序，在屏幕上输出以下信息： Hello！ My name is zhangshuping.
Program example2:
Program example2(input,output); Begin writeln(' Hello!'); writeln(' My name is zhangshuping. '); End.
变量说明
变量说明： 标识符 ,
变量定义 部分：
：
类型
var
变量说明
;
表达式

算术表达式 布尔表达式 运算符号的优先级
简单的PASCAL程序（二）

赋值语句 最简单的语句，用于对变量进行赋值， 形式为：变量:=表达式 例如：a:=a+1； b:=a
赋值语句
例如
program ex1(input,output); var a,b,c,x : integer ;
PASCAL程序结构
一个简单的PASCAL程序由程序首部和程序 体这两部分组成。
程序首部
声明部分 程序体
Program example(input,output);
Var i,j:integer; ｛声明部分｝ ch:char; Begin ｛语句部分｝ read(i); j:=i*i; writeln(i:5,j:5); End.