Как написать код алгебраического уравнения, на перебор? - VB
Формулировка задачи:
Добрый вечер!
Вроде бы задание со школьной Олимпиады, очень интересно — пригодится в жизни. Подскажите, пожалуйста, принцип кода — для перебора всех вариантов решений уравнения, так чтобы компьютер напечатал результаты:a,b,c is integer number ab+bc+ac=8(a+b+c)
Решение задачи: «Как написать код алгебраического уравнения, на перебор?»
textual
Листинг программы
- Sub Willi()
- Dim a As Integer, b As Integer, c As Integer, k As Integer
- For a = 1 To 64
- For b = 1 To 64
- For c = 1 To 64
- If a * b + b * c + a * c = 8 * (a + b + c) Then
- k = k + 1
- ActiveDocument.Range.InsertAfter k & ") a=" & a & "; b= " & b & "; c= " & c & "." & vbCr
- End If
- Next
- Next
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
