:: Quên mật khẩu ::

Share | 

 

 Bài giải thi pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Wed Jan 13, 2010 9:39 pm

Userkim_o Người này hiện đang:
Level: Thành Viên Xây Dựng
Danh vọng:148


Thành Viên Xây Dựng

kim_o

Thành Viên Xây Dựng

Giới tính : Nam
Đến từ : An Giang
Join : 12/11/2009
Bài gửi : 148

Bài gửiTiêu đề: Bài giải thi pascal

 
program timsocotonguocle;
uses crt;
var a:array[1..10] of integer;
n,i,s,j : integer;
begin
clrscr;
writeln('hay cho biet so phan tu trong vi <= 10');
readln(n);
for i:= 1 to n do
begin
write('phan tu thu n=',i,' co gia tri la ');
readln(a[i]);
end;
for i:=1 to n do
begin
for j:=1 to a[i] div 2 do
if a[i] mod j =0 then s:=s+j ;
if (s mod 2) =1 then writeln(a[i],'la so thoa dieu kien');
s:=0;
end;
readln;
end.



Wed Jan 13, 2010 10:43 pm

UserRegulus™ Người này hiện đang:
Level: Tổng điều hành
Danh vọng:758


Tổng điều hành

Regulus™

Tổng điều hành

http://itk35.tk
Giới tính : Nam
Đến từ : ...
Join : 06/11/2009
Bài gửi : 758
HUMOR : Nghe nhạc.. Computer

Thú cưng
.:

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
hix....
Câu này bị sai rồi nè....for j:=1 to a[i] div 2 do
chỉ tính tổng các ước từ 1--> A/2 thì sao gọi đó là tổng tất cả các ước số của a




[center]
&lt;font size=10&gt;Tin học là phải tin mới học&lt;/font size&gt;

Copy- Paste -&gt; Copy- Paste-Hiểu-Đánh giá-Phát triển Cải tiến.
&lt;br&gt;


Email: plkhanhhai1991@gmail.com
k35104017@student.hcmup.edu.vn


Wed Jan 13, 2010 10:52 pm

Userkim_o Người này hiện đang:
Level: Thành Viên Xây Dựng
Danh vọng:148


Thành Viên Xây Dựng

kim_o

Thành Viên Xây Dựng

Giới tính : Nam
Đến từ : An Giang
Join : 12/11/2009
Bài gửi : 148

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
hjhj, mấy o chạy thử đi rùi biết. thực tế là ước của 1 số chỉ chạy từ 1 đến n div 2 thui. vd: 8 thi có cac uoc là 1,2,4 ==> 4= 8 div 2; 16 có các ước 1,2,4,8 ==> 8 = 16 div 2; 18 có ước là 1,2,3,6,9 ==> 9 = 18 div 2,.... nói chung nó đúng với mọi số.... bài này t phải nghĩ thêm 1 ngày tìm tối ưu đó. nhưng tui nghĩ sẽ có bài ngắn hơn nữa, nên post lên cho mọi người góp ý



Thu Jan 14, 2010 12:35 am

UserRegulus™ Người này hiện đang:
Level: Tổng điều hành
Danh vọng:758


Tổng điều hành

Regulus™

Tổng điều hành

http://itk35.tk
Giới tính : Nam
Đến từ : ...
Join : 06/11/2009
Bài gửi : 758
HUMOR : Nghe nhạc.. Computer

Thú cưng
.:

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
hoho.. như vậy là ôg thiếu 1 ước là chính nó nữa chi Smile)
tui nhớ hình như vi dụ số 25
ước là 1 + 5 + 10 + 25 = 41 ...
suy ra 25 cũng là số đạt yêu cầu
bài này nếu khoa học thì xài function hay procedure ji cũng dc... CT chính nhìn đẹp Smile)




[center]
&lt;font size=10&gt;Tin học là phải tin mới học&lt;/font size&gt;

Copy- Paste -&gt; Copy- Paste-Hiểu-Đánh giá-Phát triển Cải tiến.
&lt;br&gt;


Email: plkhanhhai1991@gmail.com
k35104017@student.hcmup.edu.vn


Thu Jan 14, 2010 8:54 pm

Userkim_o Người này hiện đang:
Level: Thành Viên Xây Dựng
Danh vọng:148


Thành Viên Xây Dựng

kim_o

Thành Viên Xây Dựng

Giới tính : Nam
Đến từ : An Giang
Join : 12/11/2009
Bài gửi : 148

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
oh, thì dẹp thui chứ k gọn gàng và dễ huểu như t đâu... tất nhiên là t biết còn 1 ước là chính nó nhưng trong vd: trong bài thi hình như bỏ đi ước là chính nó, nên t mới làm vậy. chứ k thì cho nó chạy tới a[i] luôn...



Fri Jan 15, 2010 11:52 pm

Userhecator Người này hiện đang:
Level: Thành Viên Danh Dự
Danh vọng:513


Thành Viên Danh Dự

hecator

Thành Viên Danh Dự

Giới tính : Nam
Join : 07/11/2009
Bài gửi : 513

Thú cưng
.:

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
cái này mình không dám bình luận chỉ thắc mắc
tại sao nó chỉ có ước tới n/2 hay là n( như vậy nếu tổng ước là chẳn nhưng cộng thêm ước chính nó lại là số đó lẻ vd:
U(63) =1+ 3+ 7 +9 +21 =41 lẻ nhưng nếu U(63)=1+3+7+9+21+63=104 chẳn
Vậy đâu là đúng ?
@regulus 10 đâu là ước của 25 đâu



Sat Jan 16, 2010 9:49 am

UserRegulus™ Người này hiện đang:
Level: Tổng điều hành
Danh vọng:758


Tổng điều hành

Regulus™

Tổng điều hành

http://itk35.tk
Giới tính : Nam
Đến từ : ...
Join : 06/11/2009
Bài gửi : 758
HUMOR : Nghe nhạc.. Computer

Thú cưng
.:

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
U(63)=1+3+7+9+21+63=104 chẳn
Cái này là đúng đó big...
Very Happy:D
hiohihi.... nhầm về ước
U25=1 + 5 + 25 = 31 lẻ .. hihi
Theo thuật toán tối ưu hóa tìm Ước thì các ước bé hơn nó chỉ chạy tới n/2 thôi...
hihihi.....




[center]
&lt;font size=10&gt;Tin học là phải tin mới học&lt;/font size&gt;

Copy- Paste -&gt; Copy- Paste-Hiểu-Đánh giá-Phát triển Cải tiến.
&lt;br&gt;


Email: plkhanhhai1991@gmail.com
k35104017@student.hcmup.edu.vn


Sun Jan 17, 2010 12:39 pm

User—» Ñärµ «— Người này hiện đang:
Level: Thành Viên Chuẩn
Danh vọng:47


Thành Viên Chuẩn

—» Ñärµ «—

Thành Viên Chuẩn

Join : 11/11/2009
Bài gửi : 47

Bài gửiTiêu đề: Re: Bài giải thi pascal

 
s=0 phải đặt đầu vòng lặp.(vòng lặp tính tổng ước)



Today at 10:57 am

UserSponsored content Người này hiện đang:
Level:
Danh vọng:



Sponsored content

Bài gửiTiêu đề: Re: Bài giải thi pascal

 


 

Bài giải thi pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
ITK35Zone :: Diễn Đàn Dân Chủ :: Tám chuyện lớp-
 
Free forum | Khoa học | Đại học | © phpBB | Free forum support | Liên hệ | Report an abuse | Create your own blog