менаундхлн ядекюрэ акнй яуелс

CLS
DO
CALL menu(p)

SELECT CASE p

CASE 1
DO
INPUT "(a,b)"; a, b
INPUT "eps="; e
LOOP WHILE F(a) * F(b) > 0
CALL dih(a, b, e, rdih)
PRINT "rdih - "; rdih
CASE 2
DO
INPUT "x0="; x
LOOP UNTIL ABS(F(x) * F2(x) / F1(x) ^ 2) < 1
CALL kas(x, e, rkast)
PRINT "rkast - "; rkast
SLEEP 10
CASE 3
INPUT "x0="; x
IF ABS(Fi1(x)) < 1 THEN
CALL iter(x, e, riter)
PRINT "riter - "; riter
ELSE
PRINT "fi1(x)="; Fi1(x);
PRINT " metod ne primenim"
END IF
SLEEP 10
CASE ELSE
PRINT "nevernij vvod"
SLEEP 10
END SELECT
LOOP UNTIL p = 4
END

FUNCTION F (X)
F = 1 / 4 * X ^ 3 + X - 1.25
END FUNCTION
FUNCTION Fi (X)
Fi = 1.25 - 1 / 4 * X ^ 3
END FUNCTION
FUNCTION Fi1 (X)
Fi1 = -3 / 4 * X ^ 2
END FUNCTION

SUB dih (a, b, e, rdih)
x = (b + a) / 2
DO
IF F(x) * F(a) < 0 THEN
b = x
ELSE
a = x
END IF
x = (b + a) / 2
LOOP UNTIL ABS(b - a) < e
rdih = (b + a) / 2
END SUB

FUNCTION F1 (X)
F1 = 3 / 4 * X ^ 2 + 1
END FUNCTION

FUNCTION F2 (X)
F2 = 6 / 4 * X
END FUNCTION

SUB kas (x, e, kast)
DO
x = x - F(x) / F1(x)

LOOP UNTIL ABS(F(x) / F1(x)) < e
kast = x
END SUB
SUB iter (x, e, riter)
k = 0
DO
x0 = x
x = Fi(x0)
k = k + 1
LOOP UNTIL ABS(x - x0) < e
riter = x
PRINT "k="; k
END SUB
SUB menu (p)
CLS
PRINT "1. dihotomia"
PRINT "2. kasatelnih"
PRINT "3. iteracii"
PRINT "4. vihod"
INPUT "viberite metod"; p
END SUB