Разработка алгоритма программы на алгоритмическом языке

 

Текст программы

 

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мм.