Написать программу, которая бы вычисляет y=e^x или y=expx с желаемой точностью — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DO
    CLS
    sum = 0
    INPUT "ishem znachenie y=exp(x). vvedite x="; x
    INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
    FOR i = 0 TO n
        f = 1
        FOR j = 1 TO i
            f = f / j
        NEXT
        sum = sum + x ^ i * f
    NEXT
    PRINT "result="; sum
    PRINT "calculate machine ="; EXP(x)
    INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"

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

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

Leave a Comment