Pascal | Viết hàm kiểm tra số N có phải là số nguyên tố hay không?

Pascal | Viết hàm kiểm tra số N có phải là số nguyên tố hay không?

Viết hàm kiểm tra số N có phải là số nguyên tố hay không?

Hướng dẫn: Khai báo hàm kiểm tra số nguyên tố có:

Tên hàm: KiemtraSNT

Dữ liệu trả về: int, ( 0 nếu không phải là số nguyên tố, là 1 nếu là số nguyên tố )

Tham số: tham trị là int N, số cần kiểm tra.

Xử lý kiểm tra: Dựa trên ví dụ đã có ở phần trước.

Nội dung hàm:

Function  KiemtraSNT(  N : Integer ) : Boolean;

Var flag : Boolean;

       i : Integer;

Begin

    flag := True;                                    { Khoi gan gia tri dung cho ktrSNT}

    For  i := 2 to  N-1 do           { Lap voi moi i co gia tri tu 2 den N-1}

            If ( N mod i = 0 ) then                        { Kiem tra xem N co’ chia het cho i hay khong}

                    flag:=false;                      { Neu dung thi khong con la so nguyen to nua}

    KiemtraSNT:=flag;

End;

Cải tiến, không sử dụng biến phụ:

Function KiemtraSN(  N : Integer ) : Integer;

Var i :integer;

Begin

    For  i := 2 to  N-1 do           { Lap voi moi i co gia tri tu 2 den N-1}

            If ( N mod i = 0 ) then                        { Kiem tra xem N co’ chia het cho i hay khong}

                    Writeln('N khongla SNT')      { Neu dung thi khong con la so nguyen to nua}

            Else

                    Writeln('N la SNT');        { N la SNT}

End;
Bạn thấy bài viết này như thế nào?: 
Average: 4.5 (83 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

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

 
Site preview là gì trong Drupal, giới thiệu module preview sync

Site preview là gì trong Drupal, giới thiệu module preview sync

Site preview - the holy grail of Drupal. Also introducing a new module preview sync

Làm gì khi Google Chrome bị treo liên tục ?

Làm gì khi Google Chrome bị treo liên tục ?

Google Chrome là một trong những trình duyệt phổ biến và được yêu thích nhất hiện nay.

Microsoft và cảm ứng trong Office 2013

Microsoft và cảm ứng trong Office 2013

Để khai thác tiềm năng của người dùng MTB Windows 8, Microsoft mới đây đã công bố các tính năng cảm ứng trong bộ Office 2013. Mục tiêu của công ty là một bộ Office trên màn hình cảm ứng giống hệt như trên máy tính cá nhân.

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

 

Diet con trung