Chủ đề: Số Siêu Nguyên Tố - Diễn Đàn Tin Học

Trang chủ » Thuật Toán Tìm Số Siêu Nguyên Tố Trong Pascal » Chủ đề: Số Siêu Nguyên Tố - Diễn Đàn Tin Học

Có thể bạn quan tâm

Diễn Đàn Tin Học - Powered by vBulletin Ghi nhớ?
  • Tìm kiếm chi tiết
  • Home
  • Diễn đàn
  • Lập trình
  • Các ngôn ngữ lập trình
  • Pascal/Delphi/Kylix
  • Số siêu nguyên tố
Trang 1 / 3 123 Tiếp theo LastLast
  • Jump to page:
Hiển thị kết quả từ 1 đến 10 / 28 Chủ đề: Số siêu nguyên tố
  • Hỗ trợ
    • Phiên bản để in
    • Giới thiệu cho bạn bè…
    • Theo dõi chủ đề này…
  • Rate This Thread
    • Excellent
    • Good
    • Average
    • Bad
    • Terrible
  1. 27-06-2011 15:07 #1 bin yeu
    • View Profile
    • View Forum Posts
    • View Articles
    bin yeu is offline Registered User Tham gia 15-11-2010 Bài viết 38 Like 0 Thanked 2 Times in 2 Posts

    Tệ thật ! Số siêu nguyên tố

    số siêu nguyên tố là số mà khi bỏ 1 số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn là 1 số nguyên tố vd: 2333 là 1 số siêu nguyên tố có 4 chữ số vì 233, 23, 2 cũng là các số nguyên tố. Cho số nguyên dương N (0<N<10) đưa ra các số siêu nguyên tố có N chữ số cùng số các số đó. vd: Với N = 4 có 16 số 2333, 2339, 2393, 2399, 2939, 3119, 3137, 3733, 3739, 3797, 5939, 7193, 7331, 7333, 7393.
    Quote Quote
  2. 27-06-2011 15:37 #2 pphoctienganh
    • View Profile
    • View Forum Posts
    • View Articles
    pphoctienganh is offline Registered User Tham gia 27-06-2011 Bài viết 46 Like 0 Thanked 1 Time in 1 Post
    Không hiểu đề bài lắm ? Viết soft để chỉ ra số siêu nguyên tố hay chỉ ra được 1 điều thụ vị ?
    Quote Quote
  3. 28-06-2011 07:21 #3 HGMinh95's Avatar HGMinh95
    • View Profile
    • View Forum Posts
    • View Articles
    HGMinh95 is offline DDTH.com Tham gia 05-08-2010 Bài viết 313 Like 9 Thanked 73 Times in 69 Posts
    Bài này bạn nên dùng quay lui để giải, đầu tiên xét tất cả khả năng mà chữ số ngoài cùng (chữ số thứ 1) có thể nhận, tiếp theo xét đến cs thứ 2,... cho đến cs thứ n. Làm theo cách này sẽ nhanh hơn duyệt từ 10..0 -> 9..99 rất nhiều
    Quote Quote
  4. 28-06-2011 11:03 #4 auauau97
    • View Profile
    • View Forum Posts
    • View Articles
    auauau97 is offline DDTH.com Tham gia 29-05-2011 Location Hà Nội Bài viết 1,826 Like 1,420 Thanked 47 Times in 42 Posts
    Quote Được gửi bởi bin yeu View Post số siêu nguyên tố là số mà khi bỏ 1 số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn là 1 số nguyên tố vd: 2333 là 1 số siêu nguyên tố có 4 chữ số vì 233, 23, 2 cũng là các số nguyên tố. Cho số nguyên dương N (0<N<10) đưa ra các số siêu nguyên tố có N chữ số cùng số các số đó. vd: Với N = 4 có 16 số 2333, 2339, 2393, 2399, 2939, 3119, 3137, 3733, 3739, 3797, 5939, 7193, 7331, 7333, 7393. Code: Uses crt; Var a,b:array[1..100] of longint; n,i,k,ka,kb,cs:byte; {-----------------------------------------------------------------------------------------------------------------------------} Function NT(n:longint):boolean; Var i:longint; Begin If (n=0) or (n=1) then NT:=False Else Begin i:=2; While (n mod i<>0) and (i<=sqrt(n)) do i:=i+1; If i> sqrt(n) then NT:=True Else NT:=False; End; End; {-----------------------------------------------------------------------------------------------------------------------------} BEGIN CLrscr; Write('Nhap so n:'); Readln(n); ka:=1; a[ka]:=0; For i:=1 to n do Begin kb:=0; For k:=1 to ka do For cs:=0 to 9 do If NT(a[k]*10+cs) then Begin kb:=kb+1; b[kb]:=a[k]*10+cs; End; ka:=kb; For k:=1 to ka do a[k]:=b[k]; End; For k:=1 to ka do Write(a[k]:10); Writeln; Writeln('Co tat ca ',ka,' so sieu nguyen to co ',n,' chu so.'); Readln; END.
    Quote Quote

  5. 2 thành viên Like bài viết này:

    levantukg, thanhnttdtd
  6. 28-06-2011 17:29 #5 haplinhavxt
    • View Profile
    • View Forum Posts
    • View Articles
    haplinhavxt is offline Registered User Tham gia 25-06-2011 Location Ninh Bình Bài viết 165 Like 4 Thanked 57 Times in 52 Posts
    Quote Được gửi bởi auauau97 View Post Code: Uses crt; Var a,b:array[1..100] of longint; n,i,k,ka,kb,cs:byte; {-----------------------------------------------------------------------------------------------------------------------------} Function NT(n:longint):boolean; Var i:longint; Begin If (n=0) or (n=1) then NT:=False Else Begin i:=2; While (n mod i<>0) and (i<=sqrt(n)) do i:=i+1; If i> sqrt(n) then NT:=True Else NT:=False; End; End; {-----------------------------------------------------------------------------------------------------------------------------} BEGIN CLrscr; Write('Nhap so n:'); Readln(n); ka:=1; a[ka]:=0; For i:=1 to n do Begin kb:=0; For k:=1 to ka do For cs:=0 to 9 do If NT(a[k]*10+cs) then Begin kb:=kb+1; b[kb]:=a[k]*10+cs; End; ka:=kb; For k:=1 to ka do a[k]:=b[k]; End; For k:=1 to ka do Write(a[k]:10); Writeln; Writeln('Co tat ca ',ka,' so sieu nguyen to co ',n,' chu so.'); Readln; END. Code của bạn trâu bó quá!
    Quote Quote

  7. Thành viên Like bài viết này:

    thanhnttdtd
  8. 29-06-2011 11:37 #6 auauau97
    • View Profile
    • View Forum Posts
    • View Articles
    auauau97 is offline DDTH.com Tham gia 29-05-2011 Location Hà Nội Bài viết 1,826 Like 1,420 Thanked 47 Times in 42 Posts
    Quote Được gửi bởi haplinhavxt View Post Code của bạn trâu bó quá! Sao hả bạn, chỉ hơi dài chút thôi mà !
    Quote Quote
  9. 29-06-2011 18:15 #7 HGMinh95's Avatar HGMinh95
    • View Profile
    • View Forum Posts
    • View Articles
    HGMinh95 is offline DDTH.com Tham gia 05-08-2010 Bài viết 313 Like 9 Thanked 73 Times in 69 Posts
    Quote Được gửi bởi auauau97 View Post Sao hả bạn, chỉ hơi dài chút thôi mà ! Ko phải đoạn code dài mà là thuật toán bạn sử dụng trâu bò quá. Nếu duyệt hết các số có n chữ số như vậy thì rất mất thời gian (bạn chạy thử với n = 10 xem), ko thể ăn hết test của bài.
    Quote Quote
  10. 30-06-2011 12:44 #8 auauau97
    • View Profile
    • View Forum Posts
    • View Articles
    auauau97 is offline DDTH.com Tham gia 29-05-2011 Location Hà Nội Bài viết 1,826 Like 1,420 Thanked 47 Times in 42 Posts
    Quote Được gửi bởi HGMinh95 View Post Ko phải đoạn code dài mà là thuật toán bạn sử dụng trâu bò quá. Nếu duyệt hết các số có n chữ số như vậy thì rất mất thời gian (bạn chạy thử với n = 10 xem), ko thể ăn hết test của bài. Thế thì cách làm của bạn như thế nào ? Mà n<10 nhé bạn(để bài)
    Quote Quote
  11. 30-06-2011 15:02 #9 camaptrangvn
    • View Profile
    • View Forum Posts
    • View Articles
    camaptrangvn is offline Registered User Tham gia 18-06-2011 Bài viết 103 Like 0 Thanked 3 Times in 3 Posts
    Có số nguyên tố rồi. Lại có cả số siêu nguyên tố nữa. Đã thế còn viêt được code tìm được số siêu nguyên tố nữa
    Quote Quote
  12. 30-06-2011 16:06 #10 haplinhavxt
    • View Profile
    • View Forum Posts
    • View Articles
    haplinhavxt is offline Registered User Tham gia 25-06-2011 Location Ninh Bình Bài viết 165 Like 4 Thanked 57 Times in 52 Posts
    Quote Được gửi bởi camaptrangvn View Post Có số nguyên tố rồi. Lại có cả số siêu nguyên tố nữa. Đã thế còn viêt được code tìm được số siêu nguyên tố nữa Bạn mới học Tin à đâu mà hỏi hay vậy?
    Quote Quote

  13. Thành viên Like bài viết này:

    thanhnttdtd
Trang 1 / 3 123 Tiếp theo LastLast
  • Jump to page:
Chuyển nhanh Pascal/Delphi/Kylix Top
  • Site Areas
  • Cá nhân
  • Tin nhắn
  • Subscriptions
  • Ai đang online ?
  • Tìm kiếm trong chuyên mục
  • Trang chủ
  • Chuyên mục
  • Hoạt động của DDTH
    1. Hoạt động Off-line
      1. Các cuộc thi dành cho DDTH.com
      2. Sinh nhật DDTH.com
      3. Hội Cầu Lông DDTH.com
    2. Công tác xã hội
      1. Tin Học Xanh
      2. Nhật ký THX
    3. Thông báo
      1. Thông báo cũ
      2. Góp ý, đề nghị
      3. Nhắc nhở - Vi phạm
      4. Ứng tuyển moderator
  • Thảo luận chung
    1. CNTT Việt Nam và Quốc tế
      1. Các cuộc thi CNTT
    2. Tin tức CNTT
      1. Tin PR & Khuyến mãi
    3. ISP - ICP - OSP
      1. Viettel
      2. FPT
      3. VNPT
      4. CMC
      5. SPT
    4. Nghề nghiệp
      1. Tư vấn pháp luật
    5. Thương mại điện tử
    6. Advertisers & Publishers
    7. Search Engine Optimization/Marketing
    8. Review sản phẩm & công nghệ
    9. Startup-Khởi Nghiệp!
  • Tư vấn - Thị trường & Kiến thức cần biết
    1. Tin học căn bản
      1. Máy tính & Sức khỏe
    2. Hỗ trợ kỹ thuật
    3. Phần mềm
      1. Softwares Request
      2. Giới thiệu phần mềm
    4. Máy tính để bàn
      1. CPU & Mainboard & Memory
      2. VGA & PSU & Overclocking
      3. Phần cứng chung & Thiết bị ngoại vi
    5. Laptop
      1. Dell
  • Mobile devices
    1. iPhone & iPad
      1. iOS Apps
    2. Android Smartphones
      1. Android Apps
    3. BlackBerry
      1. BlackBerry Apps
    4. Windows Phones
      1. Windows Phones Apps
    5. Wireless Technology
    6. Tablets
    7. Discussion
  • Đào tạo
    1. Công nghệ giáo dục
    2. Học về CNTT
      1. Du học
      2. E-books
        1. Requests
    3. Chứng chỉ tin học quốc tế
      1. Microsoft
      2. Cisco
        1. Hand-on Lab
        2. Technology
      3. Những chứng chỉ khác
      4. GroupStudy
    4. English Room
  • Lập trình
    1. Các ngôn ngữ lập trình
      1. .NET
      2. C/C++
      3. Visual Basic
      4. Pascal/Delphi/Kylix
      5. Java
    2. Các vấn đề khác trong lập trình
      1. Projects
      2. Data Structures + Algorithms
      3. GameDev Zone
  • Hệ thống - Mạng
    1. Security Zone
      1. Anti-DDoS
    2. Windows
    3. Linux - Unix
    4. LAN - WAN
  • Internet & Web & Multimedia
    1. Lập trình web
      1. DDTH-CMS
    2. Thiết kế web
      1. Shockwave Flash
      2. Graphic Design
      3. HTML - CSS
      4. Design Resources
      5. CMS
      6. Yêu cầu thiết kế
    3. CLB Webmasters
      1. Hot Links !!!
      2. Scripts - Mods
    4. Showcase
    5. Xử lý phim / âm thanh
    6. Photoshop & Illustration
    7. 3D World
    8. Game
  • Cơ sở dữ liệu
    1. MS SQL Server
    2. Oracle
    3. Hệ CSDL khác
  • Domains/Hosting
    1. Web Hosting / Domain
      1. Cloud Computing
      2. Dedicated Hosting / VPS
    2. Technical & Security
    3. Advertising
    4. Hosting Support
      1. VinaCIS
  • Giao lưu - Thư giãn
    1. Tự giới thiệu - Giao lưu
      1. Interview
      2. Miền Bắc
      3. Miền Trung
      4. Social Networks
    2. Góc thư giãn
      1. Văn tuyển Làng Mùi
      2. Truyện cười
      3. Chuyện thời sự
      4. Đố vui
      5. Music - Movie - Sport
    3. Nhiếp ảnh
      1. Albums
      2. Máy ảnh - Máy quay phim - Phụ kiện
    4. Bóng Đá
  • Trung Tâm Giao Dịch
    1. Linh Kiện PC - Laptop
    2. Điện thoại, tablet và phụ kiện
    3. Server, domain, hosting
    4. Giáo dục, đào tạo về CNTT
    5. Việc làm CNTT
      1. Người tìm việc
« Bài trước | Bài tiếp theo »

Bookmarks

Bookmarks
  • Submit to Digg Digg
  • Submit to del.icio.us del.icio.us
  • Submit to StumbleUpon StumbleUpon
  • Submit to Google Google

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  • BB code is On
  • Smilies are On
  • [IMG] code is On
  • [VIDEO] code is On
  • HTML code is Off

Quy định DDTH.com

Theo giờ GMT +7 :: 00:50. Powered by: vBulletin version 4.2.0. Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Founded by vikhoa. Developed by DDTH Members. Hosted by ODS.vn

Từ khóa » Thuật Toán Tìm Số Siêu Nguyên Tố Trong Pascal