入门学习遇到的简单问题(10分)

A

agamomnon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #1

type
Trec=record
year:integer;
montha,b,c,d,e,f,g);
day:1..31;
end;
var
date1,date2:trec;

begin
date1.year:=1979;
date1.month:=a;
date1.day:=18;

writeln(date2.month)
//这里出错
这里的 date2.month是字符型的，要如何显示出来？

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #2

date2.month->date1.month

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #3

month是枚举型。writeln(date2.month)
这样写出来是0至6的数字。
要显示字符可以这样：
strMonth: array[0..6] of Char=('a','b','c','d','e','f','g');
....
writeln(strMonth[integer(date1.month));

在turbo pascal里不知道是否可直接写writeln(strMonth[date1.month]);

 

A

agamomnon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #4

这样好像蛮复杂的

 

A

agamomnon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #5

应该是write (date1.month)

 

R

rocqd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-09

• #6

注意,枚举类型元素只是一种符号,无任何实际意义,而且不能用write,
如用它,需通过别的形式,zw84611已给出事例.
data2用之前应先初始化.

 

A

agamomnon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #7

多人接受答案了。