TAILIEUCHUNG - Sáng tạo trong thuật toán và lập trình với ngôn ngữ Pascal và C# Tập 3 - Chương 5

Luyện tập từ các đề thi Số nguyên tố cùng độ cao Olimpic Duy Tân 2009 Độ cao của một số tự nhiên là tổng các chữ số của số đó. Với mỗi cặp số tự nhiên n và h cho trước hãy liệt kê các số nguyên tố không vượt quá n và có độ cao h | Chương 5 Luyện tập từ các đề thi Số nguyên tố cùng độ cao Olimpic Duy Tân 2009 Độ cao của một số tự nhiên là tổng các chữ số của số đó. Với mồi cặp số tự nhiên n và h cho trước hãy liệt kê các số nguyên tố không vượt quá n và có độ cao h 10 n 1000000 1 h 54. n h mỗi dòng 1 số Dữ liệu test n 1000 h 16. Kết quả 15 số nguyên tố độ cao 16 79 97 277 349 367 439 457 547 619 673 691 709 727 853 907. Thuật toán Thuật toán liệt kê các số nguyên tố độ cao h trong khoảng 1. Gọi thủ tục Sang n do Eratosthenes đề xuất xem Tập 2 xác định các số nguyên tố trong khoảng và đánh dấu vào mảng byte p p i 0 khi và chỉ khi i là số nguyên tố. 2. Duyệt lại các số nguyên tố i trong danh sách p tính độ cao của số i. Nếu Height i h thì ghi nhận. 3. end. Để tính độ cao của số i ta tách dần các chữ số hàng đơn của i bằng phép chia dư cho 10 rồi cộng dồn vào một biến tổng. Độ phức tạp Thủ tục sàng duyệt vn lần mỗi lần lại duyệt n phần tử do đó cần cỡ n thao tác cơ sở phép nhân phép gán . Chương trình - So nguyen to cung do cao uses crt const fn gn nl 13 10 bl 32 mn 1000000 type mb1 array of byte var p mb1 n h longint procedure Sang n longint var i j longint begin fillchar p sizeof p 0 for i 2 to round sqrt n do if p i 0 then for j i to n div i do p i j 1 end function Height x longint integer var sum integer begin sum 0 while x 0 do begin sum sum x mod 10 x x div 10 end Height sum end procedure Ghi var i longint G text begin assign g gn rewrite g for i 2 to n do if p i 0 then if Height i h then writeln g i close g end procedure Doc var f text begin assign f fn reset f readln f n h close f end BEGIN Doc Sang n Ghi writeln nl Fini readln END. DevC - So nguyen to cung do cao include include fstream include iostream include include using namespace std D A T A A N D V A R I A B L E const int mn 1000001 char p mn int n h const char fn const char gn P R O T O T Y P E

• Kỹ thuật lập trình
• ngôn ngữ Pascal
• lập trình C#
• giải bài toán tin
• giáo trình lập trình
• thuật toán máy tính
• Ngôn ngữ lập trình Pascal
• Bài giảng Ngôn ngữ lập trình Pascal
• Thực hành Turbo Pascal
• Turbo Pascal Version 5
• Turbo Pascal Version 7
• Cách khởi động Turbo Pascal
• kinh nghiệm sử dụng
• lập trình căn bản
• ngôn ngữ lập trình
• kỹ thuật pascal
• tài liệu về pascal
• lập trình pascal
• giáo trình pascal căn bản
• kỹ thuật phần mềm
• giải bài toán pascal
• tài liêu bài toán pascal
• bài tập tin học
• Pascal
• tài liệu ngôn ngữ pascal
• giáo trình pascal
• bài giảng ngôn ngữ pascal
• Lý thuyết và bài tập Pascal
• Thành phần ngôn ngữ Pascal
• Ngôn ngữ lập trình cấp cao
• Ký hiệu của Pascal
• Ký tự trong Pascal
• Giáo trình Ngôn ngữ lập trình Pascal
• Giới thiệu chương trình Pascal
• Cấu trúc chương trình Pascal
• Ký tự sử dụng trong Pascal
• Bài tập Pascal cơ bản
• Các dạng bài tập Pascal
• Một số mẫu bài tập Pascal
• Bài tập Pascal
• Ôn tập Pascal
• Bài giảng môn Lập trình Pascal
• Môn lập trình Pascal
• Môi trường làm việc của Turbo Pascal
• Kỹ thuật Lập trình Pascal
• ứng dụng Pascal
• giáo trình
• Giáo trình bài tập Pascal
• Bài tập ngôn ngữ lập trình Pascal
• Bài giảng Lập trình Pascal
• Lệnh cơ bản trong Pascal
• Cấu trúc một chương trình Pascal
• Thuật toán lập trình
• Các khái niệm trong Pascal
• Kiểu dữ liệu đơn giản
• Các câu lệnh điều khiển
• giáo án tin học
• Giáo trình Tin học
• Cách sử dụng ngôn ngữ Pascal
• Câu hỏi Pascal
• Thành phần Pascal
• Ôn tập thi liên thông ngành tin học
• Thành phần của ngôn ngữ lập trình pascal
• Ôn tập Pascal cơ bản
• toán Pascal
• bài tập toán Pascal
• tài liệu toán Pascal
• lý thuyết toán Pascal
• Tự học lập trình Pascal
• Bài tập lập trình Pascal
• Kỹ thuật lập trình
• Học lập trình Pascal