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

[henry0905]

Đây là phần mềm do bạn Trần Hoàng Long (Lớp C04 trường THPT Nguyễn Thượng Hiền) viết. Mọi người download về sử dụng thử và cho ý kiến.
http://www.mediafire...fc6a96j4l6vqyg9

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

[hoangtrong2305]

Đây là phần mềm do bạn Hoàng Long (trường THPT Nguyễn Thượng Hiền) viết. Mọi người download về sử dụng thử và cho ý kiến.
http://www.mediafire...fc6a96j4l6vqyg9

Hic, viết dc đấy, cái a viết thấy ghê quá :-s

[L Lawliet]

Đây là phần mềm do bạn Hoàng Long (trường THPT Nguyễn Thượng Hiền) viết. Mọi người download về sử dụng thử và cho ý kiến.
http://www.mediafire...fc6a96j4l6vqyg9

Chương trình này nhẹ, kiểm tra nhanh và không quá phức tạp nói chung là hay ^^ mình biết thuật toán Casio để tìm mà giờ thì khỏi rồi

[longqnh]

thuật toán này là cơ bản của lập trình thôi mà

[L Lawliet]

thuật toán này là cơ bản của lập trình thôi mà

Cơ bản mà không ai làm anh à

Spoiler

Sau này làm thử

[C a c t u s]

Cái này hay
Nhưng nếu lập trình bằng ngôn ngữ Pascal thì sẽ có nhược điểm là nếu nhập số quá lớn (vượt qua longint) thì sẽ bị thoát ra luôn.

[L Lawliet]

Cái này hay
Nhưng nếu lập trình bằng ngôn ngữ Pascal thì sẽ có nhược điểm là nếu nhập số quá lớn (vượt qua longint) thì sẽ bị thoát ra luôn.

Phần mêm này chỉ là lập trình đơn giản thôi mà em ^^ nếu muốn tìm số quá lớn thì phải xài đến máy tính hiện đại cơ @@

[henry0905]

Cái này hay
Nhưng nếu lập trình bằng ngôn ngữ Pascal thì sẽ có nhược điểm là nếu nhập số quá lớn (vượt qua longint) thì sẽ bị thoát ra luôn.

Đó là nhược điểm của Pascal. Các bạn nhập số 2< tỉ nhé.

[longqnh]

Cơ bản mà không ai làm anh à

Spoiler

Sau này làm thử

không ai làm bởi vì nó quá "yếu". Chương trình này theo mình đoán chỉ có thể kiểm tra được số trong phạm vi tới khoảng $10^3$ là hết đát. Hồi xưa khi còn học chuyên tin, mình có thể kiểm tra 1 số có phải là số nguyên tố hay không trong phạm vi lên đến $10^6$

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

[L Lawliet]

không ai làm bởi vì nó quá "yếu". Chương trình này theo mình đoán chỉ có thể kiểm tra được số trong phạm vi tới khoảng $10^3$ là hết đát. Hồi xưa khi còn học chuyên tin, mình có thể kiểm tra 1 số có phải là số nguyên tố hay không trong phạm vi lên đến $10^6$

Dạ, cái này có nhược điểm đó là yếu quá. Đến $10^3$ là cùng do xài mấy thuật toán cơ bản thôi
P/s: Mà anh học chuyên tin à ^^ lên inbox trao đổi anh

[longqnh]

P/s: Mà anh học chuyên tin à ^^ lên inbox trao đổi anh

chuyện ngày xưa thôi ấy mà . Giờ chỉ muốn thi đại học nên bỏ rồi

[Cao Xuân Huy]

Làm cái int64 vô là $10^18$ liền. Còn không qua C++ mà làm

[longqnh]

nếu muốn kiểm tra số lớn thì xài thuật toán này. Mở lại code ngày xưa mình làm sao nhớ thời hoàng kim quá

function SNT(x : Integer) : Boolean;
var	 sqrt_x, k : Integer;
begin
		 if (x = 2) or (x = 3) then Exit(true);
		 if (x = 1) or (x mod 2 = 0) or (x mod 3 = 0) then Exit(false);
		 sqrt_x := Trunc(Sqrt(x));
		 k := -1;
		 repeat
			    Inc(k, 6);
			    if (x mod k = 0) or (x mod (k + 2) = 0) then Break;
		 until k > sqrt_x;
		 Exit(k > sqrt_x);
end;

[hoanglong9707]

Em lên nhận hàng đê, thật ra đưa cho henry nó coi chơi xem mình làm có lỗi gì ko ai ngờ nó show lên đê, các bác coi đừng chê vì em mới bập bẹ vài lệnh của pacal thôi, ai có thuật toán hay về cái này có thể chia sẻ dc ko

[L Lawliet]

Em lên nhận hàng đê, thật ra đưa cho henry nó coi chơi xem mình làm có lỗi gì ko ai ngờ nó show lên đê, các bác coi đừng chê vì em mới bập bẹ vài lệnh của pacal thôi, ai có thuật toán hay về cái này có thể chia sẻ dc ko

Có chê đâu anh làm như vầy hay mà

[C a c t u s]

Em lên nhận hàng đê, thật ra đưa cho henry nó coi chơi xem mình làm có lỗi gì ko ai ngờ nó show lên đê, các bác coi đừng chê vì em mới bập bẹ vài lệnh của pacal thôi, ai có thuật toán hay về cái này có thể chia sẻ dc ko

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

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

[thanhluong]

Đây là phần mềm do bạn Trần Hoàng Long (Lớp C04 trường THPT Nguyễn Thượng Hiền) viết. Mọi người download về sử dụng thử và cho ý kiến.
http://www.mediafire...fc6a96j4l6vqyg9

Cái này hay
Nhưng nếu lập trình bằng ngôn ngữ Pascal thì sẽ có nhược điểm là nếu nhập số quá lớn (vượt qua longint) thì sẽ bị thoát ra luôn.

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

[C a c t u s]

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 đã thử đến 20 chữ số cũng ok , nhưng có một lỗi nhỏ , đến chỗ: "Thoat khoi chuong trinh (yes/no)?" mà ghi "no" cũng bị thoát ra.

[SpecialBoy]

tác dụng tìm số của pt bậc 4 phải ko. em mới lên 11 ah

[thanhluong]

Mình đã thử đến 20 chữ số cũng ok , nhưng có một lỗi nhỏ , đến chỗ: "Thoat khoi chuong trinh (yes/no)?" mà ghi "no" cũng bị thoát ra.

để mình fix