Trang ChínhTrang Chính  PortalliPortalli  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  

Share | 
 

 Đề HSG 2007 câu 2 chia quà

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
TMK
Trợ lý Admin
Trợ lý Admin


Tổng số bài gửi : 5
Registration date : 10/12/2007

Bài gửiTiêu đề: Đề HSG 2007 câu 2 chia quà   Wed Jan 02, 2008 6:47 pm

Đề : chia m móm quà cho n học sinh ( từ 1..N ) học sinh đứng trước phải được chia nhiều hơn
VD m=5 ,n=4 thì một cách hợp lệ là 5 0 0 0 hoặc 4 1 0 0 còn 4 0 1 0 là ko hợp lệ
nhập m,n tìm tổng số cách chia ?
Thuật toán đệ quy rất ngắn ngọn
uses crt;
var n,m:byte;
Function PART(m,n:byte):longint ;
Begin
if ( (m=0)or(n=1) ) then PART:=1
else if(m<n) then PART:=PART(m,m)
else PART:=PART(m,n-1)+PART(m-n,n);
End;
begin
clrscr;
write('Nhap vao so phan thuong m: ');readln(m);
write('Nhap vao so hoc sinh n: ');readln(n);
write('So phuong an chia phan thuong: ',part(m,n));
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Đề HSG 2007 câu 2 chia quà
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
 :: Tin học :: Tin học trẻ không chuyên-
Chuyển đến