Опубликовано 5 лет назад по предмету Информатика от dashabog0015

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

Ответ

Ответ дан Аккаунт удален

Sub MyTest()
    Dim a As Variant, i As Integer
    a = Range("A1:B5")
    For i = 1 To 5
        Cells(i, 3) = S(a(i, 1), a(i, 2))
    Next i
End Sub

Function S(ByVal x As Double, ByVal y As Double) As Double
    Dim i As Integer
    If x < y Then
        S = 0
        For i = 1 To 20
            S = S + x ^ i * y ^ (i + 1)
        Next i
    ElseIf x > y Then S = (x * y) ^ 2
    Else: S = x * x + y * y
    End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5
1. Ответ
  
  Ответ дан dashabog0015
  
  а по-другому нельзя?примерно так
  Sub Zad2()
  Dim x As Single, y As Single, i As Integer, n As Integer
  Dim s As Single
  
  n = 0
  s = 0
  
  y = 5
  For 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 x
  n = n + 1
  Cells(8 + n, 2) = y
  Cells(8 + n, 1) = x
  Cells(8, 1) = "x="
  Cells(8, 2) = "y="
  Cells(8, 3) = "s="
  End Sub
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Да можно по-разному, но почему я должен вдумываться в Ваш код и искать там ошибки, дав свой?
3. Ответ
  
  Ответ дан dashabog0015
  
  Я не прошу искать ошибки. Мне нужен код такой, как у меня, но правильный.
4. Ответ
  
  Ответ дан Аккаунт удален
  
  Тогда надо было его привести в вопросе и попросить исправить
5. Ответ
  
  Ответ дан Аккаунт удален
  
  Либо, написать по его образцу. А так, извините, получить решение, а потом начинать вместо "спасибо" свои хотелки демонстрировать - это некрасиво (я выбрал слово помягче).

Самые новые вопросы

Математика - 4 года назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 4 года назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 4 года назад

Почему япония - лидер по выплавке стали?

Математика - 4 года назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 4 года назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

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

Информация