Chủ đề này có 28 trả lời

[hoanglong9707]

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

Bài viết đã được chỉnh sửa nội dung bởi hoanglong9707: 19-08-2012 - 20:26

[hoangtrong2305]

Còn đây là bản mình viết hồi năm 11, ức chế cái thầy không dạy làm mất mấy tháng ngồi mò, sửa tới sửa lui, cuối cùng ra phần mềm......thấy ghê http://www.mediafire...29i7lxrrwivyie2

Bù lại thầy chỉ cho cách viết chương trình chơi "Đánh đề", bạn nào chơi mà thua trong 10 lần chơi đầu thì like nhé !!!!! http://www.mediafire...g4wbjjy7f0q1pmv

Bài viết đã được chỉnh sửa nội dung bởi hoangtrong2305: 19-08-2012 - 20:20

[L Lawliet]

Còn đây là bản mình viết hồi năm 11, ức chế cái thầy không dạy làm mất mấy tháng ngồi mò, sửa tới sửa lui, cuối cùng ra phần mềm......thấy ghê http://www.mediafire...29i7lxrrwivyie2

Bù lại thầy chỉ cho cách viết chương trình chơi "Đánh đề", bạn nào chơi mà thua trong 10 lần chơi đầu thì like nhé !!!!! http://www.mediafire...g4wbjjy7f0q1pmv

Đưa cờ bạc vào 4r luôn à anh

[BlackSelena]

Toàn cao thủ coding thế này
Rút.

[hoanglong9707]

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 :-?

[thanhluong]

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 :-?

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?

[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

Bài viết đã được chỉnh sửa nội dung bởi hoanglong9707: 19-08-2012 - 21:07

[thanhluong]

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

Em không dùng Pascal để viết mà dùng Python 2.7 nên không có lệnh repeat anh à, nhưng dù sao thì đó cũng không phải là vấn đề lớn, em sẽ fix lại. Code cũng tựa như Pascal ấy anh.

p/s: cho em xin Y!M hay Facebook của anh rồi nói chuyện cho tiện ạ

[hoanglong9707]

Em không dùng Pascal để viết mà dùng Python 2.7 nên không có lệnh repeat anh à, nhưng dù sao thì đó cũng không phải là vấn đề lớn, em sẽ fix lại. Code cũng tựa như Pascal ấy anh.

p/s: cho em xin Y!M hay Facebook của anh rồi nói chuyện cho tiện ạ

face đây bạn nhé https://www.facebook...tranmonghoaianh