//
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 01

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)
Đến trang sau – Bài 02
Dự phòng


Bài 01:

Viết chương trình in ra các số nguyên tố từ 1 đến 100.

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_nguyen_to;
Var
 	NguyenTo,Sang:Set of 1..100;
	so:1..100;
 	i:Integer;
Begin
 	Writeln(' CAC SO NGUYEN TO TU 1 DEN 100');
 	Writeln(' -----------------------------');
 	Writeln;
 	NguyenTo:=[];
 	Sang:=[2..100];
 	So:=2;
 	Repeat
 	While Not (So In Sang) Do
 		So:=So+1;
 	NguyenTo:=NguyenTo + [So];
 	Write(So,' ');
 	I:=So;
 	While I <= 100 Do
 		Begin
 			Sang:=Sang -[I];
 			I:=I + So;
 		End;
 	Until Sang=[];
 	Writeln;
 	Writeln;
 	Write(' Bam phim de ket thuc ');
 	Readln
End.

Kết quả in ra
CAC SO NGUYEN TO TU 1 DEN 100
—————————–
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
Bam phim de ket thuc


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

About pascalteacher

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

Thảo luận

Chưa có phản hồi.

Gửi phản hồ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 Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Danh mục

Tháng Mười Hai 2014
M T W T F S S
« Nov   Jan »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

sunset

Detroit Night

White-winged Scoter | Macreuse à ailes blanches

More Photos

Thống kê

  • 95,285 lượt xem

%d bloggers like this: