Текст программы
CLS
OPEN "D:\Yp_nol_1.txt" FOR OUTPUT AS #1
PRINT "Численное решение уравнения 5^x+3*x=0"
PRINT "Метод дихотомии"
PRINT #1, "Численное решение уравнения 5^x+3*x=0"
PRINT #1, "Метод дихотомии"
PRINT "Выполнил студент "
PRINT "Вариант N 2"
PRINT #1, "Выполнил студент "
PRINT #1, "Вариант N 2"
10 PRINT "Для выполнения расчетов нажмите <ENTER>"
PRINT "Для окончания расчетов введите любую цифру"
INPUT kk
IF kk <> 0 THEN 40
PRINT: PRINT #1,
INPUT "Введите нижнюю границу интервала A="; a
PRINT #1, " Нижняя граница интервала A="; a
INPUT "Введите верхнюю границу интервала B="; b
PRINT #1, "Верхняя граница интервала B="; b
INPUT "Задайте погрешность результата E="; E
PRINT #1, "Допустимая погрешность результата E="; E
n = 0
20 x = (a + b) / 2
f = 5 ^ x + 3*x
IF f = 0 THEN 30
IF f < 0 THEN a = x ELSE b = x
n = n + 1
PRINT n; " x="; x; TAB(20); "f="; f
PRINT #1, n; " x="; x; TAB(20); "f="; f
IF ABS(b - a) < E THEN 30
IF n > 30 THEN 30
GOTO 20
30 PRINT: PRINT "Корень уравнения X="; x
PRINT #1, "Корень уравнения X="; x
f = 5^x+3*x
PRINT "f=5^x=3*x="; f
PRINT #1, "f=5^x=3*x ="; f
GOTO 10
40 CLOSE #1
END
Результаты выполнения программы
Численное решение уравнения 5^x+3*x=0.
Метод дихотомии
Выполнил студент Борбат Иван Андреевич
Вариант N 2
Нижняя граница интервала A=-2
Верхняя граница интервала B=0
Допустимая погрешность результата E= 0.000001
1 x= 0 f=-2.8
2 x= 0 f=-1.0528
3 x= 0 f=-0.08126
4 x= 0 f= 0.4428
5 x= -0.125 f= 0.177
6 x= -0.1875 f= 0.04698
7 x= -0.2188 f=-0.01735
8 x= -0.2188 f= 0.01476
9 x= -0.2266 f=-0.00131
10 x= -0.2266 f= 0.00672
11 x= -0.2285 f= 0.0027
12 x= -0.2295 f= 0.000697
13 x= -0.23 f=-0.000307
14 x= -0.23 f= 0.000195
15 x= -0.2301 f=-5.6E-5
16 x= -0.2301 f= 6.9E-5
17 x= -0.2301 f= 7.0E-6
18 x= -0.2301 f=-2.5E-5
19 x= -0.2301 f=-9.0E-6
20 x= -0.2301 f=-1.0E-6
Корень уравнения X= =-0.2301
f=x^3+x-5=-1.0E-6
Задание №2
Математическая формулировка задачи
Удельная сила осадки прямоугольной полосы определяется по формуле
,
где , – ширина и высота полосы соответственно, мм; – предел текучести материала, МПа; – коэффициент трения.
Определить, как влияет трение () и высота полосы на удельную силу осадки.
Исходные данные: = 600 МПа; = 160 мм; = 0,05¼0,35 = 0,05; = 2¼8 мм = 1мм.