تعداد حالات تبدیل 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 فاکتوریل
خوب بعد از فهمیدن مسئله و فرمول نوشتن برنامش کار سختی نباید باشه