数据类型@Pascal学习日记

整数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