Kiểu tập hợp (Set of) 7.4.1. Khái niệm

7.4.5. Viết và đọc dữ liệu kiểu tập hợp

Program vidu_7_54;

VAR Tap_chu_hoa : SET OF 'A'..'Z' ;

i, n :Integer;

Ch :Char;

BEGIN

Tap_Chu_Hoa :=[]; {Khoi tao Tap_chu_hoa la tap rong }

{Để đọc vào n ký tự bất kỳ }

FOR i :=1 TO n DO

BEGIN

WRITE('Nhập Ký tự thứ ', i , ' : ' ); READLN(Ch);

IF ch=UPCASE(ch) THEN

Tap_Chu_hoa :=Tap_Chu_hoa + [Ch];

END;

FOR Ch :='A' TO 'Z' DO

IF Ch IN Tap_Chu_Hoa THEN

WRITE(ch : 4) ;

WRITELN;

READLN;

Dễ thấy rằng cần phải có hai tập hợp chữ cái là các nguyên âm và các phụ âm để phục vụ cho việc kiểm tra từng kí tự đọc vào. Chương trình cần phải định nghĩa kiểu dữ liệu TapKiTu và hai biến NguyenAm, PhuAm có kiểu là tập hợp bộ chữ cái nh­ư đã nêu trên.

Type TapKiTu = Set of Char;

Var NguyenAm, PhuAm: TapKiTu;

ch: char;

So_NguyenAm, So_PhuAm: byte;

Begin

NguyenAm:= ['a','e','i','o','u'];

PhuAm:= ['a'..'z'] - NguyenAm;

Write(' cho day ki tu, ket thuc bang so 0: ');

read(ch);

while ch <> '0' do

begin

if ch in NguyenAm then

if ch in PhuAm then

So_PhuAm:= So_PhuAm + 1;

read(ch);

end;

Writeln('So nguyen am la: ', So_NguyenAm);

end.
Ví dụ 7.56: Tìm các số nguyên tố trong khoảng 1..N

Sàng ban đầu chứa toàn bộ dãy số 2 .. N. Bắt đầu từ số nhỏ nhất là 2, ta loại bỏ khỏi sàng tất cả các số là bội số của 2. Số nhỏ nhất còn lại trên sàng sẽ là số nguyên tố thứ nhất là 3. Bỏ số này ra khỏi sàng, ghi nó vào tập số nguyên tố.

Tiếp tục loại bỏ khỏi sàng các số là bội số của các số nguyên tố vừa chọn được. Số nhỏ nhất còn lại trên sàng sẽ là số nguyên tố tiếp theo.

Lặp lại việc này ta sàng dần được hết các số nguyên tố.

Const N=100;

Type Nguyen = 1.. N;

Var NguyenTo, Sang: Set of Nguyen ;

Number: Nguyen ;

I: Integer ;

BEGIN

NguyenTo:= [ ] ;

Number:= 2;

Repeat

While not (Number IN Sang) do

NguyenTo:= NguyenTo + [Number] ;

Write ( Number , ' ' );

i:= Number ;

While i <= N do

Begin

I:= i + Number ;

End.

Until Sang = [] ;