- Khai báo trực tiếp trong khai báo biến
e. Phép thuộc về
Phép thuộc về kắ hiệu là IN
Phép thuộc về cho biết 1 phần tử hay 1 tập có thuộc về 1 tập khác không ?, kết quả của
phép thuộc về là giá trị kiểu boolean (True hoặc False). 1 In A; kết quả là true.
B in A; kết qủa là False. C in A; kết quả là True;
Phép so sánh =, <>, <=, >=
Hai tập ựem so sánh phải cùng kiểu.
Kết quả của phép so sánh là giá trị kiểu boolean.
- Hai tập bằng nhau (=) nếu chúng có các phần tử như nhau từng ựôi một.
Vắ dụ: x:=['a' . .'d']; y:=['a' .. 'd', 'e', 'f']; z:=['a', 'b', 'c', 'd'] x=y; kết quả là False. x=z; kết quả là True.
- Hai tập là khác nhau (<>) nếu chúng có ắt nhất 1 cặp phần tử khác nhau. x<> y ; kết quả là True; x<> z ; kết quả là False. - Tập thứ nhất <= tập thứ 2 nếu tất cả các phần tử của tập thứ nhất ựều thuộc tập thứ 2. x <= y; kết quả là true. y <= x; kết quả là False. - Tập thứ nhất >= tập thứ 2 nếu mọi phần tử của tập thứ 2 ựều thuộc tập thứ 1. y >= x; kết quả cho True.
z >= y; kết quả là False.
3.5- Các chương trình về tập
Bài toán : Tạo một tập chứa các số có tối ựa là 2 chữ số nguyên dương< 256 chia hết cho 7, in tập ựó ra. Sau ựó nhập 1 số bất kỳ kiểm tra xem nó có thuộc vào tập ựó không.
Chương trình
Program thao_tac_tap; uses crt;
var a: set of 1..99; i,n: byte; lap: char; Begin
{ Tao tap cac so chia het cho 7 } a:=[];
for i:=7 to 255 do
if (i mod 7) = 0 then a:=a+[i]; { In tập }
Writeln(' Tap cac so chia het cho 7'); for i:=7 to 255 do
if i in a then writeln(i);
{ Kiem tra so nhap thuoc tap chi het cho 7} Repeat
write(' Nhap so bat ky '); Realn(n);
if i in a then writeln('Chia het cho 7') else witeln('Khong chia het cho 7'); Write(' Co tiep tuc khong (C/K) ? '); readln(lap);
Until upcase(lap)= 'K'; readln;
end.
Bài tập chương 4
Hãy viết chương trình cho các bài toán sau:
1. Cho dãy số sau: a1,a2,....,an . Viết chương trình tìm phần tử lớn nhất, phần tử nhỏ nhất của
dãy số ựó.
2. Cho dãy số sau: a1,a2,....,an . Viết chương trình sắp xếp dãy theo thứ tự tăng dần .
3. Cho dãy số sau: a1,a2,....,an . Viết chương trình ựếm số phần tử dương và xoá ựi phần tử
thứ m trong dãy (m<=n) .
4. Cho dãy số sau: a1,a2,....,an . Viết chương trình tìm các phần tử có giá trị là x nhập vào từ bàn phắm.
5. Cho dãy số sau: a1,a2,....,an . Viết chương trình thêm phần tử có giá trị là x, vào vị trắ m trong dãy. Sau ựó tắnh tổng các phần tử của dãy mới.
6. Cho ma trận có m dòng và n cột, các phần tử là nguyên. Tìm phần tử nhỏ nhất của ma trận. 7. Cho ma trận có m dòng và n cột, các phần tử là nguyên. Tắnh tổng và trung bình cộng các phần tử của ma trận.
8. Viết chương trình nhập vào một xâu ký tự. Hãy xây dựng xâu chứa các ký tự ựảo của xâu
ựó, ựếm xem có bao nhiêu ký tự 'a ' hoặc ỔAỖ trong xâu.
9. Viết chương trình nhập vào một xâu ký tự. Hãy kiểm tra xem xâu ựó có ựối xứng không. In
kắ tự ựầu và kắ tự cuối của xâu ựó.
10. Viết chương trình nhập vào hai xâu ký tự có ựộ dài bằng nhau. Hãy xây dựng xâu chứa
CHƯƠNG V