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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DO
CLS
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"

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

Leave a Comment