一、Pascal程序的基本结构
先说明一下Pascal程序的基本结构(事先说明一下,Pascal中的注释均是用{}括起来的):
Program 程序名;{标识这个程序的名称,可以省略。但是使用一个可读性好的程序名,可以对该程序实现的功能一目了然。}
Uses 调用单元{当程序使用别的单元里的变量、函数或者过程时,就需要在这里对单元作出调用声明,让编译器知道那些“陌生”的变量、函数或者过程的来源,一般程序都要引用Crt单元,因为它负责的是程序通过显示器的输入和输出}
Const
{常量定义}
Var
{变量定义}
Begin
{程序主体定义}
End;
通过使用Read(或Readln)和Write(或Writeln)来进行输入\输出的交互,Read和Readln区别只是后者输出字符串后会自动换行,这同样也适用于Write和Writeln。二、编一个Pascal程序
现在我们要实现的功能就是在屏幕上显示一个字符串“你好,世界!”。其实里面只涉及到一个字符串的定义和输出。在Turbo Pascal的集成环境下,在FILE菜单里选择NEW来新建一个程序,在新的编辑框里,输入如下程序:
Program Hello;
Uses Crt;
Var
{变量定义}
MyString:String;
Begin
{变量赋值}
MyString:=′你好,世界!′;
{调用Writeln在屏幕上输出}
Writeln(MyString);
End;
三、用PASCAL编制音响程序
在PASCAL语言中,SOUND的语法为SOUND(FREQNER),参数FE-QUENCY频率,单位为赫兹。过程DELAY的语法为:DELAY(DURATION),参数是以毫秒为单位表示延时时间。过程NOSOUND用来关闭扬声器。
我们可以用PASCAL来编制一个模拟电话铃声的小程序,十分有趣,也很逼真。程序如下:program sm(input,output);
uses crt;
procedure m(f:integer;d:real);
begin
sound(f);
delay(trunc(200*d))
end;
var i:integer;
begin
for i:=1 to 15 do
begin
m(650,10);
m(520,10);
nosound
end;
end.