pascal枚举定义 pascal 枚举法
在其它程序设计语言中，一般用一个数值来代表某一状态，这种处理方法不直观，易读性差。如果能在程序中用自然语言中有相应含义的单词来代表某一状态，则程序就很容易阅读和理解。也就是说，事先考虑到某一变量可能取的值，尽量用自然语言中含义清楚的单词来表示它的每一个值，这种方法称为枚举方法，用这种方法定义的类型称枚举类型。
枚举类型是一种很有实用价值的数据类型，它是pascal一项重要创新。
（一）枚举类型的定义
枚举类型是一种自定义类型，要使用枚举类型当然也要先说明枚举类型。
枚举类型的一般格式:
(标识符1,标识符2,…,标识符n)
说明：①括号中的每一个标识符都称为枚举元素或枚举常量。
②定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围），也就是说，该类型的变量所有可能的取值都列出了。
例如，下列类型定义是合法的：
type days=(sun,mon,tue,wed,thu,fri,sat);
colors=(red,yellow,blue,white,black,green);
而下列类型定义是错误的(因为枚举元素非标识符):
type colortype=('red','yellow','blue','white');
numbers=(1,3,5,7,9);
ty=(for,do,while);
（二）枚举类型变量
定义了枚举类型，就可以把某些变量说明成该类型。如：
var holiday,workday:day;
incolor:colors;
也可以把变量的说明与类型的定义合并在一起,如:
var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);
incolor:(red,yellow,blue,white,black,green);
（三）枚举类型的性质
⒈枚举类型属于顺序类型
根据定义类型时各枚举元素的排列顺序确定它们的序号，第一个枚举元素的序号为0。例如：设有定义：
type days=(sun,mon,tue,wed,thu,fri,sat);
则:
ord(sun)=0,ord(mon)=1,ord(sat)=6;succ(sun)=mon,succ(mon)=tue,
succ(fri)=sat;pred(mon)=sun,pred(tue)=mon,pred(sat)=fri。
应注意的是：枚举类型中的第一个元素无前趋，最后一个元素无后继。
⒉对枚举类型只能进行赋值运算和关系运算
一旦定义了枚举类型及这种类型的变量，则在语句部分只能对枚举类型变量赋值，或进行关系运算，不能进行算术运算和逻辑运算。
在枚举元素比较时，实际上是对其序号的比较。当然，赋值或比较时，应注意类型一致。
例如，设程序有如下说明：
type days=(sun,mon,tue,wed,thu,fri,sat);
colors=(red,yellow,blue,white,black,green);
var color:colors;
weekday:days;
则下列比较或语句是合法的:
weekday:=mon;
if weekday=sun then write('rest');
weekday<>sun
而下面比较或语句是不合法的:
mon:=weekday;
mon:=1;
if weekday=sun or sat then write('rest');
sun>red
weekday<>color
⒊枚举变量的值只能用赋值语句来获得
也就是说，不能用read(或readln)读一个枚举型的值。同样，也不能用write(或writeln)输出一个枚举型的值。如write(red)是非法的，会发生编译错误。千万不要误认为，该语句的结果是输出"red"三个字符。
但对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。
⒋同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。
如:
type color1=(red,yellow,white);
color2=(blue,red,black);
是不允许的，因为red属于两个枚举类型。
（四）、枚举类型应用举例
例1 一周七天用sun,mon,tue,wed,thu,fri,sat表示， 要求利用枚举类型编程：当输入星期几的数字,能输出它的后一天是星期几(也用英文表示)。
源程序如下：
program ex6_1;
type week=(sun,mon,tue,wed,thu,fri,sat);
var
i : integer;
day,sucday : week;
begin
write('What date is it');readln(i);
case i of {根据输入i转换成枚举型}
1:day:=mon;
2:day:=tue;
3:day:=wed;
4:day:=thu;
5:day:=fri;
6:day:=sat;
7:day:=sun;
end;
{计算明天sucday}
if (day=sat) then sucday:=sun
else sucday:=succ(day);
{输出明天是星期几}
write('The next day is ');
case sucday of
sun:writeln('sunday');
mon:writeln('monday');
tue:writeln('tuesday');
wed:writeln('wednesay');
thu:writeln('thursday');
fri:writeln('friday');
sat:writeln('saturday');
end;
end.
评注：程序中变量day、sucday分别表示今天、明天
有两种方式：
1、在type里定义
type
x=('a','b','c','d');
其中x是类型名，括号里的是枚举量，可以是任意数字或字符；
2、直接在var里定义
var
a:('a','b','c','d');
其中a是变量名，括号里的是枚举量，可以是任意数字或字符.
a:1..3;
type
pascal 枚举类型~
var
a:(red,yellow,black);
//枚举类型，只是在程序内部使用；枚举类型数据的输入和输出，要用选择语句（一般是case语名）
c:char;
begin
readln(c);
case c of //枚举类型变量的值，在一个时刻，只会是许多值中的一个
'r':a:=red;
'y':a:=yellow;
'b':a:=black;
end;
case a of//值不同，可以输出不同的内容；输出的内容可以是任何的内容
red:writeln('is red');
yellow:writeln('is yellow');
black:writeln('is black');
end;
end.
var
a:array[1..100,1..100] of real;
raw,col,rawsum,colsum:array[0..101] of real;
m,n:integer;
f:text;
i,j,k:integer;
rawmin,colmin:integer;
begin
{输入矩阵}
assign(f,'center.in'); reset(f);
readln(f,m,n);
for i:=1 to m do for j:=1 to n do read(f,a[i,j]);
close(f);
{求每行元素的累加}
for i:=1 to m do begin
raw[i]:=0;
for j:=1 to n do raw[i]:=raw[i]+a[i,j];
end;
{求每列元素的累加}
for j:=1 to n do begin
col[j]:=0;
for i:=1 to m do col[j]:=col[j]+a[i,j];
end;
col[0]:=0; col[n+1]:=0; raw[0]:=0; raw[m+1]:=0;
{求每行对应的绝对值}
for i:=1 to m do begin
rawsum[i]:=0;
for k:=0 to i-1 do rawsum[i]:=rawsum[i]+raw[k];
for k:=i+1 to m+1 do rawsum[i]:=rawsum[i]-raw[k];
rawsum[i]:=abs(rawsum[i]);
end;
{求行最小}
rawmin:=1;
for i:=2 to m do if rawsum[i]<rawsum[rawmin] then rawmin:=i;
{求每列的对应的绝对值}
for j:=1 to n do begin
colsum[j]:=0;
for k:=0 to j-1 do colsum[j]:=colsum[j]+col[k];
for k:=j+1 to n+1 do colsum[j]:=colsum[j]-col[k];
colsum[j]:=abs(colsum[j]);
end;
{求列最小}
colmin:=1;
for j:=2 to n do if colsum[j]<colsum[colmin] then colmin:=j;
{输出}
writeln(rawmin:3,colmin:3);
end.
C如何添加enumc如何添加依赖项
答：定义枚举类型enumYOURENUMTYPE{ID1，//如果不指定，第一个标识符等于整数0，后面是1ID2，ID3=7，IDn//最后一个标识符后没有逗号}；//请注意，必须添加此分号来定义枚举变量enumYOURENUMTYPEvarname将varname=IDx赋给枚举变量；给出enumfruit{苹果、梨、橘子、桃子、葡萄、香蕉}的完整例子；穆恩水果m...
...最大的那个字符元素,并输出该字符及其对应的ASCII码值
答：include <stdio.h>#include <string.h>#define MAX 80void main(){char arr[MAX + 1];char max;int len;int i;printf("Input a string:\n");gets(arr);max = '\0';len = strlen(arr);for(i=0; i<len; i++){if(arr[i] > max){max = arr[i];}}printf("The largest cha...
odd和ord在free pascal里分别是什么用处
答：ord()是取序号：对于整数，其序号就是其本身；对于字符，其序号是其ASCII码；对于枚举，其序号就是按其定义时的顺序编的（从0开始）；TRUE序号为1，FALSE为0；实数没有序号，使用会出错。
高手请指导!!!
答：30 关系表达式（x= =0）的等价表达式为（ 0==x ）关系表达式（x！=0）的等价表达式为（ 0！=x ）。28、表达式a=a+1表示成增量表达式为（ a++ ）。27、表达式a=a+b表示成复合赋值表达式为（ a+=b ）。26、表达式float(25)/4和int(14.6)%5的值分别为（ 6...
输入语句(如cin)在计算机内部是怎样运行的?
答：在ios中定义的第三个枚举类型为：enum seek_dir {beg, cur, end};其中的每个枚举常量用于对文件指针的定位操作上。2. ios类中的成员函数 ios类提供成员函数对流的状态进行检测和进行输入输出格式控制等操作，每个成员函数的声明格式和简要说明如下：int bad(); //操作出错时返回非0值。int eof();...
CC程序员实用大全怎么样
答：显示预定义的错误信息 726 决定操作系统版本号 727 理解可移值性 728 执行一个非本地的GOTO 729 获得进程ID(PID) 730 激活一个内部的DOS命令 731 使用-PSP全局变量 732 在变量申明中使用CONST修饰符 733 使用枚举类型 734 放置一个枚举类型来使用 735 理解一个枚举值 736 分配一个特殊的值给枚举类型 737 ...
C语言基础知识总结大全
答：2.1.枚举类型 2.2.数组类型 2.3.结构体类型 2.4.共用体类型 3.指针类型: 4.空类型: 3.格式化输出语句 %d:十进制整数; %c:单个字符; %s:字符串; %f:6位小数; 4.常量 值不发生改变的量成为常量; 定义字符常量(注意后面没有;) 5.运算符 5.1.算数运算符:+,-,*,/,%,++,--;前++/--,先...
C语言类型问题
答：char ch1, ch2; /*定义两个字符变量:ch1,ch2*/ch1=’a’; ch2=’b’; /*给字符变量赋值*/2.特性字符数据在内存中存储的是字符的ASCII码—— 一个无符号整数,其形式与整数的存储形式一样,所以C语言允许字符型数据与整型数据之间通用。(1)一个字符型数据,既可以字符形式输出,也可以整数形式输出。 [案例...
编一C语言程序,任意输入一个大写字母,将其转换成小写字母并输出_百度知 ...
答：下面写给出具体程序：首先定义一个字符变量；然后提醒输入大写字母；在输入大写字母后；由ASCII码转化后；输出的即为小写字母。这是一种很简洁的转化方式。当然；这种程序也有弊端；当你输入小写字母时；ASCII码就会超出范围；因为最高为127；而a的ASCII码为97；加上32后为129，显然超出范围；程序会无内容...
c语言是由什么构成
答：C语言的字符串其实就是以'0字符结尾的char型数组,使用字符型并不需要引用库,但是使用字符串就需要C标准库里面的一些用于对字符串进行操作的函数。 它们不同于字符数组。6、文件输入/输出。在C语言中,输入和输出是经由标准库中的一-组函数来实现的。在ANSI C中,这些函数被定义在头文件;...
