hoanglong9707

 

 

Em không hiểu cho lắm? đúng là 2 số trên không phải là số nguyên tố mà anh?

không có nghĩa là số "456457,4646" số thập phân ế thì nó vẫn phang kết quả, kiểu dữ liệu đó tuy rộng nhưng nó là số thực :|, để hoàn chỉnh hơn mình nghĩ bạn nên dùng lệnh repeat ép người dùng nhập số vào phải là số nguyên thì hay hơn
nhưng nếu gãnh bạn share code cho mình dc ko, tuy hổng chỗ đó nhưng có thể mình sẽ chỉnh dc cho bạn, với lại tham khảo

Hihi em mới viết chương trình này có thể kiểm tra được số lớn đến vài ngàn chữ số, mọi người tải về dùng thử rồi cho ý kiến được không ạ
http://www.mediafire...wt309ze39niwenq

Mình đã tìm ra 1 lỗi cực kì nghiêm trọng trong code này đó là bạn đã sử dụng kiểu dữ liệu ectended ( đoán maybe ), vì khi nhập 4546457,4646 thì nó cũng phang kết quả @@, mình đang nghiên cứu vấn đề này :-?

Một thuật toán rất đơn giản nhưng không dùng đến chương trình con

Uses crt;
Var N,i,d : Longint;
Begin
If N<2 Then Writeln(N,’ khong phai la so nguyen to’)
Else
Begin
{Đếm số ước số}
d:=0;
For i:=2 To N div 2 Do
If N MOD i=0 Then inc(d);
{Kiểm tra}
If d=0 Then Writeln(N,’ la so nguyen to’)
Else Writeln(N,’ khong phai la so nguyen to’);
End;
Readln;

End.

Em nghĩ đây là cách đơn giản nhất

Cách của mình còn nhanh hơn cách bạn vì mình chỉ kiểm tra từ 2-> căn cố nhập vào. Chương trình của bạn nêu nhập số có khoảng 6 số thì chắc chắn sẽ lâu mới ra kết quả...
Thật ra chương trình mình dùng chương trình con cho màu mè thôi . vd như mình yêu cầu nhập lại nêu bạn nhập số <= 0 ...

Hihi em mới viết chương trình này có thể kiểm tra được số lớn đến vài ngàn chữ số, mọi người tải về dùng thử rồi cho ý kiến được không ạ
http://www.mediafire...wt309ze39niwenq

bạn có thể show cho mình code tham khảo dc ko