PASCAL简单学习

一、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.