Вычислить sh(x)= x+ (x^3/3!) + (x^5/5!) +(x^7/7!)+… +(X^(2n+1)/(2n+1)!) — QBasic(Бейсик)

DEFDBL A-Z   ' Все числа тип DOUBLE
  CLS    ' Очистка экрана
  INPUT "Vvedite X : ", x
  INPUT "Vvedite N : ", n
  Sh = x    ' начальное значение Sh
  FOR i = 3 TO n * 2 + 1 STEP 2   ' Цикл
      f = 1             ' Факториал
      FOR j = 1 TO n    ' Факториал
      f = f * j         ' Факториал
      NEXT              ' Факториал
    Sh = Sh + (x ^ i) / f            ' Значение
  NEXT
  PRINT "Otvet : "; Sh

Тестирование выполнено в программе QB64 ( Скачать )

Вычислить sh(x)= x+ (x^3/3!) + (x^5/5!) +(x^7/7!)+… +(X^(2n+1)/(2n+1)!) — QBasic(Бейсик)

Похожие записи/страницы:

Leave a Comment