Skip to content
Narrow screen resolution Wide screen resolution Auto adjust screen size Increase font size Decrease font size Default font size default color grey color
         
 | 
VNOI - Olympic tin học Việt Nam

Điểm tin VOJ

Số thành viên:6040
Số bài tập:1001
Số bài nộp:722923
Bài nộp hôm nay:0

Top 10 thành viên xuất sắc

HạngThành viênĐiểm
1mr_invincible587.9
2white_cobra418.6
3hieult403.4
4phaleq384.0
5vodanh9x368.2
6con_nha_ngheo352.0
7flash_mt350.2
8darksabers349.8
9yenthanh132345.3
10rockman9x_94343.1

Danh tiếng các thành viên

HạngThành viênĐiểm
1mr_invincible+213
2conankudo+149
3khuc_tuan+137
4tuananhnb93+129
5khanhptnk+108
6hphong+103
7flash_mt+99
8paulmcvn+71
9technolt+70
10hoangle+63

Topcoder Vietnam

HạngThành viênĐiểm
Diễn đàn
Forum
PNUMBER (1 đang xem) ,(1) Khách
Bài viết dưới cùng Gửi trả lời Được ưa thích: 0
CHỦ ĐỀ - PNUMBER
#70276
anhduy315 (Thành viên)
Đang tập code
Bài viết: 2
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
PNUMBER 8 năm trước   (+0)
các bạn xem giúp mình bài này nó chạy tới test 19 thì báo kết quả sai.
uses crt;
var
i,n,soa,sob: longint;
function ngto (n: longint) : boolean;
var i: longint;
begin
i:= 2;
while ((i * i <= n) and (n mod i <> 0)) do i:= i + 1;
if (i*i>n) then ngto:= true
else ngto:= false;
end;
begin
readln(soa,sob);
for i:= soa to sob do
begin
if (i>2) then
if (ngto(i)) then writeln(i);
end;
end.
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#70279
laituanksa245 (Thành viên)
Đã biết code đệ quy
Bài viết: 5
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PNUMBER 8 năm trước   (+0)
Hình như cái dòng if (i>2) then (Dòng thứ 4 từ dưới lên) không ổn lắm vì 2 cũng là số nguyên tố mà bạn
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#70293
Dream_link_1428 (Thành viên)
tntbinh1428
Đã biết code đệ quy
Bài viết: 6
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PNUMBER 8 năm trước   (+0)
Cái function kiểm tra nguyên tố của bạn có vấn đề
bạn thử tham khảo function sau
Code:
function nto(x: longint): boolean;
var
  i: longint;
begin
  for i:= 2 to trunc(sqrt(x)) do
  if x mod i = 0 then exit(false);
  exit (true);
end;
Bài này còn 1 cách làm khác nhanh hơn rất nhiều là sàng số nguyên tố (bạn có thể tham khảo trong thư viện của VNOI hoặc google)
 
Đã lưu IP Đã lưu IP  
 
Pascal dẫn lối - IT vô đối <3
  Đã khóa chức năng gửi bài.
#70337
anhduy315 (Thành viên)
Đang tập code
Bài viết: 2
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PNUMBER 8 năm trước   (+0)
2 > 2 thi false ma ban
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
Bài viết trên cùng Gửi trả lời
Powered by FireBoardBài viết mới nhất từ diễn đàn cho các chương trình nhận tin RSS