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

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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.

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

 
Hướng dẫn tạo blog trong Symfony 2 framework

Hướng dẫn tạo blog trong Symfony 2 framework

This tutorial will guide you through the process of creating a full featured blogging website using Symfony2. The Standard Distribution of the Symfony2 framework will be used

Add-on Firefox hay dành cho seo và webmaster

Để làm SEO cho tốt, webmaster thường xuyên theo dõi tình hình tăng giảm thứ hạng về site của mình cũng như các site đối thủ, những thông tin như ranking, backlink, income links

Social Network, Social Media giúp doanh nghiệp vượt qua đối thủ

Social Network, Social Media giúp doanh nghiệp vượt qua đối thủ

Mạng xã hội sẽ có thể giúp doanh nghiệp của bạn kinh doanh hiệu quả trên Internet và vượt qua những đối thủ cạnh tranh...

Công ty diệt chuột T&C

 

Diet con trung