Нужно решить методом простой итерации в QB
x+cosx+x^2=3.257
Есть 2 идеи:
Код:
FOR x = 0 TO 100 STEP .001
y = x+cos(x)+x*x
IF ABS(y) < .001 THEN PRINT x
NEXT
а вот тут правильно поставила DO?когда запускаю после точности,зависает((
Код:
CLS
PRINT"a"
input"a";a
PRINT"b"
input"b";b
PRINT"e"
input"e";e
def fny(x)=3.257-cos(x)-x*x
Do
x1=a
x0=abs(x1)
x1=fny(x0)
loop until abs(x0-x1)<=e
print x1
m=x1-3.257+cos(x)+x*x
print m
end