Tài liệu KIỂU TẬP HỢP TRONG PASCAL pptx

Kiểu tập hợp
I. Kiểu tập hợp
Một tập hợp bao gồm một số đối tợng nào đó có cùng bản chất. Trong Pascal điều đó có ngiã là mô
tả cùng một kiểu, kiểu bày gọi là kiểu cơ bản. Kiểu cơ bản bắt buộc phải là một kiểu vô hớng hay
đoạn con và không đợc là số thực. Các đối tợng này gọi là các phần tử của tập. Số phần tử cực đại
cho phép trong Boland Pascal là 256.
Để mô tả kiểu và khai báo biến tập hợp, ngời ta dùng từ khoá SET OF theo sau là kiểu cơ bản T
(kiểu của các phần tử của tập)
VD :
TYPE
Chu_Cai = SET OF CHAR;
Chu_So = SET OF 0..9;
VAR
SO : CHU_SO;
L : CHU_CAI;
A : SET OF BYTE;
II. Xác lập một tập
Một tập hợp đợc xác định bằng cách liệt kê các phần tử của tập hợp, chúng cách nhau bằng dấu
phẩy và đợc đặt giữa 2 dấu ngoặc vuông.
VD :
[];
[3..5];
[3,4,5,8] hoặc [3..5,8];
['A'..'C','Y','Z'];
Bản thân các phần tử của tập cũng có thể cho bằng biến hoặc biểu thức
VD : [X+Y, I*J, 3, 4]
III. Các phép toán trên tập
1. Phép gán
Với cách mô tả ở trên ta có thể gán
VD : SO := [3..5];
L := ['A'..'E','Z'];

A := [1..100,140..200];
L := [];
Chúng ta không thể gán L := [3,5] vì kiểu cơ bản của chúng không tơng thích với nhau
2. Phép hợp
Hợp của 2 tập là một tập có các phần tử thuộc hai tập
Đợc kí hiệu bằng dấu +
VD :
A := [3..5];
B := [4..6,10,123];
C := A+B;
{ Tập C sẽ là [3..6,10,123] }
3. Phép giao
Giao của 2 tập là một tập có các phần tử nằm trong cả 2 tập
Đợc kí hiệu bằng dấu *
VD : Với VD trên ta gán
C := A*B; Tập C sẽ là [4,5]
4. Phép hiệu
Hiệu của 2 tập là tập các phần tử thuộc tập thứ nhất nhng khồn thuộc tập thứ hai.
VD : Với VD trên ta gán
C := A-B; Tập C sẽ là [3];
C := B-A; Tập C sẽ là [6,10,123];
5. Phép thử "thuộc về"
Là một phép thử để xem một biến, hay một giá trị có thuộc một tập nào đó không
VD : Để thử biến ch có nằm trong câu trả lời Có bằng tiếng Việt hoặc bằng tiếng Anh là Yes
không, bằng cách thông thờng ta viết
IF(Ch='Y')or(Ch='y')or(Ch='C')or(Ch='c')THEN ...
Song ta có thể viết ngắn gọn với phép thử IN nh sau :
IF Ch in['Y','y','C','c'] THEN
6. Các phép so sánh <>,=,<=,>=
Hai tập đợc đem ra so sánh trớc hết phải có cùng kiểu cơ bản. Kết quả của phép so sánh là giá trị

kiểu Boolean tức là : Đúng(TRUE) hoặc Sai(FALSE)
Hai tập bằng nhau nếu chúng có phần tử nh nhau từng đôi một (không kể thứ tự sắp xếp trong 2
tập)
Ngợc lại với phép = là phép so sánh khác nhau
Phép so sánh <= sẽ có giá trị TRUE nếu tất cả phần tử tập thứ nhất đều thuộc tập thứ hai.
Phép so sanh >= sẽ có giá trị TRUE nếu tất cả phần tử tập thứ hai đều thuộc tập thứ nhất
Chú ý : Trong Pascal không tồn tại phép so sánh <,>. Muốn so sánh lớn hơn hay nhỏ hơn ta dùng
thủ thuật sau.
IF (A<=B) AND (A<>B) THEN Writeln('A<B');
7. Tổng kết các phép toán trên tập
---------------------------------------------------
| Toán tử | Kí hiệu | Kiểu kết quả |
----------------------------------------------------
| Gán | := | SET OF... |
| Hợp | + | SET OF... |
| Giao | * | SET OF... |
| Hiệu | - | SET OF... |
| Thuộc về | IN | Boolean |
| Bằng nhau | = | Boolean |
| Khác nhau | <> | Boolean |
| Bao hàm | <=,>= | Boolean |
----------------------------------------------------
Bài 1:
{ Viết chơng trình nhập từ bàn phím tập số A gồm các số nguyên trong khoảng 1..99 bằng cách
nhập liên tục các số cho đến khi nhập số 0 thì kết thúc
Tơng tự nhập tập B
a. Tính giao của 2 tập. In ra màn hình
b. Tính hợp của 2 tập. In ra màn hình}
uses crt;
var

a,b,t:set of byte;{Tập a,b,t kiểu byte}
i:byte;{i kiểu byte}
begin
clrscr;{Xoá màn hình}
a:=[];b:=[];{Gán tập A và B bằng rỗng}
writeln('Nhap tap A');
repeat
readln(i);{Đọc i}
if i>0 then a:=a+[i];{Nếu i>0 thì cộng i vào tập A}
until i=0;{Cho đến khi i=0}
writeln('Nhap tap B');
repeat
readln(i);{Đọc I}
if i>0 then b:=b+[i];{Nếu i>0 thì cộng i vào tập B}
until i=0;{Cho đến khi i=0}
Writeln('Giao');
t:=a*b;{Gán t bằng giao của A và B}
for i:=1 to 99 do{Cho i chạy từ 1 đến 99}
if i in t then write(i,' ');{Nếu i thuộc t thì xuất i}
writeln;
writeln('Hop');
t:=a+b;{Gán t bằng hợp của A và B}
for i:=1 to 99 do{Cho i chạy từ 1 đến 99}
if i in t then write(i,' ');{Nếu i thuộc t thì xuất i}
readln;
end.
Bài 2:
{ Nhập N. Viết chơng trình tạo ra một tập số ngẫu nhiên trong khoảng từ 0..255 bằng cách :
- Tạo ra ngẫu nhiên N số trong khoảng từ 0..255
Tính phần bù của tập đó

VD : N=5 có 6 số : 0 1 2 3 6 2
thì tập đó là [0..3,6]
phần bù của nó [4,5,7..255]}
uses crt;
var
th:set of byte;{Tập th kiểu byte}
i,a,n:integer;{i,a,n kiểu integer}
begin
clrscr;{Xoá màn hình}
randomize;
write('N = ');readln(n);{Đọc N}
th:=[];{Gán tập th bằng rỗng}
for i:=1 to n do{Cho i chạy từ 1 đến n}
begin
a:=random(256);{Gán a bằng số ngẫu nhiên trong khoảng 0..255}
th:=th+[a];{Cộng a vào th}
end;
writeln('Phan bu');
th:=[0..255]-th;{Gán th bằng phần bù của nó}
for i:=0 to 255 do{Cho i chạy từ 0 đến 255}
if i in th then write(i,' ');{Nếu i thuộc th thì xuất i}
readln;
end.
Bài 3:
{ Nhập số N (N<10). Tạo ra N tập số bằng cách với mỗi tập ta thực hiện :
- Tạo ra 100 số ngẫu nhiên trong khoảng từ 0..255 (có thể trùng nhau) rồi cho vào tập đó
a. In ra màn hình số phần tử của mỗi tập
b. Xem tập nào là lớn nhất. In ra màn hình các số thuộc tập đó
Hớng dẫn
Nên viết hàm sopt(a)trả về số phần tử của tập a}

uses crt;
type taphop=set of byte;
var
th:array[1..10]of taphop;{Khai báo mảng th 10 phần tử kiểu taphop}
i,j,a,max,n:byte;{i,j,a,max,n kiểu byte}
function sopt(th:taphop):byte;
var i,so:byte;{Khai báo i,so kiểu byte}
begin
so:=0;{Gán so bằng 0}
for i:=0 to 255 do{Cho i chạy từ 0 đến 255}
if i in th then inc(so);{Nếu i thuộc th thì tăng so}
sopt:=so;{Gán sopt bằng so}
end;
begin
clrscr;{Xoá màn hình}
randomize;
write('N = ');readln(n);{Đọc N}
for i:=1 to n do th[i]:=[];{Gán th[1]..th[n] bằng rỗng}
for i:=1 to n do{Cho i chạy từ 1 đến n}
for j:=1 to 100 do{Cho j chạy từ 1 đến 100}
begin
a:=random(256);{Gán a bằng số ngẫu nhiên trong khoảng 0..255}
th[i]:=th[i]+[a];{Cộng a vào th[i]}
end;
max:=0;{Gán max bằng 0}
for i:=1 to n do{Cho i chạy từ 1 đến n}
begin
writeln('So phan tu tap ',i,' : ',sopt(th[i]));{Xuất số phần tử tập i}
if max<sopt(th[i])then{Nếu max nhỏ hơn số phần tử tập i}
begin

max:=sopt(th[i]);{Gán max bằng số phần tử tập i}
a:=i;{Gán a bằng i}
end;
end;
writeln('Tap ',a,' co so phan tu lon nhat');{Xuất tập lớn nhất}
for i:=0 to 255 do{Cho i chạy từ 0 đến 255}
if i in th[a] then write(i,' ');{Nếu i thuộc th[a] thì xuất i}
readln;
end.
Bài 4:
{ Nhập N. Viết chơng trình in ra một hoán vị đầu tiên của N
VD : N = 9
2 6 4 3 5 8 7 9 1
Hớng dẫn
Gán th:=[]
Thực hiện lấy N số bằng cách :
- Lấy ngẫu nhiên số đó trong khoảng từ 1..N cho tới khi nó cha xuất hiện trong th
- Cộng nó vào th}
uses crt;
var
i,a,n:byte;{i,a,n kiểu byte}
th:set of byte;{th kiểu byte}
begin
clrscr;{Xoá màn hình}
write('N = ');readln(n);{Đọc N}
th:=[];{Gán th bằng rỗng}
for i:=1 to n do{Cho i chạy từ 1 đến n}
begin
repeat a:=random(n)+1 until not(a in th);{Gán a bằng số ngẫu nhiên từ 1..n cho đến khi a không
thuộc th}

write(a,' ');{Xuất a}
th:=th+[a];{Cộng a vào th}
end;
readln;
end.
Bài 5:
{ Nhập N (N<=255). Tìm các số nguyên tố không vợt quá N bằng sàng Eratosthene.
Hớng dẫn
Gán th:=[2..N]
Cho i chạy từ 2 đến trunc(sqrt(n))
Nếu i thuộc th thì xoá các bội của i trong khoảng i*i -> N ra khỏi th
Các phần tử còn lại chính là các số nguyên tố}
uses crt;
var
i,n:byte;{i,n kiểu byte}
th:set of byte;{Tập th kiểu byte}
a:integer;{a kiểu integer}
begin
clrscr;{Xoá màn hình}