当前位置：文档之家 › Free Pascal CRT 单元常量、变量、函数、过程详解

Free Pascal CRT 单元常量、变量、函数、过程详解

  • 格式：doc
  • 大小：57.00 KB
  • 文档页数：9

类型，变量，常量:颜色定义:Black = 0;Blue = 1;Green = 2;Cyan = 3;Red = 4;Magenta = 5;Brown = 6;LightGray = 7;DarkGray = 8;LightBlue = 9;LightGreen = 10;LightCyan = 11;LightRed = 12;LightMagenta = 13;Yellow = 14;White = 15;Blink = 128;杂项常数:TextAttr: Byte = $07;TextChar: Char = ' ';CheckBreak: Boolean = True;CheckEOF: Boolean = False;CheckSnow: Boolean = False;DirectVideo: Boolean = False;LastMode: Word = 3;WindMin: Word = $0;WindMax: Word = $184f;ScreenWidth = 80;ScreenHeight = 25;一些变量与Turbo Pascal兼容，但在Free Pascal中，他们没有用处。

varcheckbreak : boolean;checkeof : boolean;checksnow : boolean;以下常量定义在DOS系统屏幕模式：Constbw40 = 0;co40 = 1;bw80 = 2;co80 = 3;mono = 7;TextAttr变量控制被写入屏幕字符的属性。

var TextAttr : byte;DirectVideo变量控制控制在屏幕上书写。

如果为True，游标通过直接设置端口访问，如果为False,然后使用BIOS,这只是DOS下的定义。

Lastmode变量告诉你哪种模式是最后被屏幕选择的，它的定义只是基于DOS。

var lastmode : Word;过程和函数：1、Procedure AssignCrt (Var F: Text);AssignCrt指定一个文件F到屏幕。

写入文件F一切转到屏幕代替。

如果屏幕包含一个窗口，全部写在窗口代替。

注：功能接近于Writeln。

例子：Program Example1;uses Crt;varF : Text;beginAssignCrt(F);Rewrite(F);WriteLn(F,'This is written to the Assigned File');Close(F);end.2、Procedure CursorBig;使光标（不是鼠标图形）成为大矩形，在LINUX上不可用。

如果不明白的话，运行下面这个程序：Program df;BeginReadln;End.仔细观察效果后，在运行下面这个程序：Program df;Uses crt;BeginCursorBig;Readln;End.仔细对比后你就会知道什么意思了。

例子：Program Example9;uses Crt;{ Program to demonstrate the ClrEol function. }var I,J : integer;beginFor I:=1 to 15 doFor J:=1 to 80 dobegingotoxy(j,i);Write(j mod 10);end;Window(5,5,75,12);Write('This line will be cleared from',' here till the right of the window');GotoXY(27,WhereY);ReadKey;ClrEol;WriteLn;end.3、Procedure ClrScr;ClrScr清除当前窗口（使用当前的颜色），并设置在当前窗口左上角的光标。

（就是清屏）例子：Program Example8;uses Crt;{ Program to demonstrate the ClrScr function. }beginWriteln('Press any key to clear the screen');ReadKey;ClrScr;Writeln('Have fun with the cleared screen');end.4、Procedure CursorOff;隐藏光标。

在LINUX上无效。

5、Procedure CursorOn;显示光标。

在LINUX上无效。

6、Procedure Delay (DTime: Word);延迟等待指定的毫秒数。

指定的秒数是个近似值（即可能有偏差），如果系统负载高，可能被关闭。

例子：Program Example15;uses Crt;{ Program to demonstrate the Delay function. }vari : longint;beginWriteLn('Counting Down');for i:=10 downto 1 dobeginWriteLn(i);Delay(1000); {Wait one second}end;WriteLn('BOOM!!!');end.7、Procedure DelLine;DelLine删除当前行。

当前行一下的自动向上移动一行，并且在当前窗口底部插入一空行，光标不移动。

例子：Program Example10;uses Crt;{ Program to demonstrate the InsLine function. }beginClrScr;WriteLn;WriteLn('Line 1');WriteLn('Line 2');WriteLn('Line 2');WriteLn('Line 3');WriteLn;WriteLn('Oops, Line 2 is listed twice,',' let''s delete the line at the cursor postion');GotoXY(1,3);ReadKey;DelLine;GotoXY(1,10);end.8、Procedure GotoXY (X: Byte; Y: Byte);光标移动到(x,y)处，x指横坐标，y指纵坐标（从窗口顶部开始不包括标题栏）。

原来的位置（程序编译后一运行时）是（1，1），窗口的左上角。

例子：Program Example6;uses Crt;{ Program to demonstrate the GotoXY function. }beginClrScr;GotoXY(10,10);Write('10,10');GotoXY(70,20);Write('70,20');GotoXY(1,22);end.9、Procedure HighVideo;高亮显示文本（不是窗口中的所有文本，执行该过程后，读入输出的文本才高亮显示）它设置的视频属性高强度位。

例子：Program Example14;uses Crt;{ Program to demonstrate the LowVideo, HighVideo, NormVideo functions. } beginLowVideo;WriteLn('This is written with LowVideo');HighVideo;WriteLn('This is written with HighVideo');NormVideo;WriteLn('This is written with NormVideo');end.10、Procedure InsLine;InsLine在当前光标位置插入一个空行，当前行以下的自动向下滚动一行，最后一行从窗口中消失，光标不移动。

例子：Program Example10;uses Crt;{ Program to demonstrate the InsLine function. }beginClrScr;WriteLn;WriteLn('Line 1');WriteLn('Line 3');WriteLn;WriteLn('Oops, forgot Line 2, let''s insert at the cursor postion'); GotoXY(1,3);ReadKey;InsLine;Write('Line 2');GotoXY(1,10);end.11、Function KeyPressed : Boolean;KeyPressed函数扫描键盘缓冲区，确认是否有键按下。

如果有，则返回True，如果没有，则返回False。

Shift、Alt、Ctrl不包括在内。

例子：Program Example2;uses Crt;{ Program to demonstrate the KeyPressed function. }beginWriteLn('Waiting until a key is pressed');repeatuntil KeyPressed;{ The key is not Read,so it should also be outputted at the commandline}end.12、Procedure LowVideo;低亮度显示文本。

13、Procedure NormVideo;NormVideo以正常亮度显示文本，为默认值。

14、Procedure NoSound;让扬声器停止发出声音。

并不是所有操作系统都支持。

例子：Program Example16;uses Crt;{ Program to demonstrate the Sound and NoSound function. }vari : longint;beginWriteLn('You will hear some tones from your speaker');while (i<15000) dobegininc(i,500);Sound(i);Delay(100);end;WriteLn('Quiet now!');NoSound; {Stop noise}end.15、Function ReadKey : Char;ReadKey从键盘缓冲区读取一个键并返回。

合集下载

pascal-函数和过程

pascal-函数和过程


procedure show(Var a:integer); 形式参数 A 是＿＿＿ 对应的实参必须是变量 变参与实参的关系是传地址 变参可作输入参数，有出口值表示过
程的返回值
例：下列程序的运行结果如何： program ex;
var i,j:integer;
procedure sample(x:integer;var y:integer); begin x:=x+2;y:=y+2; end;
程序 3： Program ex5-8; Var
Total,tatal:lonint; K:integer; Procedure njc(n:longint; var s:longint); Var i:integer; Begin S:=1; For i:=1 to n do S:=s*I; End; {===main===} Begin Total:=0; For k:=2 to 5 do
End; Begin
Write(‘Input 5 numbers : ‘); Readln(n1,n2,n3,n4,n5); T1 := n1; T1 := Max(t1,n2); T1 := Max(t1,n3); T1 := Max(t1,n4); T1 := Max(t1,n5); Writeln(‘Max number : ‘,t1); End. 输入数据：21 45 9 35 7 输出结果为： 2、程序 2 二、program ex7_4;
2.自定义过程：由程序员在程序中定义后再使用。给某个语句序列组成的子程序赋于 一个适当的名字。程序中凡是需要出现这个语句序列的地方，可以简单的写上子程序 的名字。这种完成一个操作的子程序称为过程；子程序的定义称为过程说明。过程说 明由过程首部和过程体组成，其形式如下：
Pascal语言基础知识(2)

Pascal语言基础知识(2)

只要有一个运算对象是实型， 结果就是实型，如果全部的运 算对象都是整型并且运算不是 除法，则结果为整型，若运算 是除法，则结果是实型。

整型 整型
优先级：*,/,div,mod > +,-
b.逻辑运算符

运算符
运算
运算对象
结果类型
not
and
逻辑非
逻辑与
布尔型
布尔型
布尔型
布尔型
or
xor

逻辑或
逻辑异或
Var r,l,s:real; Begin Readln(r); L:=2*3.1415926*r; S:=3.1415926*r*r; Writeln(‘l=’,l); Writeln(‘s=’,s); End.
思考：符号常量有什么意义？
Program yuan(input,output); Const pai =3.1415926; Var r,l,s:real; Begin Readln(r); L:=2*pai*r; S:=pai*r*r; Write (‘l=’,l:10:2); Writeln(‘s=’,s:10:2); End.

它的语法格式是： const <常量标识符>=<常量>; ... <常量标识符>=<常量>;


常量标识符的类型由定义它的常量的类型决定。 例如： const a=12 ； 隐含说明a是整型； r=3.21； 隐含说明r是实型...... (3)常量定义部分必须以保留字const开头，可以包含一个 或几个常量定义，而且每个常定义均以分号结束。
chr( 98 )=
‘b’ 97
ord(‘a’)= round(-4.5)=-4
freepascal语言教学第三课

freepascal语言教学第三课

走进Pascal的世界
赋值语句与读入语句
赋值语句

已知圆的半径为3，输出圆的周长和面积。
Program ex15;
Begin
writeln(„c=„,3.14*3*2,‟ „,‟s=„,3.14*3*3); End. 如果我要多次使用周长和面积的值，怎么办呢？
有没有办法直接用c来保存周长的值，用s来保存 面积的值？
常量、变量和表达式
2、变量 变量代表了一个存储单元,其中的值是可变的,所以称为变量.（在内存开辟 一块空间，空间的大小由变量的类型决定） 变量有三个要素是:变量名,变量类型,变量值. 1）变量名是用一个合法的标识符代表一个变量 2）变量的类型 变量是有类型的数据,变量在某一固定时刻用来存放一个常量,因此也 应有相应的类型.如整型变量用来存放整数,实型变量用来存放实数. 3）变量说明 在程序中若要使用变量,变量的名称及类型在程序的变量说明部分加以 定义,变量的值则在程序的执行部分中才能赋给. 变量说明的一般格式: VAR a，b：integer；
参考程序
program ex2; var A,B,C:integer; begin A:=50;B:=43;C:=13; {初始时每个小朋友所拥有的糖果数} A:=A div 3; B:=B+A;C:=C+A; {甲小朋友分糖果后，每个 人拥有的糖果数变化情况} B:=B div 3; A:=A+B;C:=C+B; {乙小朋友分糖果后，每个 人拥有的糖果数变化情况} C:=C div 3; A:=A+C;B:=B+C; {丙小朋友分糖果后，每个 人拥有的糖果数变化情况} writeln('A=',A,'B=',B,'C=',C); {输出结果} end.
pascal编程语言中的变量和常量

pascal编程语言中的变量和常量

变量Pascal 变量在使用前必须声明，声明变量时必须指定一种数据类型。

下面是变量声明的例子：varValue: Integer;IsCorrect: Boolean;A, B: Char;关键字var可以在许多地方使用，例如放在函数或过程的开始部分，用来声明函数或过程的局部变量；也可以放在单元中，用于声明全程变量。

var关键字之后是一组变量名列表，每个变量名后跟一个冒号和数据类型名，一行中可以声明多个变量，如上例中最后一句。

一旦变量的类型被指定，你只能对变量执行该变量类型支持的操作。

例如，在判断操作中用布尔值，在数字表达式中用整型值，你不能将布尔值和整型值混用（在C语言中可以这样）。

使用简单的赋值语句，可写出下面的代码：Value := 10;IsCorrect := True;但下面的语句是不正确的，因为两个变量数据类型不同：Value := IsCorrect; // error在Delphi中编译这句代码，会出现错误信息：Incompatible types:'Integer' and 'Boolean'.（类型不兼容：‘整型’和‘布尔型’）。

象这样的错误通常是编程错误，因为把一个True或False的值赋给一个整型变量没有什么意义。

你不该责怪Delphi 提示这样的错误信息，代码中有不对的地方Delphi当然要提出警告。

把变量的值从一种类型转换到另一种类型往往不难做到，有些情况下类型转换会自动实现，不过一般情况下需要调用特殊的系统函数，通过改变数据内部表示来实现类型转换。

在Delphi 中，当你声明全程变量时，你可以赋给它一个初值。

例如，你可以这样写：varValue: Integer = 10;Correct: Boolean = True;这种初始化方法只能用于全程变量，不能用于过程或方法的变量。

常量对于在程序运行期间保持不变的值，Pascal 允许通过常量来声明。