KIỂU TẬP HỢP

Một tập hợp thì gồm nhiều gía trị có chung một kiểu dữ liệu, gọi là kiểu cơ bản. Kiểu cơ bản phải là kiểu vô hướng đếm được, tức chỉ có thể là kiểu byte, ký tự , lôgic hay liệt kê. Số phần tử của tập hợp tối đa là 256 phần tử. Kiểu tập hợp được mô tả bằng từ khóa SET OF , kế đến là kiểu cơ bản của các phần tử.
Nội dung trích xuất từ tài liệu:
KIỂU TẬP HỢP KIỂU TẬP HỢP 15.1.1. Khai báo : Một tập hợp thì gồm nhiều gía trị có chung một kiểu dữ liệu, gọi là kiểucơ bản. Kiểu cơ bản phải là kiểu vô hướng đếm được, tức chỉ có thể là kiểubyte, ký tự , lôgic hay liệt kê. Số phần tử của tập hợp tối đa là 256 phần tử. Kiểu tập hợp được mô tả bằng từ khóa SET OF , kế đến là kiểu cơ bản củacác phần tử. Ví dụ: TYPE Kky_tu = SET OF Char; Kchu_hoa = SET OF ‘A’.. ‘Z’; Kso = SET OF Byte; Var TapA, TapB : Kky_tu; TapH: Kchu_hoa; TapS : Kso; Các tập hợp TapA, TapB, TapH, TapS nói trên cũng có thể khai báotrực tiếp như sau: Var TapA, TapB : SET OF Char; TapH : SET OF ‘A’.. ‘Z’; TapS : SET OF Byte; Chú ý rằng các khai báo dưới đây là sai, vì kiểu cơ bản không thể làInteger, và nếu là đoạn con thì phạm vi của đoạn con không được vượt qúaphạm vi của kiểu Byte: VarT1: SET OF Integer;T2: SET OF 1..256 ; 15.1.2. Xác định một tập hợ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 nó, cácphần tử được phân cách nhau bởi dấu phẩy, và đặt giữa hai dấu ngoặcvuông. [ ] : tập rỗng [3..6] : tập các số nguyên 4, 3, 5, 6 [3..6, 9, 12] : tập các số nguyên 3, 4, 5, 6, 9, 12 [‘A’..’C’, ‘X’, ‘Z’] : tập các chữ ‘A’, ‘B’, ‘C’, ‘X’, ‘Z’ Các phần tử của tập hợp có thể là biến hay biểu thức, ví dụ: [3, 5, i+j, 2*j] : tập hợp này có 4 phần tử là 3, 5, hai phần tử kia cógía trị bằng i+j và 2*j, trong đó i, j là các số nguyên sao cho i+j và 2*j nằmtrong phạm vi từ 0 đến 255. 15.1.3. Các phép toán : Phép gán:Có thể gán một tập hợp cho một biến tập hợp cùng kiểu. Ví dụ, với các biếnkhai báo ở trên, có thể gán:TapA:=[‘1’..’5’, ‘9’, ‘A’];TapH:=[‘C’..’F’];TapS:=[15..20, 30, 40];Tập rỗng [ ] gán cho biến tập hợp kiểu nào cũng được :TapA:=[ ];TapH:= [ ];Lệnh gán dưới đây là sai vì hai vế không cùng kiểu dữ liệu:TapA:=[1..8];TapS:=[‘1’..’9’]; Phép hợp:Hợp của hai tập hợp A và B, ký hiệu là A+B, là một tập hợp gồm các phầntử hoặc thuộc tập A hoặc thuộc tập B. Ví dụ: [3..5]+[4..6,10, 15]=[ 3..6, 10, 15] Phép giao:Giao của hai tập hợp A và B, ký hiệu là A*B, là một tập hợp gồm các phầntử đồng thời thuộc A và B.Ví dụ: [1..10]*[5..15] =[5..10] Phép hiệu:Hiệu của hai tập hợp A và B, ký hiệu là A-B, là một tập hợp gồm các phầntử thuộc tập A nhưng không thuộc tập B. Ví dụ: [1..10] - [5..15] =[1..4]Nhận xét: Các phép toán trên chỉ thực hiện được khi A và B cùng kiểu, vàkết qủa là một tập hợp C cùng kiểu với A và B. Phép thử IN (thuộc về) :Dùng để kiểm tra xem một biến hay một gía trị có phải là phần tử của mộttập hợp nào đó không.Biểu thức x IN TapA cho kết qủa là True nếu gía trị x thuộc TapA, cho gíatrị False trong trường hợp ngược lại.Ví d ụ :‘N’ IN [‘N’, ‘n’] cho kết qủa là TRUE‘y’ IN [‘N’, ‘n’] cho kết qủa là FALSE Các phép so sánh (=, , =) :Cho A và B là hai tập hợp cùng kiểu, kết qủa của các phép so sánh A với Bsẽ là TRUE hoặc FALSE. Phép bằng: A=B khi và chỉ khi mỗi phần tử của A đều thuộc B và mỗiphần tử của B đều thuộc A, trong trường hợp ngược lại, ta nói A khác B vàviết AB. Ví dụ: [3,2,4,5]= [2, 3..5] [‘A’, ‘B’][‘a’,’B’] Phép nhỏ hơn hoặc bằng : A [3..5]>=[3..5] [‘A’..’Z’]>=[‘A’..’D’]Chú ý rằng trong các tập hợp không có phép so sánh nhỏ hơn (). Khi cần so sánh lớn hơn hay nhỏ hơn ta có thể viết: If (A=B) and ( AB) then writeln(‘A > B’); 15.1.4. Các ví dụ : Ví dụ 15.1:Nhập vào một chuỗi St , cho biết trong St có những chữ hoa nào. Ví dụSt=‘ABc3BAFdzA’ thì có các chữ hoa là A, B, F.PROGRAM VIDU15_1; Var Taphoa : Set of ‘A’..’Z’; N, i: byte; ch : char; St : String;Begin Write(‘ Nhập chuỗi St: ‘); Readln(St); Taphoa:=[]; N:=length(St); For i:=1 to N do if St[i] IN [‘A’..’Z’] then Taphoa := Taphoa+[ St[i] ]; Writeln(‘ Cac chu hoa co trong St la :’); For ch:=‘A’ to ‘Z’ do if ch IN Taphoa then write(ch:3); Readln;End.Ví dụ 15.2:Nhập N số nguyên trong phạm vi từ 0 đến 255. In ra các tập số chẵn, lẻ vàcho biết có bao nhiêu số chẵn, bao nhiêu số lẻ (các số trùng nhau chỉ kể 1lần). Ví dụ, nhập 9 số : 1, 2, 3, 4, 1, 2, 3, 4, 5 thì có hai số chẵn là 2 và 4 vàcó 3 số lẻ là 1, 3, 5.PROGRAM VIDU15_2; Const N=10; Var Tapchan, Taple : Set of byte; N1, N2, i, k: byte; Begin Tapchan:=[]; Taple:=[]; For i:=1 to N do begin Write(‘Nhap so thu ‘, i, ‘: ‘); Readln(k); If odd(k)=False then Tapchan:=Tapchan+[k] else Taple:=Taple+[k];end;writeln(‘ Các số chẵn là: ‘);N1:=0;For i:=0 to (255 div 2) do if 2*i IN Tapchan then begin Write(2*i : 3); N1:=N1+1; end;Writeln( ‘ Co ‘, N1, ‘ số chẵn’); Writeln(‘ Các số lẻ là: ‘); N2:=0; For i:=0 to (255 div 2) do if (2*i +1) IN Taple then begin Write(2*i+1 : 3); N2:=N2+1; end; writeln( ‘ Co ‘, N2, ‘ số lẻ’); Readln; End.Ví dụ 15.3: Tìm các số nguyên tố số nguyên dương N cho trước. Có nhiều cách giải khác nhau, dưới đây giới thiệu phương pháp củaEratosthene, sử dụng dữ liệu kiểu tập hợp và không cần đến các phép toánnhân. Xuất phát từ tập số nguyên S=[2..N] ta loại ra số nguyên tố đầu tiên vàtất cả các bội số của nó ra khỏi S, lặp lại quá trình trên cho đến khi S thànhtập rỗng. Ví dụ: S=[2..15]; Bước 1:-đưa 2 vào tập số nguyên tố, Tapsnt:=[2] -loại 2 và các bội của 2 ra khỏi S, ta được S=[3,5,7,9 ...