Вычислить выражение p=a*(a-n)*(a-2*n)*...*(a-n2) - VB

Узнай цену своей работы

Формулировка задачи:

Даны действительное число a, натуральное число n. Вычислить: p=a*(a-n)*(a-2*n)*...*(a-n2) Ответ нужен на языке Basic Заранее спасибо

Решение задачи: «Вычислить выражение p=a*(a-n)*(a-2*n)*...*(a-n2)»

textual
Листинг программы
Function p#(a#, n&)
Dim i#
  p = a
  For i = n To n * n Step n
    p = p * (a - i)
  Next
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5