Question

pascal程序中记录类型中能否出现string

TYPE
xx=string;
date=RECORD
year:integer;
mounth:1..12;
day:1..31;
END;
student=RECORD
num:integer;
birthday:date;
marridate:date;
CASE sex:xx of
'1':(n:integer);
'2':(ok:string);
END;
VAR
a:student;
BEGIN
WITH a,birthday do
BEGIN
num:=12345;
year:=2012;
mounth:=12;
day:=21;
WITH marridate do
BEGIN
year:=1999;
mounth:=11;
day:=2;
END;
readln (sex);
CASE sex of
'1':read (n);
'2':read (ok);
END;
END;
WITH a,birthday do
BEGIN
writeln (num,' ',year,' ',mounth,' ',day);
WITH marridate do
writeln (year,' ',mounth,' ',day);
CASE sex of
'1':write (n);
'2':write (ok);
END;
END;
END.
但是改成这样却能运行
TYPE
date=RECORD
year:integer;
mounth:1..12;
day:1..31;
END;
student=RECORD
num:integer;
birthday:date;
marridate:date;
CASE sex:integer of
1:(n:integer);
2:(ok:string);
END;
VAR
a:student;
BEGIN
WITH a,birthday do
BEGIN
num:=12345;
year:=2012;
mounth:=12;
day:=21;
WITH marridate do
BEGIN
year:=1999;
mounth:=11;
day:=2;
END;
readln (sex);
CASE sex of
1:read (n);
2:read (ok);
END;
END;
WITH a,birthday do
BEGIN
writeln (num,' ',year,' ',mounth,' ',day);
WITH marridate do
writeln (year,' ',mounth,' ',day);
CASE sex of
1:write (n);
2:write (ok);
END;
END;
END.
试问一楼：为什么？

Answer 1

case 当然不能和 string 联用。

只能和 integer 类型一起

Answer 2

在定义语句中不能出现case

Answer 3

定义语句中不能出现case