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