Hàm kiểm tra nguyên tố nhận vào một số nguyên n và trả lại kết quả là true

Hàm kiểm tra nguyên tố nhận vào một số nguyên n và trả lại kết quả là true

Thuật toán kiểm tra số nguyên tố trong pascal của ta dựa trên ý tưởng: nếu n >1 không chia hết cho số nguyên nào trong tất cả các số từ 2 đến thì n là số nguyên tố. Do đó ta sẽ kiểm tra tất cả các số nguyên từ 2 đến có round(sqrt(n)), nếu n không chia hết cho số nào trong đó thì n là số nguyên tố.

Nếu thấy biểu thức round(sqrt(n)) khó viết thì ta có thể kiểm tra từ 2 đến n div 2.

Hàm kiểm tra nguyên tố nhận vào một số nguyên n và trả lại kết quả là true (đúng) nếu n là nguyên tố và trả lại false nếu n không là số nguyên tố

Bài giải

program sont;

uses crt;
var n,i,tong,j:integer;
    snt:boolean;
    A:array[1..100] of integer;
function ktnt(a:integer):boolean;
    var i:integer;
    kt:boolean;
    begin
    kt:=true;
    if a<=1 then kt:=false;
    for i:=2 to trunc(sqrt(a)) do
    if (a mod i = 0) then kt:=false;
    ktnt:=kt;
    end;

begin
clrscr;
writeln('nhap so phan tu cua mang A :');
readln(n);
for i:= 1 to n do
    begin
    writeln('nhap phan tu thu ',i,' ');
    read(A[i]);
    end;
tong:=0;
for i:=1 to n do
begin
if ktnt(A[i]) then
   tong:=tong+1;
end;
writeln('-------------------------------------------');
writeln(' tong co ',tong,' snt trong mang' );
writeln(' cac so do la ');
for i:=1 to n do
if ktnt(A[i]) then write(A[i],' ');
readln;
readln;
end.
Bạn thấy bài viết này như thế nào?: 
Average: 9.3 (4 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Enter the characters shown in the image.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
DRUPAL CAREER ONLINE

Đào tạo nghề nghiệp DRUPAL CAREER ONLINE tại DrupalEasy Academy

DrupalEasy Academy Career training is available live at your desktop anywhere in the world through Drupal Career Online

10 lí do khiến Adobe thua cuộc trong cuộc chiến Flash di động với Apple

10 lí do khiến Adobe thua cuộc trong cuộc chiến Flash di động với Apple

Vừa qua, Adobe đã quyết định sẽ không còn hỗ trợ FLash Player cho các trình duyệt web di động nữa. Qua đó, ta có thể thấy rằng Adobe đã thua Apple trong cuộc chiến căng thẳng kéo dài về nền tảng phát triển ứng dụng Web này.

DevExpress v10.1.5 – Hướng dẫn cài đặt

Hướng dẫn cài đặt công cụ DevExpress v10.1.5

DevExpress là bộ công cụ cực kỳ mạnh mẽ trong việc hỗ trợ các nhà lập trình phát triển giao diện ứng dụng như Windows Form hay web ASP.Net, đơn giản dễ sử dụng, đây là một bộ phần mềm bạn không thể bỏ qua. Đối với những bạn đã và đang sử dụng bộ Visual Studio 2005 – 2008 -2010 thì có lẽ không lạ gì với bộ công cụ này.

Tomdesgin.vn

 

Drupal Services