تقسیم سکه

[vafanezhad]

می خوام وقتی کاربر رو ی یه کامند کلیلک کرد
چاپ کنه که به چند روش میشه مبلغ 20ریال را با سکه های 1و2و5و10 ریالی تقسیم(خرد) کرد
حال های ممکن را هم چاپ کند
به عنوان مثال:
10 10
5 5 5 5
10 5 5
10 2 2 2 2 2
با استفاده از حلقه های for,do while
ممنون میشم اگه جوابمو بدید چون که پروژه ی مدرسه است و هر چه زودتر باید تحویل بدم.

[میلاد علوی]

ای گفتی منم این سوالو دارم اما فکر کنم خیلی سخته چون هیچ کس جواب نمیده

[shrtwoc2]

for i=0 to 10
for j=0 to 5
for k=0 to 2
for m=0 to 1
if i+j+k+m=20 then
print i,j,k,m
end if
next m
next k
next j
next i

[saber67]

for i=0 to 10
for j=0 to 5
for k=0 to 2
for m=0 to 1
if i+j+k+m=20 then
print i,j,k,m
end if
next m
next k
next j
next i


اون وقت این کد رو خودت اجرا نکردی ببینی اشتباهه!!!؟

یه تکست باکس بزارین رو فرم تون و خاصیت Multiline رو براش True کنین و کد زیر رو کپی کنین تو برنامه

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Text1.Text = vbNullString
For i = 0 To 2
For j = 0 To 4
For k = 0 To 10
For m = 0 To 20
If i * 10 + j * 5 + k * 2 + m * 1 = 20 Then
Text1.Text = Text1.Text & m & " Yek " & k & " Dow " & j & " Panj " & i & " Dah" & vbNewLine
End If
Next m
Next k
Next j
Next i
End Sub