پیدا کردن جواب یک سل از ضرب دو مجموعه اعداد

[jahanbin95]

سلام دوستان
من می*خواهم برنامه ای بنویسم که برای یک سل از حاصل ضرب n=1to20 و d=1to30 جواب را برای من پیدا کند و اگر جواب نداشت نزدیک*ترین جواب کوچک را بدهد و اولویت به این است که در حد امکان d بزرگتر باشد مثلاً اگر 40 بود جواب بدهد n=2 و d=20
لطفاً اگر کسی میدونده راهنمایی کنه
خیلی ممنون

Sent from my Xperia V using Tapatalk

[rasools13]

سلام
لطفا یک فایل نمونه پیوست کنید
یا بیشتر توضیح دهید

[jahanbin95]

سلام
لطفا یک فایل نمونه پیوست کنید
یا بیشتر توضیح دهید

این نمونه کدی هستش که خودم نوشتم ،در این کد اول مقدار n رو تغییر میده تا به جواب برسه ،اگه جواب نداشت می*ره d رو کم می*کنه ،البته می*خوام دستور رو دو شرطی کنم یعنی دوتا شرط رو همزمان بررسی کنه

Sub mil()
d = 30
n = 20

For i = 1 To 21
If Cells(1, 1) > Cells(2, 2) Then

n = n - 1

Cells(1, 1) = n * d
Else

Cells(3, 3) = d
Cells(4, 3) = n

Cells(1, 1) = n * d
End If
Next i

If n = 0 Then

For j = 1 To 30
n = 20

If Cells(1, 1) > Cells(2, 2) Then

d = d - 1

Cells(1, 1) = n * d
Else
Cells(3, 3) = d
Cells(4, 3) = n
d = d - 1
Cells(1, 1) = n * d
End If

Next j
Else

End If

End Sub


Sent from my Xperia V using Tapatalk

[rasools13]

لطفا با فایل پیوست بفرستین

[jahanbin95]

لطفا با فایل پیوست بفرستین

متاسفانه برنامه Tapatalk من مشکل داره فایل رو برای پیوست میزنم آپلود نمیشه

Sent from my Xperia V using Tapatalk