تعداد حالات تبدیل 100 به دسته های 20 و 10 و 5 تایی

[sat4iran]

من میخوام یه قطعه برنامه بنویسم که تعداد حالات تبدیل 100 به دسته های 20 و 10 و 5 تایی رو نشون بده؟
مثلا:
20 10 5
-------------------------
5 0 0
4 0 4
4 1 2
و همینطور تا آخر
کسی هست کمک کنه؟؟؟؟؟؟/

[حسین شهریاری]

سلام

دوستان ماکه چیزی متوجه نشدیم!!!!!!!

عزیزم میشه کمی بیشتر توضیح بدین؟؟؟؟؟؟

[دلفــي]

من میخوام یه قطعه برنامه بنویسم که تعداد حالات تبدیل 100 به دسته های 20 و 10 و 5 تایی رو نشون بده؟
مثلا:
20 10 5
-------------------------
5 0 0
4 0 4
4 1 2
و همینطور تا آخر
کسی هست کمک کنه؟؟؟؟؟؟/




procedure TForm1.Button1Click(Sender: TObject);
var X,Y,Z,A,i,j:Integer;
T : String;
begin
X := 0;
Y := 0;
Z := 5;
A := 100;
i := 0;
T := IntToStr(X)+ ' , '+IntToStr(Y)+ ' , '+IntToStr(Z);
ListBox1.Items.Add(T);
while (Z > 0) do
begin
Z := Z-1;
i := i+1;
Y := (2*i);
j := 0;
x := 0;
T := IntToStr(X)+ ' , '+IntToStr(Y)+ ' , '+IntToStr(Z);
ListBox1.Items.Add(T);
while (Y > 0) do
begin
Y := Y - 1;
j := j+1;
X := 2*j;
T := IntToStr(X)+ ' , '+IntToStr(Y)+ ' , '+IntToStr(Z);
ListBox1.Items.Add(T);
end;
end;
end;


خروجی :

5و0و0
4و2و0
4و1و2
4و0و4
3و4و0
3و3و2
.
.
.
0و0و20

[Hadi_Fayyaz]

سلام دوست عزيز
از برنامه زير هم ميتوني استفاده كني

procedure TForm1.Button1Click(Sender: TObject);
Var
Result,twenty,ten,five:integer;
begin
Memo1.Clear;
Memo1.Lines.Add('5 10 20');
Memo1.Lines.Add('______________________');
for twenty:=0 to 5 do
Begin
for ten:=0 to 10 do
Begin
for five:=0 to 20 do
Begin
result:=Five*5+Ten*10+twenty*20;
if result=100 then
Memo1.Lines.Add(IntToStr(five)+' , '+InttoStr(ten)+' , '+IntToStr(twenty));
End;
End
End;
End;
موفق باشي

[nima_8m]

من میخوام یه قطعه برنامه بنویسم که تعداد حالات تبدیل 100 به دسته های 20 و 10 و 5 تایی رو نشون بده؟
مثلا:
20 10 5
-------------------------
5 0 0
4 0 4
4 1 2
و همینطور تا آخر
کسی هست کمک کنه؟؟؟؟؟؟/

این یک مسئله آمار است که به روش ترتیب (جایگشت های rتای از nشی متمایز)فرمولش
nفاکتوریل تقسیم بر n منهای r فاکتوریل
خوب بعد از فهمیدن مسئله و فرمول نوشتن برنامش کار سختی نباید باشه