Сделать программу вычисления функции S для 5 пар чисел x и

а по-иному нельзя?приблизительно такSub Zad2()Dim x As Single, y As Single, i As Integer, n As IntegerDim s As Singlen = 0s = 0y = 5For x = 1 To 5 If x < y Then For i = 1 To 20 s = s + (x ^ i) * (y ^ (i + 1)) Cells(9 + n, 3) = s Next i End If If x > y Then s = (x ^ 2) * (y ^ 2) Cells(10 + n, 3) = s End If If x = y Then s = (x ^ 2) + (y ^ 2) Cells(11 + n, 3) = s End If y = y - 1 Next xn = n + 1Cells(8 + n, 2) = yCells(8 + n, 1) = xCells(8, 1) = "x="Cells(8, 2) = "y="Cells(8, 3) = "s="End Sub

Да можно по-разному, но почему я должен вдумываться в Ваш код и искать там ошибки, дав собственный?

Я не прошу искать оплошности. Мне нужен код таковой, как у меня, но верный.

Тогда надобно было его привести в вопросе и попросить исправить

Или, написать по его образчику. А так, извините, получить решение, а позже начинать вместо "спасибо" свои хотелки показывать - это неприглядно (я выбрал слово помягче).

а по-иному нельзя?примерно такSub Zad2()Dim x As Single, y As Single, i As Integer, n As IntegerDim s As Singlen = 0s = 0y = 5For x = 1 To 5 If x < y Then For i = 1 To 20 s = s + (x ^ i) * (y ^ (i + 1)) Cells(9 + n, 3) = s Next i End If If x > y Then s = (x ^ 2) * (y ^ 2) Cells(10 + n, 3) = s End If If x = y Then s = (x ^ 2) + (y ^ 2) Cells(11 + n, 3) = s End If y = y - 1 Next xn = n + 1Cells(8 + n, 2) = yCells(8 + n, 1) = xCells(8, 1) = "x="Cells(8, 2) = "y="Cells(8, 3) = "s="End Sub

Да можно по-различному, но почему я обязан вдумываться в Ваш код и отыскивать там ошибки, дав собственный?

Я не прошу разыскивать оплошности. Мне нужен код таковой, как у меня, но верный.

Тогда надобно было его привести в вопросе и попросить поправить

Или, написать по его образчику. А так, извините, получить решение, а потом начинать вместо "спасибо" свои хотелки демонстрировать - это неприглядно (я избрал слово помягче).

а по-другому нельзя?примерно такSub Zad2()Dim x As Single, y As Single, i As Integer, n As IntegerDim s As Singlen = 0s = 0y = 5For x = 1 To 5 If x < y Then For i = 1 To 20 s = s + (x ^ i) * (y ^ (i + 1)) Cells(9 + n, 3) = s Next i End If If x > y Then s = (x ^ 2) * (y ^ 2) Cells(10 + n, 3) = s End If If x = y Then s = (x ^ 2) + (y ^ 2) Cells(11 + n, 3) = s End If y = y - 1 Next xn = n + 1Cells(8 + n, 2) = yCells(8 + n, 1) = xCells(8, 1) = "x="Cells(8, 2) = "y="Cells(8, 3) = "s="End Sub

Да можно по-различному, но почему я обязан вдумываться в Ваш код и разыскивать там оплошности, дав собственный?

Я не прошу отыскивать оплошности. Мне нужен код таковой, как у меня, но правильный.

Тогда надо было его привести в вопросе и попросить исправить

Либо, написать по его образчику. А так, извините, получить решение, а позже начинать заместо "спасибо" свои хотелки демонстрировать - это некрасиво (я выбрал слово помягче).