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
А
Б
В
Г
Д
Е
Ж
З
И
К
Л
М
Н
О
П
Р
С
Т
У
Ф
Х
Ц
Ч
Э
Я