标签：Writeln 变量 10 程序 Pascal 学习 PASCAL 简单

原文链接：http://www.cnblogs.com/masky5310/archive/2010/10/28/1863717.html

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

 

转载于:https://www.cnblogs.com/masky5310/archive/2010/10/28/1863717.html

标签：Writeln,变量,10,程序,Pascal,学习,PASCAL,简单
来源： https://blog.csdn.net/weixin_30781433/article/details/99661789

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。