Question

pascal高手进

问一下pascal里uses dos 和 uses crt 里都有什么函数？每知道2个5分。
还有uses crt 在turbo pascal 里能用么？(5分）

Answer 1

crt单元
crt单元定义的过程或函数首部形式及说明

过程或函数首部形式 说明
procedure assigncrt(var f:text); 将文本文件f与显示器CRT建立联系
function keypressed:boolean; 检测是否有键按下,有则函数值为true
function readkey:char; 等待从键盘输入一个字符
procedure textmode(mode:integer); 设置字符显示模式,mode值见下表,可以用常量标识符或常数值
procedure window(x1,y1,x2,y2:byte); 定义字符窗口:(x1,y1)为左上角坐标,(x2,y2)为右下角坐标;必须在设置模式允许范围内.窗口定义后,所有显示均在窗口进行
procedure gotoxy(x,y:byte); 将光标移至(x,y)处
function wherex:byte; 返回当前窗口中光标所在的列数(相对当前窗口)
function wherey:byte; 返回当前窗口中光标所在的行数(相对当前窗口)
procedure clrscr; 清除当前窗口或屏幕
procedure clreol; 从光标位置开始清除至本行末尾(不超过窗口右边界)
prlcedure insline; 在当前光标处插入一行
procedure deline; 删除光标所在的当前行
procedure textcolor(color:byte); 设置正文前景颜色
procedure textbackground(color:byte); 设置正文背景颜色
procedure lowvideo; 选择低亮度显示字符
procedure highvideo; 选择高亮度显示字符
procedure normvideo; 选择正常亮度显示字符
procedure delay(ms:word); 等待或延迟ms个毫秒
procedure sound(hz:word); 以hz指定的频率发声
procedure nosound; 关闭内部扬场声器
显示模式常数表

常量标识符 常数值 显示模式
BW40 0 彩色显示卡40*25黑白模式
CO40 1 彩色显示卡40*25彩色模式
C40 1 同上,用于兼容3.0版本
BW80 2 彩色显示卡80*25黑白模式
CO80 3 彩色显示卡80*25彩色模式
C80 3 同上,用于兼容3.0版本
Mono 7 单色显示卡80*25模式
Font 8*8 256 用于ROM字模
前景和背景颜色常数表

常量标识符 常数值 颜色 前景 背景 常量标识符 常数值 颜色 前景 背景
Black
Blue
Green
Cyan
Red
Magenta
Brown
LightGray 0
1
2
3
4
5
6
7 黑
蓝
绿
青
红
洋江
棕
浅灰 Y
Y
Y
Y
Y
Y
Y
Y Y
Y
Y
Y
Y
Y
Y
Y DarkGray
LightBlue
LightGreen
LightCyan
LightRed
LightMagenta
Yellow
White 8
9
10
11
12
13
14
15 深灰
浅灰
浅绿
浅青
浅红
浅洋红
黄
白 Y
Y
Y
Y
Y
Y
Y
Y
Blank 128 闪烁
crt单元中的变量

变量名 类型 单元中作用
checkbreak boolean 程序在执行下一个write或writeln语句之前是否做Ctrl+Break检查
checkeof boolean 允许文件结束的Ctrl+Z检查
directvideo boolean 为true时采用直接访问视频内存方式
checksnow boolean 为true时进行雪花过滤控制
lastmode word 保存上一次显示模式
textattr byte 保存当前的正文前景与背景颜色
windmin word 保存当前窗口左上角坐标(低字节为列坐标,高字节为行坐标)
windmax word 保存当前窗口右下角坐标(低字节为列坐标,高字节为行坐标)
crt单元主要用于正文模式下字符的显示和正文窗口的设置.显示器一屏可以显示25(行)*80(列)个字符.每个字符除自身的字形外还有字符本身的颜色(称为前景色)和字符空白区的底色(称为背景色).字符和颜色信息被存贮在特定的显示存贮区内.每一个字符信息占用两个字节:第一个字节存贮该字符的ACSII码值,而第二个字节则存贮该字符的前景色,背景颜色等属性信息.属性字节的含义见下:
bit0~bit2:前景颜色(bit0:Blue;bit1:Green;bit2:Red)
bit3:高亮度(Brightness)
bit4~bit6:背景颜色(bit4:Blue;bit5:Green;bit6:Red)
bit7:闪烁(Blinking)
例:设置屏幕为25行*40列正文模式,并改变字符的前景颜色和背景颜色.
program testtext(output);
uses crt;
begin
textmode(c40);
textbackground(blue);
textcolor(red);
writeln('text mode test');
textbackground(green);
textcolor(blink+yellow);
writeln('blink test');
end.
dos单元常用过程与函数

getdate(var Word, var Word, var Word, var Word); procedure
返回系统当前日期
第一个参数是年份
第二个参数是月份
第三个参数是日期
第四个参数是？(未知)

gettime(var Word,var Word,var Word,var Word); procedure
返回系统当前时间
第一个参数是小时
第二个参数是分钟
第三个参数是秒
第四个参数是毫秒(1/100 s)

*packtime procedure
转换系统日期和时间，封装成4个字节的长整形格式

setdate(Word, Word, Word); procedure
设置系统当前日期
参数同getdate

setftime(var <Formal type>, LongInt); procedure
写入新的系统日期和时间，覆盖系统最后一次写入的系统日期和时间文件

settime(Word, Word, Word, Word); procedure
设置系统当前时间
参数同gettime

*uppacktime procedure
将系统日期和时间转换成纪录格式

diskfree(Byte):Int64 function 返回指定磁盘可用剩余空间
其中参数：1 表示 软驱A：
2 表示 软驱B：
3 表示 硬盘分区C：
4 表示 硬盘分区D：
.....以此类推

disksize(Byte):Int64 function 返回指定磁盘的总容量
参数同diskfree

*get/setverity procedure 返回/设置dos状态下的磁盘读写标记

fexpand(ShortString):string; function
返回路径的全称 如有chdir则返回chdir指定的路径

fsearch(ShortString, ShortString):ShortString; function
在一个目录中查找文件
第一个参数ShortString是文件名
第二个参数ShortString是目录名
如果在指定的目录找到文件 则返回文件名 否则返回空

*fsplit function
将一个文件名分成目录、文件名、扩展名

findfirst(const ShortString, Word, var Searchrec); procedure
在当前目录或指定目录下查找第一个与给定属性相匹配的文件名

findnext(var Searchrec) procedure
返回下一个满足匹配条件的文件名

getfattr(var <Formal type>, val Word) procedure
返回文件的属性

setfattr(var <Formal type>, val Word); procedure
设置文件属性

*gerintvec procedure
返回某个中断变量值

*intr procedure
执行软中断

*msdos procedure
执行dos 系统调用

*setintvec procedure
设定中断值

exec(const ShortString, const ShortString) procedure
通过一个特定命令行执行特定程序段

*keep procedure
中断程序的执行但仍驻留在内存中

swapvectors() procedure
用当前变量交换所有中断变量值

dosexitcode() function & procedure
回到子程序出口

dosversion() function & procedure
显示dos版本