//
you're reading...
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 02

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 01
Đến trang sau – Bài 03


Bài 02:

Viết chương trình nhập vào mốt số nguyên , xuất ra màn hình số các số hạng của số nguyên đó.

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_so_hang;
Var
    Thuong:Set of 0..9;
   Sodu:0..9;
   So,Soluu,Sohang:Integer;
Begin
    Writeln('SO SO HANG CUA MOT SO NGUYEN');
   Writeln('----------------------------');
   Write('-Nhap so nguyen bat ky: ');
   Readln(So);
   Soluu:=So;
   Thuong:=[];
   Sohang:=0;
   Repeat
       Sodu:=So Mod 10;
      If Not (Sodu In Thuong) Then
          Sohang:=Sohang + 1
      Else
          Begin
             Sohang:=Sohang + 1;
            Thuong:=Thuong + [Sodu]
         End;
      So:= So Div 10;
   Until So = 0;
   Writeln;
   Writeln('   *So ',Soluu,' co ',Sohang,' so hang');
   Writeln;
   Write('     Bam phim de ket thuc ');
   Readln
End.

Kết quả in ra
SO SO HANG CUA MOT SO NGUYEN
—————————-
– Nhap so nguyen bat ky: 120
*So 120 co 3 so hang
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

It's A-peeling To Me

Winter evening in Rognan, Norway

Macro Mondays .."It's A-Peeling To Me"

More Photos

Thống kê

  • 95,573 lượt xem

pascalteacher.nct@gmail.com


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

%d bloggers like this: