Viết chương trình kiểm tra số nguyên tố pascal - Insurance Finances

Hôm nay thủ thuật lập trình pascal sẽ giới thiệu cho các bạn một trong những bài tập hay bài toán thường xuyên xẩy ra trong quá trình học tập cũng như làm việc, đó là vấn đề về liên quan đến số nguyên tố.

Nội dung bài học.

1. Số nguyên tố là gì?
2. Lập trình pascal là gì?

I. Số nguyên tố

Số nguyên tố là số tự nhiên lớn hơn 1 không phải là tích của hai số tự nhiên nhỏ hơn. Nói cách khác, số nguyên tố là những số chỉ có đúng hai ước số là 1 và chính nó. Các số tự nhiên lớn hơn 1 không phải là số nguyên tố được gọi là hợp số.

II. Lập trình pascal

Pascal là một ngôn ngữ lập trình cho máy tính thuộc dạng mệnh lệnh và thủ tục, được Niklaus Wirth phát triển vào năm 1970.

Hướng dẫn:

Bài toán được thực hiện qua 3 bước cụ thể như sau:

-         Thông báo nhập liệu, và nhập dữ liệu vào cho N

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

-         Xuất câu trả lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo giá trị của biến

Chương trình:

Program SO_NGUYEN_TO;

Uses crt;

Var i,n: integer;

Begin

Clrscr;

Writeln('KIEM TRA SO NGUYEN TO:');

Writeln('---------------------------');

Write ('Nhap so can kiem tra n = '); readln(n);

If (n=0) or (n=1) then

     Writeln(n,' Khong phai la so nguyen to')

     Else

    Begin

    i:=1;

    Repeat

       i:= i+1;

    Until (n mod i= 0) or (i*i>n);

    If i*i>n then Writeln (n,' la so nguyen to')

    Else Writeln (n,' khong phai la so nguyen to');

End;

Readln;

End.

Related Posts