Вычислить бесконечную сумму с заданной точностью Ʃ>0 - QBasic
Формулировка задачи:
Писать условие не стал, сделал скрин, помогите пожалуйста...
Решение задачи: «Вычислить бесконечную сумму с заданной точностью Ʃ>0»
textual
Листинг программы
- CLS
- y= 'приближение
- GOSUB fact
- DO WHILE ABS(((-2)^i)/xx)>y
- GOSUB faсt
- sum=sum+((-2)^i)/xx
- i=i+1
- LOOP
- PRINT sum
- END
- fact:
- xx=1
- FOR j=1 TO i
- xx=xx*j
- NEXT j
- IF xx=0 THEN xx=xx+1
- RETURN
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
