Вычисление факториала.

slavyan29

Вычислить приближенное значение функции:Значения x, n вводятся с клавиатуры.
5 ответов

slavyan29

Я вот попытался решить, но сомневаюсь что правильно. Проверьте.
INPUT x
INPUT n
p = 1
FOR i = 1 TO n
p = ((-1) ^ n) * ((x ^ (2 * n)) / (2 * n))
p = p * i
NEXT i
PRINT "faktorial="; p; "pri x="; x; "i pri n="; n
END


slavyan29

В другой теме мне отвечали на этот вопрос но неправильно, там ненужно было выбирать между градусами и радианами, а написать программу используя GOTO...IF...THE...ELSE
для удобства же это. ну вычисляй в радианах раз так охота.
INPUT "vvedite x"; x
rezult = 1
FOR i = 1 TO 20
    fkt = 1
    FOR j = 2 TO 2 * i
        fkt = fkt * j
    NEXT
    rezult = rezult + (-1) ^ i * ((x ^ (2 * i)) / fkt)
NEXT
PRINT rezult


slavyan29

softmob, непойму где n. его ведь тоже вводить надо. и я попробовал ввести х например 2. выходит ошибка "Переполнение"


slavyan29

INPUT "vvedite x"; x
INPUT "vvedite n"; n
rezult = 1
FOR i = 1 TO n
    fkt = 1
    FOR j = 2 TO 2 * i
        fkt = fkt * j
    NEXT
    rezult = rezult + (-1) ^ i * ((x ^ (2 * i)) / fkt)
NEXT
PRINT rezult


slavyan29

softmob, спасибо огромное, теперь вроди нормально выводит)