Pascal Tutorial
Pascal Useful Resources
Selected Reading
- Pascal - Classes
- Pascal - Objects
- Pascal - Date & Time
- Pascal - Units
- Pascal - Memory
- Pascal - File Handling
- Pascal - Sets
- Pascal - Variants
- Pascal - Records
- Pascal - Pointers
- Pascal - Arrays
- Pascal - Booleans
- Pascal - Strings
- Pascal - Variable Scope
- Pascal - Procedures
- Pascal - Functions
- Pascal - Loops
- Pascal - Decision Making
- Pascal - Operators
- Pascal - Constants
- Pascal - Variable Types
- Pascal - Data Types
- Pascal - Basic Syntax
- Pascal - Program Structure
- Pascal - Environment Setup
- Pascal - Overview
- Pascal - Home
Pascal Useful Resources
Selected Reading
- Who is Who
- Computer Glossary
- HR Interview Questions
- Effective Resume Writing
- Questions and Answers
- UPSC IAS Exams Notes
Pascal - Sets
Pascal - Sets
A set is a collection of elements of same type. Pascal allows defining the set data type. The elements in a set are called its members. In mathematics, sets are represented by enclosing the members within braces{}. However, in Pascal, set elements are enclosed within square brackets [], which are referred as set constructor.
Defining Set Types and Variables
Pascal Set types are defined as
type set-identifier = set of base type;
Variables of set type are defined as
var s1, s2, ...: set-identifier;
or,
s1, s2...: set of base type;
Examples of some vapd set type declaration are −
type Days = (mon, tue, wed, thu, fri, sat, sun); Letters = set of char; DaySet = set of days; Alphabets = set of A .. Z ; studentAge = set of 13..20;
Set Operators
You can perform the following set operations on Pascal sets.
| Sr.No | Operations & Descriptions |
|---|---|
| 1 |
Union This joins two sets and gives a new set with members from both sets. |
| 2 |
Difference Gets the difference of two sets and gives a new set with elements not common to either set. |
| 3 |
Intersection Gets the intersection of two sets and gives a new set with elements common to both sets. |
| 4 |
Inclusion A set P is included in set Q, if all items in P are also in Q but not vice versa. |
| 5 |
Symmetric difference Gets the symmetric difference of two sets and gives a set of elements, which are in either of the sets and not in their intersection. |
| 6 |
In It checks membership. |
Following table shows all the set operators supported by Free Pascal. Assume that S1 and S2 are two character sets, such that −
S1 := [ a , b , c ];
S2 := [ c , d , e ];
| Operator | Description | Example |
|---|---|---|
| + | Union of two sets | S1 + S2 will give a set [ a , b , c , d , e ] |
| - | Difference of two sets | S1 - S2 will give a set [ a , b ] |
| * | Intersection of two sets | S1 * S2 will give a set [ c ] |
| >< | Symmetric difference of two sets | S1 >< S2 will give a set [ a , b , d , e ] |
| = | Checks equapty of two sets | S1 = S2 will give the boolean value False |
| <> | Checks non-equapty of two sets | S1 <> S2 will give the boolean value True |
| <= | Contains (Checks if one set is a subset of the other) | S1 <= S2 will give the boolean value False |
| Include | Includes an element in the set; basically it is the Union of a set and an element of same base type | Include (S1, [ d ]) will give a set [ a , b , c , d ] |
| Exclude | Excludes an element from a set; basically it is the Difference of a set and an element of same base type | Exclude (S2, [ d ]) will give a set [ c , e ] |
| In | Checks set membership of an element in a set | [ e ] in S2 gives the boolean value True |
Example
The following example illustrates the use of some of these operators −
program setColors;
type
color = (red, blue, yellow, green, white, black, orange);
colors = set of color;
procedure displayColors(c : colors);
const
names : array [color] of String[7]
= ( red , blue , yellow , green , white , black , orange );
var
cl : color;
s : String;
begin
s:= ;
for cl:=red to orange do
if cl in c then
begin
if (s<> ) then s :=s + , ;
s:=s+names[cl];
end;
writeln( [ ,s, ] );
end;
var
c : colors;
begin
c:= [red, blue, yellow, green, white, black, orange];
displayColors(c);
c:=[red, blue]+[yellow, green];
displayColors(c);
c:=[red, blue, yellow, green, white, black, orange] - [green, white];
displayColors(c);
c:= [red, blue, yellow, green, white, black, orange]*[green, white];
displayColors(c);
c:= [red, blue, yellow, green]><[yellow, green, white, black];
displayColors(c);
end.
When the above code is compiled and executed, it produces the following result −
[ red , blue , yellow , green , white , black , orange] [ red , blue , yellow , green] [ red , blue , yellow , black , orange] [ green , white] [ red , blue , white , black]Advertisements