28 lines
543 B
Text
28 lines
543 B
Text
Function SolveForZ(x As Integer) As Integer
|
|
Dim As Integer a, b, c, d, e, f, g, h, z
|
|
For z = 0 To 20
|
|
e = x + 11
|
|
f = 11 + (x+z)
|
|
g = (x+z) + 4
|
|
h = 4 + z
|
|
If e + f = 40 Then
|
|
c = f + g
|
|
d = g + h
|
|
a = 40 + c
|
|
b = c + d
|
|
If a + b = 151 Then Return z
|
|
End If
|
|
Next z
|
|
Return -1
|
|
End Function
|
|
|
|
Dim As Integer x = -1, z = 0
|
|
Do
|
|
x = x + 1
|
|
z = SolveForZ(x)
|
|
Loop Until z >= 0
|
|
|
|
Print "X ="; x
|
|
Print "Y ="; x + z
|
|
Print "Z ="; z
|
|
Sleep
|