Задача для решения в электронных таблицах Excel с помощью VBA

style_emoticons/default/smile13.gif

Помогите помогите решить задачу.

Условие:Определить, является ли заданная матрица Х-ого порядка магическим квадратом, т.е. такой, в которой сумма элементов во всех столбцах и строках одинакова.

6 1 8

7 5 3

2 9 4

style_emoticons/default/smile11.gif

Заранее спасибо

 

Киса, сколько Вам нужно для полного счастья?

Пилите гири, они золотые.

Вы вошли не в ту дверь! style_emoticons/default/smile7.gif

2 Касатка style_emoticons/default/smile20.gifstyle_emoticons/default/smile1.gif

привет Киса

сори что так поздно сегодня только активизировался

может поможит алгоритм примерно такой

style_emoticons/default/smile19.gif

Function magicsq()

Dim fas()

Dim s, c As Integer

Dim log As Boolean

Dim sumsi()

Dim sumsc()

Dim f

c = InputBox("введите колличество столбцов массива")

s = InputBox("введите колличество строк массива")

ReDim fas(s, c)

ReDim sumsi(s)

ReDim sumsc©

Dim i As Integer

Dim j As Integer

log = False

If log = False Then

f = 0

For i = 1 To s

For j = 1 To c

f = f + sheet1.Cells(i, j)

Next j

sumsi(i) = f

f = 0

Next i

End If

If log = False Then

f = 0

For j = 1 To c

For i = 1 To s

f = f + sheet1.Cells(i, j)

Next i

sumsc(j) = f

f = 0

Next j

End If

If log = False Then

f = 0

For j = 1 To c

For i = 1 To s

If sumsc(j) = sumsi(i) Then

Else

f = f + 1

End If

Next i

Next j

End If

If f = o Then

log = True

End If

If log = True Then

MsgBox ("пахнет магией")

Else

MsgBox ("не пахнет")

End If

End Function

style_emoticons/default/smile9.gif

Помогите плз решить задачку:

Два игрока играют в следующую игру. Перед ними лежат две кучки камней, в первой из которых 5, а во второй – 3 камня. У каждого игрока неограниченно много камней. Игроки ходят по очереди. Ход состоит в том, что игрок или удваивает число камней в какой-то куче, или добавляет 4 камня в какую-то кучу. Выигрывает игрок, после хода которого в одной из куч становится не менее 22 камней. Кто выигрывает при безошибочной игре обоих игроков – игрок, делающий первый ход, или игрок, делающий второй ход? Как должен ходить выигрывающий игрок? Ответ обоснуйте.