Bài tập về tập hợp (set)
Bấm vào các liên kết dưới đây để xem các trang liên quan:
Lý thuyết bài 11 – Kiểu tập hợp (set)
Về trang trước – Bài 02
Đến trang sau – Bài 04
Bài 03:
Viết chương trình in ra 10 số nguyên ngẫu nhiên không âm không trùng nhau. Xuất kết quả ra màn hình.
Phần mã sẽ được trình bày trong vùng màu xám như dưới đây:
Mẫu chương trình
Program So_ngau_nhien;
CONST
N=100;
TYPE
Nguyen= Set of 1..N;
Var
a:Nguyen;
So,i,spt:Integer;
Begin
Writeln('TIM 10 S0 NGUYEN NGAU NHIEN KHONG AM');
Writeln(' NHO HON 100, KHONG TRUNG NHAU');
Writeln('------------------------------------');
spt:=0;
a:=[];
Randomize;
Repeat
So:=Random(100);
If Not (So In a) Then
Begin
a:=a+[So];
Spt:=Spt +1;
End;
Until Spt = 10;
Writeln;
Writeln('10 so ngau nhien nho hon 100 la: ');
Writeln;
For i:= 0 To 100 Do
If i In a Then
Write(i,', ');
Writeln;
Writeln;
Write(' Bam phim de ket thuc ');
Readln
End.
Kết quả in ra
TIM 10 SO NGUYEN NGAU NHIEN KHONG AM
NHO HON 100, KHONG TRUNG NHAU
————————————
10 so ngau nhien nho hon 100 la:
16, 22, 24, 26, 46, 55, 60, 65, 66, 67,
Chú ý: Kết quả bài này có thể khác do tính ngẫu nhiên.
Nguồn tài liệu
Tham khảo từ Internet.
Giải thuật và lập trình – Lê Minh Hoàng
Trang bài học Pascal cơ bản
Dự phòng
Dự phòng
Thảo luận
Không có bình luận