2、const,div,do,downto,else,end,file,for,funtion,goto,if,in,label,mod,nil,not,of,or,packed,procedure,program,record,repeat,set,then,to,type,until,var,while,with等b类.标准标识符:指pascal语言预先定义的标识符,具有特殊含义。以下列举了pascal语言部分常用的标准标识符:标准常量falsemaxinttrue标准类...
整型:标准型 integer -32768~32767 长整型 longint -2147483648~2147483647 字节型 byte 0~255 实型:标准型 real 字符型: 字符型 char 字符串 string 布尔型: boolean(false,true) 函数: 绝对值: abs abs(-6)=6 平方:sqr sqr(6)=36 平方根:sqrt sqrt(36)=6 求小数部分:frac frac(6.5)...
8、; S:String):Byte;、二注意:Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer 值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到 Substr,贝U Pos返回 0。例子:var S:String;beginS := ' 123.5' Convert spaces to zeroes while Pos(' ', S) > 0 doSPos(' ', S)...
语句专用符号:case、do、downto、else、for、goto、if、repeat、then、to、until、while、with、forward; 运算符号:and、not、or、in、div、mod; 分隔符号:begin、end; 空指针常量:NULL。 折叠编辑本段标识符 标准常量:false,true,maxint. 标准类型:integer,real,char,string,boolean,text. ...
① 文本文件：var MyFile: TextFile; S: string;begin AssignFile(MyFile, 'a.txt'); Reset(MyFile); Readln(MyFile, S); CloseFile(MyFile); end.② 二进制文件（无类型）：var MyFile: file; Data: array [0..99] of Byte;begin AssignFile(MyFile, 'a'); ...
for i:=1 to 8 do {打印物品件数b数组} write(b[ i ]:8:2); {输出项宽度为8,小数2位} writeln; {换行} write('s':2, ' ':2); for i:=1 to 8 do {打印物品计价s数组} write(s[ i ]:8:2); {输出项宽度为8,小数2位}
第一个FOR那里，1 to length(S) 是 整数的类型 而s 是字符串，还有，num的初始化应该放在循环的外面，否则会每次都清空，那就白折腾了 还有，case前面不用 也 不能加 FOR 否则出现一次 变十次 等等，A究竟有啥用呢，它是空的，最后输出也应该用一重循环。所以应改成 var s:string;i,k:byt...
Fn : String;{文件名串} N, i, j : Integer;{N-石子堆数,i,j-循环变量} Procedure Print(i, j : Byte);{递归打印子序列[i,j]的合并过程} Var k, x : Shortint;{k-循环变量;x-子序列2中首堆石子的序号} Begin If j <> 1 Then Begin{继续倒推合并过程} Print(i, List[i,j]...
可以用string定义,也可以使用字符数组。 常量 常量(constant)在pascal中不像C中一样用const修饰变量(或者直接#define),pascal的常量在const下声明,如下: {求一个圆的面积} const {在此定义常量} PI = 3.141592654; var {在此定义变量} r, s : real; begin writeln('r ?'); readln(r); s := PI * ...