ITK35Zone
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
ITK35Zone


 
Trang ChínhTrang Chính  Latest imagesLatest images  Đăng kýĐăng ký  Đăng Nhập  
Chào mừng các bạn đã đến với diễn đàn ITK35Zone - Lớp CNTT K35 Trường Đại học Sư phạm TP.HCM
Hiện diễn đàn đang bị lỗi kĩ thuật, mong mọi người thông cảm. BQT sẽ cố gắng khắc phục trong thời gian sớm nhất...

Share | 

 

 Bài giải thi pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Bài giải thi  pascal EmptyWed Jan 13, 2010 9:39 pm

kim_o
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.



Bài giải thi  pascal EmptyWed Jan 13, 2010 10:43 pm

Regulus™
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



Bài giải thi  pascal EmptyWed Jan 13, 2010 10:52 pm

kim_o
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 ý



Bài giải thi  pascal EmptyThu Jan 14, 2010 12:35 am

Regulus™
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)



Bài giải thi  pascal EmptyThu Jan 14, 2010 8:54 pm

kim_o
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...



Bài giải thi  pascal EmptyFri Jan 15, 2010 11:52 pm

hecator
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



Bài giải thi  pascal EmptySat Jan 16, 2010 9:49 am

Regulus™
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.....



Bài giải thi  pascal EmptySun Jan 17, 2010 12:39 pm

—» Ñärµ «—
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

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



Bài giải thi  pascal Empty

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 | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất