Chương trình con kiểm tra 1 số có là số nguyên tố hay không

[hang_vt]

Bạn lehang viết bằng TP à?
FP viết dễ hơn:

cùng 1 ngôn ngữ mà sao lại dễ hơn , khó hơn khi vik ở cách trình khác nhau

[lehang_gb1]

Bạn lehang viết bằng TP à?
FP viết dễ hơn:

Function NT(n:Cardinal):Boolean;
Var i:Cardinal;
Begin
     i:=2;
     If N<=1 then Exit(False)
     Else While i<=Trunc(Sqrt(N))do
       Begin
        If N mod i = 0 then Exit(False);
        i+=2;
       End;
     Exit(True);
End; 

Mình quen dùng TP nhưng chắc ko khác FP là mấy nhỉ. Kiểu dữ liệu Cardinal là kiểu gì mà mình ko được biết trong TP

[quangtq]

Cardinal là kiểu số nguyên ko dấu 32 bit (>8 bit của LongInt nhiều)

[mrcuongwinter]

ngôn ngữ pascal mình không đựoc rành cho lắm. nhưng nhìn mấy bạn viết code thì vẫn hiểu đôi chút. co một số bạn viết chương trình nay ngắn gon, có bạn viết dài dòng nhưng đều đúng cả. một người lập trình tốt thi phải viết mộtt chương trình càng ít vòng lặp càng tôt đúng không các bạn. cho nên các bạn cần phải cân nhắc nên dùng thuật toán nào.