1. Главная
  2. Библиотека
  3. Программирование
  4. Создание модулей. Процедурный тип параметров. Разработать модуль, содержащий указанную процедуру. Написать тестирующую про...

Создание модулей. Процедурный тип параметров. Разработать модуль, содержащий указанную процедуру. Написать тестирующую программу.

«Создание модулей. Процедурный тип параметров. Разработать модуль, содержащий указанную процедуру. Написать тестирующую программу.»
  • Программирование

Условие:

Создание модулей. Процедурный тип параметров. 

Разработать модуль, содержащий указанную процедуру. Написать тестирующую программу.

Составить подпрограмму-процедуру ROOT отыскания минимального положительного корня уравнения f(x)=0 c точностью методом деления пополам отрезка, содержащего корень.

В основной программе использовать процедуру для решения уравнений x2+sin(x/2)=0 и arctg(x)+x=1. Точность вычисления вводить с клавиатуры.

Решение:

unit Unit1;

interface

Type

Func1=Function(x:extended):extended;

Procedure Root(f:func1; xn,xk,e:real; var x:extended);

implementation

Procedure root(f:func1; xn,xk,e:real; var x:extended);

Var

a,b,c:real;

Begin

a:=xn;

b:=xk;

Repeat

c:=(a+b)/2; //разбиваем отрезок пополам

If F(a)*F(c)=0 Then b:=c //если в начале и середине знаки функции разные,

//то конец отрезка перемещаем в середину

Else a:=c; //если в середине и в конце знаки функции разные,

//то начало отрезка перемещаем...

Похожие задачи

Не нашел нужную задачу?

Воспользуйся поиском

AI помощники

Выбери предмет

E
S
А
Б
В
Г
Д
Е
Ж
З
И
К
Л
М
Н
О
П
Р
С
Т
У
Ф
Х
Ц
Ч
Э
Я