6、枚举和子界
枚举类型名的定义法则
枚举类型名的定义法则枚举类型是一种特殊的数据类型，它可以定义一些特定的常量。
在程序设计中，枚举类型通常用来表示固定集合（例如月份）或状态（例如成功和失败）。
枚举类型名的定义法则如下：1.名称：枚举类型的名称应该是一个合法的标识符。
命名约定通常是使用大写字母和下划线来表示常量，例如：```enum Color { RED, GREEN, BLUE };```2.定义：枚举类型的定义包括了其名称，以及一系列的常量。
通常情况下，枚举类型定义时都会定义一些常量，例如：```enum DayOfWeek { MONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRIDAY, SATURDAY, SUNDAY };```3.常量：枚举类型可以有零个或多个常量。
每个常量都有一个名称和一个关联的数字（称为枚举值）。
例如：```enum Color { RED = 1, GREEN = 2, BLUE = 3 };```其中，RED的枚举值为1，GREEN的枚举值为2，BLUE的枚举值为3。
如果没有显式地为常量指定枚举值，则默认为按顺序从0、1、2等依次递增的数字。
4.重复名称：枚举类型中的每个常量都必须有一个唯一的名称。
如果枚举类型中出现了重复的常量名称，则编译器将不通过。
例如：```enum Color { RED, GREEN, RED }; //重复的常量名称，编译器将不通过```5.范围：枚举类型的枚举值可以是任意整数。
通常情况下，枚举类型的枚举值都应该是正整数，因为负数可能会导致一些奇怪的行为。
6.作用域：枚举类型在定义时创建了一个新的命名空间，其中包含该类型的所有常量。
因此，在使用枚举常量时，需要指定作用域，例如：```enum Color { RED, GREEN, BLUE };Color c = Color.RED;```7.嵌套：枚举类型可以嵌套在其他类型中。
例如：```struct Rectangle {enum Edge { LEFT, TOP, RIGHT, BOTTOM };int x1, y1, x2, y2;Edge getLongestEdge();};```在上述示例中，枚举类型Edge嵌套在结构体Rectangle中。
pascal枚举
pascal 枚举跟陈老师学pascal：枚举、子界、集合及记录类型在前面几章中我们用到了整型、实型、布尔型、字符型的数据。
以上数据类型是由pascal 规定的标准数据类型，只要写integer,real,boolean, char, pascal 编译系统就能识别并按这些类型来处理。
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);（二）枚举类型变量定义了枚举类型，就可以把某些变量说明成该类型。
Delphi基本数据类型---枚举、子界、集合、数组
Delphi基本数据类型---枚举、⼦界、集合、数组参考：参考：1.根据枚举定义集合typeTMyColor = (mcBlue, mcRed); //定义了⼀个枚举类型TMyColorTMyColorSet = set of TMyColor; //定义了⼀个基于枚举类型的集合TMyColorSet2.根据枚举定义数组typeTMyEnum = (red, green, blue); //定义枚举procedure TForm1.ButtonClick(Sender : TObject);constColorArr : array[TMyEnum] of string = ('红', '绿', '蓝'); //定义数据varmyEnum : TMyEnum; //定义枚举类型beginfor myEnum := Low(ColorArr) to High(ColorArr) dobeginShowMessage(ColorArr[myEnum]);end;end. 注意其中根据枚举定义相关的数组的语法 注意其中使⽤枚举进⾏循环控制的⽅法3.枚举类型的相关知识，参考4.⼦界类型 如果我们定义⼀个变量为Integer型，那么它的取值范围⼀般为-32768~32767.⽽事实上，每个程序所⽤到的变量的值都有⼀个确定的范围。
例如，⼈的年龄⼀般为1~120岁，⼀年中的⽉数为1~12，⼀个⽉中的天数为1~31天等等 如果能在程序中对所⽤的变量的值域做具体规定，就便于检查出那些不合法的数据，这样就能更好的保证程序运⾏的正确性且在⼀定程度上节省了内存空间 ⼦界类型就能很好的解决上⾯的问题。
此外，在数组的定义中，常⽤到⼦界类型，以规定数组下标的范围 1)定义格式： type ⼦界类型标识符 = 常量1..常量2 //其中常量1称为⼦界的下界，常量2称为⼦界的上界 上界和下界必须是同⼀顺序类型（该类型称为⼦界类型的基类型），且上界的序号必须⼤于下界序号，例如typeage = 1..100;letter = 'a'..'z'; 可以直接在变量说明中定义⼦界类型，如typeletter = 'a'..'z';varch1, ch2 : letter; 可以合并成varch1, ch2 : 'a'...'z'; 2)⼦界类型数据的运算规则 凡是可以使⽤基类型的运算规则同样适⽤于该类型的⼦界类型 例如，可以使⽤整型变量的地⽅，也可以使⽤以整型为基类型的⼦界类型数据 对基类型的运算规则同样适⽤于该类型的⼦界类型 例如，div，mod要求参数运算的数据为整型，因⽽也可以为整型的任何⼦界类型数据 基类型相同的不同⼦界类型可以进⾏混个运算，⽐如有以下说明varx : 1..100;y : 1..500;z : 1..1000;a : integer; 则下⾯的语句是合法的a:=Sqr(x) + y + z;z := x + y; 下⾯的语句：y := x + z + a; 当x+z+a的值在1~500范围内也就是（y所属的⼦界类型的范围）就是合法的，否则就会出错 3)⼦界类型的应⽤举例 例1，使⽤⼦界类型情况语句，当输⼊⽉、⽇、年（10 30 1986），输出30 oct 1986varmonth : 1..12;day : 1..31;year : 1900..2003;beginwrite('Enter date(mm dd yyyy):');readln(month, day, year);write(day);case month of1:write('Jan' :5);2:write('Feb' :5);3:write('Mar':5);4:write('Apr':5);5:write('May':5);6:write('Jun':5);7:write('Jul':5);8:write('Aug':5);9:write('Sep':5);10:write('Oct':5);11:write('Nov':5);12:write('Dec':5);end;writeln(year:7);end. 例2，将⼀个四位的⼗六进制数转换成⼗进制varch : char;n : 1..4;d1, d2, d3, d4, t : 0..15;s : real;beginwrite('The hex number is');for n:=1 to 4 dobegin {将四位的⼗六进制数分四次作为字符读⼊}read(ch);write(ch);{分别转换为⼗进制的数d1, d2, d3, d4}if (ch >= '0') and (ch <= '9') thent := ord(ch) - 48;if (ch >= 'a') and (ch <= 'z') thent:=ord(ch)-87;if (ch >= 'A') and (ch <= 'Z') thent:=ord(ch)-55;case n of1 : d1 := t;2 : d2 := t;3 : d3 := t;4 : d4 := t;end;end;s := d1*16*16*16 + d2*16*16 + d3*16 + d4;writeln('dec:', s);end.。
delphi高级数据类型：枚举、子界和集合讲稿
第6章枚举、子界与集合类型教学目的及要求:理解并掌握枚举类型的概念、定义与使用方法理解并掌握子界类型的概念、定义与使用方法理解并掌握集合类型的概念、定义与使用方法熟练应用枚举类型、子界类型、集合类型解决实际问题在delphi顺序类型中我们知道整型、字符型、布尔型是标准数据类型，而枚举型、子界型不是标准数据类型,这就是我们今天要学习的内容：Delphi的高级数据类型。
是Object pascal语言为了满足实际的需要，允许用户自定义的数据类型。
本节我们将首先学习delphi中如何定义数据类型，也就是delphi的数据类型定义语法格式及要求。
然后分别介绍枚举、子界类型和集合类型定义、变量声明及运用。
6.1 类型定义语句Object Pascal高级数据类型在使用之前必须首先使用类型定义语句进行定义。
经过定义后的高级数据类型就可在程序代码中使用。
其用法与常用的整型、字符串型用法相同。
类型定义语句的语法格式为：Type<标识符1>=<类型1>;<标识符2>=<类型2>;…<标识符n>=<类型n>;说明：1.保留字type 表示类型定义段开始。
2.<标识符>是用户为自定义数据类型取的名称。
说明：在上例中，tform1是用户自定义的类型名称，它是一个tform类型，在tform1中包含一个button1对象，该对象是一个tbutton类型，同时还包含了一个事件过程button1click.TypeA=integer;B=real;C=char;D=shring;6.2 枚举类型在处理实际问题过程中常用到的数据取值可能总是有限的几个值，例如学生成绩等级有优秀、良好、及格、不及格；处理这一类数据时可以用数值或字符串来表示，比如用“1”表示优秀，“2”表示良好。
利用数值表示此类数据不直观，容易出错，利用字符串表示不方便处理，占用内存较多。
visual basic语言的发展历史
visual basic语言的发展历史Visual Basic 1.0（1991年）： Microsoft于1991年发布了第一个版本的Visual Basic，也被称为Visual Basic 1.0。
它是一种图形用户界面（GUI）编程语言，旨在简化Windows应用程序的开发。
Visual Basic 1.0是Windows 3.0和3.1时代的主要开发工具之一。
Visual Basic 2.0（1992年）： Visual Basic 2.0于1992年发布，引入了更多的控件和新的开发环境功能，提高了开发者的生产力。
Visual Basic 3.0（1993年）：发布于1993年，Visual Basic 3.0引入了对32位Windows平台的支持，同时加入了数据库访问工具。
这使得Visual Basic成为Windows应用程序开发的首选语言之一。
Visual Basic 4.0（1995年）： Visual Basic 4.0于1995年发布，引入了类模块（Class Modules）的概念，增强了对象导向编程（OOP）的支持。
这个版本还提供了对ActiveX控件的支持。
Visual Basic 5.0（1997年）：发布于1997年，Visual Basic 5.0引入了更多的Internet开发支持，包括使用HTML和HTTP的应用程序开发。
Visual Basic 6.0（1998年）： Visual Basic 6.0是VB的一个重要版本，发布于1998年。
它引入了Windows Common Controls，Data Environment等新特性，使得VB成为当时最流行的企业级应用程序开发语言之一。
Visual Basic .NET（2001年）：在2001年，Microsoft发布了Visual Basic .NET，这是一个基于.NET平台的全新版本。
引入了许多新的特性，如强类型、CLR（Common Language Runtime）支持、继承和多态性等，使VB更加现代化。
Pascal填空题试题详解1
Pascal填空题试题详解1—52作者：老胡1．Pascal语言的数据类型按其特点可以分为3大类，即简单类型、——、指针类型。
解答：本题答案是构造类型。
2．Pascal中整数类型数据包括正整数、负整数和——。
解答：本题正确答案为整数零。
3．Pascal语言中顺序类型是指整数类型、字符类型、布尔类型、枚举类型、——。
解答：本题正确答案为子界类型。
4．Pascal语言的5种基本运算是算术运算、——、逻辑运算、集合运算和赋值运算。
解答：本题正确答案为关系运算。
5．在Pascal语言中，有一个特殊的整数，用——表示。
它代表某一个计算机系统允许的最大整数值。
解答：在数学中，整数是一个无限集合。
但是计算机只能表示它的一个有限子集。
Pascal系统预定义了一个标准常量，它代表所使用计算机系统Pascal 允许使用的最大整数值，由具体的编译器决定。
本题正确答案为MAXINT。
6．枚举类型只能进行两种运算，即赋值运算和——。
解答：Pascal中算术运算和逻辑运算对枚举类型无意义。
本题正确答案为关系运算。
7．如果一个记录有固定和变体两部分，必须首先定义——部分。
解答：本题正确答案为固定。
8．枚举类型的值是有序号的，序号从——开始，自左到右，从小到大排列。
解答：本题正确答案为0。
9．在Pascal中，若i>j，则[i．．j]表示——。
解答：用子界方式表示集合中的元素时，子界的下界应不大于上界，否则集合为空集本题正确答案为“空集”。
10．在Pascal中，表达式[4..9]＝[4..6,7..9]的值为——。
解答：本题目是用不同子界表示集合元素，但所表示的是整数类型的同一范围。
所以结果为true。
本题正确答案为true。
11．变量说明如下VARCh1,Ch2:'A'..'F';week:(sun,mon,tue,wed,thu,fri,sat);且ch1:='D';Ch2:='G';week:=tue；则表达式ord(week) MOD (ord(ch2)-ord(ch1))的值是——。
枚举子集算法
枚举子集算法一、引言在计算机科学中，枚举子集算法是一种常见的算法，用于生成一个集合的所有子集。
子集是原集合中的元素的集合，可以包含空集和原集合本身。
枚举子集算法可以应用于各种领域，如图论、组合数学和算法设计等。
二、算法原理枚举子集算法的基本原理是通过遍历原集合的所有可能组合来生成子集。
具体步骤如下：1. 初始化一个空集作为第一个子集。
2. 遍历原集合中的每个元素，将其添加到已有子集中生成新的子集。
3. 重复第2步，直到遍历完所有元素。
4. 输出所有生成的子集。
三、算法实现以下是一个简单的枚举子集算法的实现示例：```pythondef enumerate_subsets(nums):subsets = [[]] # 初始化空集for num in nums:new_subsets = []for subset in subsets:new_subset = subset + [num] # 将当前元素添加到已有子集中new_subsets.append(new_subset) # 添加新生成的子集 subsets += new_subsets # 将新生成的子集添加到原有子集中return subsets# 测试示例nums = [1, 2, 3]subsets = enumerate_subsets(nums)for subset in subsets:print(subset)```四、算法分析1. 时间复杂度：枚举子集算法的时间复杂度取决于子集的数量。
对于一个大小为n的集合，它的子集数量为2^n个。
因此，枚举子集算法的时间复杂度为O(2^n)。
2. 空间复杂度：枚举子集算法的空间复杂度主要取决于生成的所有子集的总大小。
对于一个大小为n的集合，它的所有子集的总大小为O(2^n)。
因此，枚举子集算法的空间复杂度为O(2^n)。
3. 算法优化：由于枚举子集算法的时间复杂度较高，当集合大小较大时可能会导致计算时间过长。
蛮力算法
17
main1( ) { int *a,i,j,n; input(n); a=calloc(n+1,sizeof(int)); //申请存储空间 for (i=1; i<=n;i++) a[i]=1; for (i=1; i<=n;i++) for (j=i; j<=n;j=j+i) a[i]=1-a[i]; for (i=1; i<=n;i++) if (a[i]=0) print(i,”is free.”); } 算法分析1：以一次开关锁计算，算法的时间复杂度为 n(1+1/2+1/3+……+1/n)=O(nlogn)。
3
【例3.1】百钱百鸡问题。中国古代数学家张丘建在《算经》 中提出了著名的“百钱百鸡问题”：鸡翁一，值钱五；鸡母一， 值钱三；鸡雏三，值钱一；百钱买百鸡，翁、母、雏各几何? 算法设计1： 通过对问题的理解，可能会想到列出两个三元一次方程， 去解这个不定解方程，就能找出问题的解。这确实是一种办法， 但这里我们要用“懒惰”的枚举策略进行算法设计： 设x，y，z分别为公鸡、母鸡、小鸡的数量。 尝试范围：由题意给定共100钱要买百鸡，若全买公鸡最多 买100/5=20只，显然x的取值范围1~20之间；同理，y的取值范 围在1~33之间，z的取值范围在1~100之间。 约束条件： x+y+z=100 且 5*x+3*y+z/3=100
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【枚举、子界】 枚举、子界】
枚举类型和子界类型
第一节 Pascal中类型概念的说明 中类型概念的说明
简单类型 标准类型
Pascal中的数据类型
Pascal中的数据类型
自定义类型 数组类型 集合类型 记录类型 文件类型
整型 实型 字符型 布尔型 枚举类型 子界类型
【例5】：输入今天是星期几的序号（星期天的序 】 输入今天是星期几的序号（ 号是0），输出明天是星期几的英文单词。 ），输出明天是星期几的英文单词 号是 ），输出明天是星期几的英文单词。 program ex5(input,output); type daytype=(sun,mon,tue,wed,thu,fri,sat); var k:integer; today,tomorrow:daytype; •write(‘tomorrow is:’); begin • case tomorrow of readln(k); case k of • sun:writeln(‘Sunday’); 0:today:=sun; • mon:writeln(‘Monday’); 1:today:=mon; • tue:writeln(‘Tuesday’); 2:today:=tue; • wed:writeln(‘Wednesday’); 3:today:=wed; 4:today:=thu; • thu:writeln(‘Thursday’); 5:today:=fri; • fri:writeln(‘Friday’); 6:today:=sat; • sat:writeln(‘Saturday’); end;{请同学们观察枚举类型值的输入 请同学们观察枚举类型值的输入} 请同学们观察枚举类型值的输入 •end; if today=sat then tomorrow:=sun else tomorrow:=succ(today); • end.
五、子界类型的应用： 子界类型的应用： 日的顺序读入一日期，输出该日期是这一年中的第几天。 【例9】：按年、月、日的顺序读入一日期，输出该日期是这一年中的第几天。 】 按年、 program ex9(input,output); var year:0..2010; month,i:1..12; day:1..31; dayth:integer; •dayth:=dayth+day; begin write(‘year,month,day:’); •writeln(dayth) readln(year,month,day); • end. dayth:=0; for i:=1 to month-1 do case i of 1,3,5,7,8,10,12:dayth:=dayth+31; 4,6,9,11:dayth:=dayth+30; 2:if (year mod 4=0) and (year mod 100<>0) or (year mod 400=0) then dayth:=dayth+29 else dayth:=dayth+28; end;
3.函数运算： 前趋函数（pred）、后继函数（succ）、序数函数（ord） 【例4】：已知type week=(sun,mon,tue,wed,thu,fri,sat); 求下列表达式的值。 ord(sun)=0 pred(fri)= thu ord(sat)=6 succ(wed)= thu 四、枚举类型数据的输入输出方法： 输入输出不能直接用标准过程read，write进行，一般使用 case语句来实现。
三、子界类型数据的运算规则： 对于子界类型的基类型的任何运算，同样也适用与其子界类型。 基类型为整型： 【例8】：设有： type ID=1..10; JD=1..100; ch=’A’..’Z’; Day=(sun,mon,tue,wed,thu,fri,sat); Var I:ID; J:JD; Ch1:ch; Day1:Day; M:integer; 以下语句是合法的：J:=I; J:=I+10; M:=J*I+Ord(Ch1)+Ord(Day1)+5 下面两个是超界赋值语句：I:=J*100; I:=I*J+10; 基类型为字符型：可进行适合与字符型的函数运算。 基类型为枚举型：只能进行前趋函数、后继函数、序数函数三种运算 四、子界类型数据的输入输出方法： 取决于基类型的类型。
使得描述的数据更直观、准确，加强了程序的可读性。
二、枚举类型的定义： 枚举类型定义的一般格式为： type
<类型标识符 （<标识符 ，<标识符 ，···，<标识符 ）; 类型标识符>=（ 标识符 标识符1>， 标识符 标识符2>， ， 标识符 标识符n>） 类型标识符
【例1】：定义枚举类型，表示春、夏、秋、冬四季， 表示一年中的每一个月，表示一星期中的每一天， 表示红、黄、蓝、白、紫五种颜色。 type season=(spring,summer,autumn,winter); week=(sun,mon,tue,wed,thr,fri,sat); color=(red,yellow,blue,white,purple); var seasons:season; day1,day2:week; colors:co型： 类型的含义： 1．确定一个值域，即取值范围。 2．确定了数据的存储方式。 3．规定了相应的运算种类。 例如： type age=0..25; letter=’a’..’z’; var studentage:age; char1,char2:letter;
第二节 枚举类型 一、引入枚举类型的必要性：
另外，还可以将类型定义和变量说明合并为： var seasons: (spring,summer,autumn,winter); day1,day2: (sun,mon,tue,wed,thr,fri,sat); colors: (red,yellow,blue,white,purple); 说明： 1. 1.类型标识符与枚举元素的标识符要符合Pascal语言用户自定义标识 Pascal 符的规则，不得使用保留字和标准标识符，否则编译时将出现错 误或造成混乱。 2.枚举元素只能是标识符，而不能是数值常量或字符常量。 3.同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。 4.在一个程序中定义的（枚举）类型，仅在本程序中有效。
【例3】：week=(sun,mon,tue,wed,thu,fri,sat); 对于以下的关系运算： mon<tue sun<>sat wed>=fri 枚举类型的关系运算也可以出现在表达式中。 例如： if weeks=sun then <语句>; repeat <语句1>; ··· <语句n>; until weeks=sun; while weeks=sun do <语句>; for weeks:=mon to sat do <语句>；
program ex10(input,output); var ch:char; dec,d1,d2,d3,d4:0..15; i:1..4; s:real; begin case i of write(‘hex:’); 1:d1:=dec; for i:=1 to 4 do begin 2:d2:=dec; read(ch); 3:d3:=dec; ch:=upcase(ch);{将字符转化为大写字母 将字符转化为大写字母} 将字符转化为大写字母 4:d4:=dec; case ch of end; ‘0’..’9’:dec:=ord(ch)-48; ‘A’..’F’:dec:=ord(ch)-55; end; else writeln; exit; s:=d1*4096.0+d2*256.0+d3*16.0+d4; end; writeln(‘dec:’,trunc(s)); end.
三、枚举类型数据的运算规则： 赋值运算： 【例2】：类型定义和变量说明部分为： type color1=(red,yellow,blue,white,purple); color2=(black,orange,grey,green); var c1,c2:color1; c3,c4:color2; 则下列语句是合法的：c1:=red;c2:=yellow;c3:=grey;c4:=green; 下面赋值是非法的：c1:=green;c3:=golden; 补充说明： 补充说明： 1、对枚举类型只能进行赋值和关系运算（比较的是枚举值的符号大小）， 、对枚举类型只能进行赋值和关系运算（比较的是枚举值的符号大小）， 不允许进行加、 除等算术运算， 不允许进行加、减、乘、除等算术运算，且所有的运算都仅限于同一枚 举类型中进行。 举类型中进行。 2、枚举类型属于顺序类型。枚举元素从左到右各有一整数序号,且序号从 开 、枚举类型属于顺序类型。枚举元素从左到右各有一整数序号 且序号从0开 且序号从 始。 3、TP不允许直接读写枚举值，所有枚举值的读写常用case语句间接进行。 、 不允许直接读写枚举值，所有枚举值的读写常用 语句间接进行。 不允许直接读写枚举值 语句间接进行
【例6】：有红、橙、黄、绿、蓝五种颜色的小旗，每次取出三种不同颜色 的小旗按不同顺序排列来表示不同的信号，求出所有信号的方案和方案 总数并输出。 for p:=1 to 3 do program ex6(input,output); begin type case p of color=(red,orange,yellow,green,blue); 1:m:=m1; var 2:m:=m2; m,m1,m2,m3:color; 3:m:=m3; total,p:integer; end; begin case m of total:=0; red:write(‘red’:8); for m1:=red to blue do orange:write(‘orange’:8); for m2:=red to blue do yellow:write(‘yellow’:8); if m1<>m2 then green:write(‘green’:8); for m3:=red to blue do blue:write(‘blue’:8); if (m3<>m1) and (m3<>m2) then end; begin end; total:=total+1; writeln; write(total,’:’); end; writeln(‘total:’,total); end.