Задача на VBA Диофантово уравнение

[Maxs]

17.Задано Диофантово уравнение вида x2+y2 +z2 = 3*x*y*z. Вывести возможные решения до 10.
Подскажите плз. хоть алгоритм. Или как находить возможные решения?

[EducatedFool]

Sub test()
    e = 0.000001
    For x = 0 To 10 Step 0.05
        For y = 0 To 10 Step 0.05
            For z = 0 To 10 Step 0.05
                If Abs(x ^ 2 + y ^ 2 + z ^ 2 - 3 * x * y * z) < e Then
                    Debug.Print "x = " & x, "y = " & y, "z = " & z
                    i = i + 1: Cells(i, 1) = x: Cells(i, 2) = y: Cells(i, 3) = z
                End If
            Next z
        Next y
        DoEvents
    Next x
End Sub

Если программа будет работать не в Excel, убери строку i = i + 1: Cells(i, 1) = x: Cells(i, 2) = y: Cells(i, 3) = z

Вот результат:

0	0	0
0,7	2,8	3,5
0,7	3,5	2,8
0,7	3,5	4,55
0,7	4,55	3,5
0,75	1,5	1,5
0,75	3,75	6
0,75	6	3,75
0,75	6	9,75
0,75	9,75	6
1	1	1
1	1	2
1	2	1
1	2	5
1	5	2
1,1	1,1	2,75
1,1	2,75	1,1
1,5	0,75	1,5
1,5	1,5	0,75
1,5	1,5	6
1,5	6	1,5
1,8	1,8	9
1,8	9	1,8
2	1	1
2	1	5
2	5	1
2,75	1,1	1,1
2,8	0,7	3,5
2,8	3,5	0,7
3,5	0,7	2,8
3,5	0,7	4,55
3,5	2,8	0,7
3,5	4,55	0,7
3,75	0,75	6
3,75	6	0,75
4,55	0,7	3,5
4,55	3,5	0,7
5	1	2
5	2	1
6	0,75	3,75
6	0,75	9,75
6	1,5	1,5
6	3,75	0,75
6	9,75	0,75
9	1,8	1,8
9,75	0,75	6
9,75	6	0,75

[Maxs]

Спасибо!
Вот к этой задача я даже не знаю как подступиться:
Вывести все варианты размена 43 рублей монетами по 1, 2, 5, 10 рублей. Определить количество вариантов.

[EducatedFool]

Здесь уже встречались твои задачи.

Причём человек, создавший ту тему, как и ты, из г. Кирова.
Встреться с ним, и обсуди решение Ваших задач.
Или ту тему тоже ты создал?

Вот к этой задача я даже не знаю как подступиться

Так на то тебе и дали эти задачи, чтобы ты начал хоть немного, но думать.
Если есть желание разобраться - пытайся решить сам, и выкладывай свои наработки. Если такого желания нет - готовься платить...

[Maxs]

Сообщение от EducatedFool

Здесь уже встречались твои задачи.

Причём человек, создавший ту тему, как и ты, из г. Кирова.
Встреться с ним, и обсуди решение Ваших задач.
Или ту тему тоже ты создал?


Так на то тебе и дали эти задачи, чтобы ты начал хоть немного, но думать.
Если есть желание разобраться - пытайся решить сам, и выкладывай свои наработки. Если такого желания нет - готовься платить...

Видимо по тому же учебнику учатся. Осталось решить только эту задачу. Вот мои наработки:
m - массив монет
v(vi,j) - это массив вариантов. vi - номер варианта. j - это монета

Dim m(4), i,v(,),vi,j As Integer
m(1) = 1
m(2) = 2
m(3) = 5
m(4) = 10
i=0
vi=1
j=0
Do
Do
j=j+1
Redim v(vi,j)
Randomize
v(vi,j)=m(3*Rnd()+1)
i=i+v(vi,j)
if i>43 then
i=i-v(vi,j)
Loop While i<=43
vi=vi+1
j=0
ш=0
Loop While Как тут написать, пока варианты есть?

Я вобще запутался. Не знаю как перебирать варианты. Сделал рандомно.

[Anatole]

Сделал рандомно.

При чём здесь случайности, если твоя задача подчиняется строгой математической зависимости:
n1*1+n2*2+n3*5+n4*10=43
где n1,n2,n3,n4 - количество монет стоимостью соответственно 1, 2, 5, 10 руб. при чем изменяются они от 0 до ... (верхний предел для каждой из монет найдёш сам). Вот и перебирай варианты.

[Maxs]

Сообщение от Anatole

При чём здесь случайности, если твоя задача подчиняется строгой математической зависимости:
n1*1+n2*2+n3*5+n4*10=43
где n1,n2,n3,n4 - количество монет стоимостью соответственно 1, 2, 5, 10 руб. при чем изменяются они от 0 до ... (верхний предел для каждой из монет найдёш сам). Вот и перебирай варианты.

Получилось! Спасибо за подсказку!

Dim m(4), i, j, k, l, kol, o As Integer
m(1) = 1
m(2) = 2
m(3) = 5
m(4) = 10
kol = 0
For i = 0 To 43
For j = 0 To 21
For k = 0 To 8
For o = 0 To 4
If m(1) * i + m(2) * j + m(3) * k + m(4) * o = 43 Then
kol = kol + 1
Debug.Print m(1) * i; " + "; m(2) * j; " + "; m(3) * k; " + "; m(4) * o
Else
End If
Next o
Next k
Next j
Next i
Debug.Print kol