//
you're reading...
Bài tập huấn luyện, Chủ đề tập hợp (set), Dùng cho cấp THCS, Dùng cho cấp THPT

Bài tập về tập hợp (set) – Bài 03

Bài tập về tập hợp (set)

Trang này của Nguyễn Công Tác

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

Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười Hai 2014
H B T N S B C
« Th11   Th1 »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

Thống kê

  • 150,179 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: