整数int
实数real
布尔值Boolean
字符型Char -- Character
前面都讲了，这里我就不讲了
先试试下面的类型
1. 常量 和 字符串
program Greetings;
const
message = ' Welcome to the world of Pascal ';
type
name = string;
var
firstname, lastname: name;
begin
writeln('Please enter your first name: ');
readln(firstname);
writeln('Please enter your last name: ');
readln(lastname);
writeln;
writeln(message, ' ', firstname, ' ', lastname);
end.
解释一下几个关键字：
const-- 常数；恒量
string -- 字符串；弦；线；一连串
type -- 类型
var -- variable，变量
能够理解上面的代码了么？？
理解了的话，我就不废话了。
继续
2. 枚举类型 Enumerated
program exEnumeration;
type
beverage = (coffee, tea, milk, water, coke, limejuice);
var
mydrink:beverage;
begin
writeln('Which drink do you want?');
mydrink := milk;
writeln('You can drink ', mydrink);
end.
ex -- example 的意思
Enumeration -- 枚举；列举型别；枚举类型
beverage -- 饮品；酒水类；食品饮料
limejuice -- 酸橙汁，汽水
首先自己敲程序，正确运行，我想你肯定看明白了，不需要我废话了。自己尝试尝试，修改一下beverage = (coffee, tea, milk, water, coke, limejuice);的详细定义，或者在这里加入一个别的定义，比如 number = (1, 2, 3, 4, 5, 6);, 来表达你可以喝3瓶汽水这个意思。
3. 子区域；子范围 类型：subrange
首先你需要知道range这个单词是什么意思：它表达的是（变动或浮动的）范围，界限，区间.
sub -- 子区间，次级区间 的意思。
ok 下面直接阅读代码：
program exSubrange;
var
marks: 1 .. 100;
grade: 'A' .. 'E';
begin
writeln( 'Enter your marks(1 - 100): ');
readln(marks);
writeln( 'Enter your grade(A - E): ');
readln(grade);
writeln('Marks: ' , marks, ' Grade: ', grade);
end.
这里mark是成绩的意思，grade是成绩的等级。你可以看到，sub-range的定义是很简单的：
marks: 1 .. 100;
grade: 'A' .. 'E';
即可。
下面的代码在free pascal环境之中，会提示越界。但是在CP pascal editor 里面，似乎不会有任何的问题，但是这没有影响我们的使用。你可以自己运行一下试试。
program exSubrange;
type
marks = 1 .. 100;
grade = 'A' .. 'E';
var
mymark: marks;
mygrade: grade;
begin
mymark:= 200;
mygrade:= 'Z';
writeln(mymark);
writeln(mygrade);
end.
注意这里的var是这样的：
var
mymark: marks;
mygrade: grade;
不要写成：
var
mymark: integer;
mygrade: char;
好了讲完了
2015年4月22日20:57:29
@kaikai
