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.
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

 
Login & Manage Multiple Gmail Accounts Quickly in Chrome

Login & Manage Multiple Gmail Accounts Quickly in Chrome

Recently Google Launched a new Multi Gmail Login feature for its users, which allows them to login different Gmail account from the same browser without signing out...

Auto-Notify Drupal Authors About New Comments

Tự động Notify Drupal Authors khi có Comments mới

Managing comments on a busy website can get tedious if you need to login and check continually. It's very convenient to get an email with the comment text, so you can see if it's legitimate or comment spam.

Các thiết bị Android sẽ cạnh tranh với iPod Touch

Các thiết bị Android sẽ cạnh tranh với iPod Touch

Các thiết bị đa phương tiện sử dụng phần mềm Android - do Archos, Philips, Samsung, Sony và sắp tới có thể là HTC sản xuất, sẽ cạnh tranh với iPod Touch.

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

 

Diet con trung