Вычислить бесконечную сумму с заданной точностью Ʃ>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