Кол-во решений уравнения 10xy + y^3 = z^2

17.06.2010, 22:50. **Показов** 1204. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Здравствуйте, форумчане! Итак, задача по VBA в Excel: Найти кол-во положительных целочисленных решений уравнения 10xy + y^3 = z^2, удволетворяющих условиям x<=100, y<= 50.

Мне непонятно, как выполнить условие целочисленности...

Заранее спасибо за помощь.

@analyst · 17.06.2010, 23:00

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

Здравствуйте, форумчане! Итак, задача по VBA в Excel: Найти кол-во положительных целочисленных решений уравнения 10xy + y^3 = z^2, удволетворяющих условиям x<=100, y<= 50.

Мне непонятно, как выполнить условие целочисленности...

Заранее спасибо за помощь.

Например

Visual Basic

1
2
3

If число-Int(число) =0 then
msgbox("Целочисленный корень уравнения - " & число)
end if

@аналитика · 18.06.2010, 00:05

Visual Basic

Sub Макрос5()
   For x = 1 To 100
      For y = 1 To 50
         l = 10 * x * y + y ^ 3
         If Int(Sqr(l)) = Sqr(l) Then
            n = n + 1
            Cells(n, 1) = x
            Cells(n, 2) = y
            Cells(n, 3) = l
            Cells(n, 4) = Sqr(l)
         End If
      Next y
   Next x
   MsgBox n
End Sub

18.06.2010, 16:26

Спасибо большое! Очень помогли в подготовке к экзамену

PUMPkeen
		1
	Кол-во решений уравнения 10xy + y^3 = z^2 17.06.2010, 22:50. Показов 1204. Ответов 3 Метки нет (Все метки) Здравствуйте, форумчане! Итак, задача по VBA в Excel: Найти кол-во положительных целочисленных решений уравнения 10xy + y^3 = z^2, удволетворяющих условиям x<=100, y<= 50. Мне непонятно, как выполнить условие целочисленности... Заранее спасибо за помощь.

PUMPkeen
	18.06.2010, 16:26	4
	Спасибо большое! Очень помогли в подготовке к экзамену