Отдам все баллы,только помогите....напишите программу паскаль для вычисления данного
Отдам все баллы,только помогите....
напишите программку паскаль для вычисления данного образца
X^2=5cos(x-1)
Никита Бердибеков
Написать программку для нахождения Икс? Каким способом?
1 ответ
Дарина Гнушева
Определим функцию f (x) = x^2 - 5cos(x-1); Необходимо отыскать ноль функции f (x) , т.е. значение х, при котором f(x) = 0;
f(x) обратится в 0 , если cos(x-1) gt; 0 =gt; - pi/2 lt; x lt; pi/2 =gt;
=gt; (2 - pi)/2 lt; x lt; (2 + pi)/2
Корня будет два. Определим интервал для первого корня.
Левая граница а = - 0,57, правая граница b = 1
Для второго корня левая граница а = 1, правая b = 2
корешки будем сыскать способом деления напополам.
Интервал [ a, b] делится напополам и определяется символ функции в этой точке, в зависимости от знака меняется левая либо правая граница интервала.
Программка будет последующей:
function f(x: real): real;
begin
f:=x*x-5*cos(x-1);
end;
главная программка
var a,b,c,eps: real;
k: integer;
a - начало промежутка, b - конец
begin
write('a = '); readln(a);
write('b = '); readln(b);
if f(a)*f(b)lt;0 then
begin
write('точность вычислений eps: '); readln(eps);
k:=1;
while абс(a-b)gt;eps do
begin
c:=(a+b)/2;
if f(c)lt;gt;0 then
begin
if f(c)*f(b)lt;0 then
a:=c
else
b:=c
end;
k:=k+1;
end;
writeln('корень = ',a:12:8);
writeln('количество итераций: ',k);
end
else
writeln('интервал задан ошибочно');
end.
a = -0.57
b = 1
точность вычислений eps: 0.00001
корень = -0.51726021
количество итераций: 19
a = 1
b = 2
точность вычислений eps: 0.00001
корень = 1.83345795
количество итераций: 18
f(x) обратится в 0 , если cos(x-1) gt; 0 =gt; - pi/2 lt; x lt; pi/2 =gt;
=gt; (2 - pi)/2 lt; x lt; (2 + pi)/2
Корня будет два. Определим интервал для первого корня.
Левая граница а = - 0,57, правая граница b = 1
Для второго корня левая граница а = 1, правая b = 2
корешки будем сыскать способом деления напополам.
Интервал [ a, b] делится напополам и определяется символ функции в этой точке, в зависимости от знака меняется левая либо правая граница интервала.
Программка будет последующей:
function f(x: real): real;
begin
f:=x*x-5*cos(x-1);
end;
главная программка
var a,b,c,eps: real;
k: integer;
a - начало промежутка, b - конец
begin
write('a = '); readln(a);
write('b = '); readln(b);
if f(a)*f(b)lt;0 then
begin
write('точность вычислений eps: '); readln(eps);
k:=1;
while абс(a-b)gt;eps do
begin
c:=(a+b)/2;
if f(c)lt;gt;0 then
begin
if f(c)*f(b)lt;0 then
a:=c
else
b:=c
end;
k:=k+1;
end;
writeln('корень = ',a:12:8);
writeln('количество итераций: ',k);
end
else
writeln('интервал задан ошибочно');
end.
a = -0.57
b = 1
точность вычислений eps: 0.00001
корень = -0.51726021
количество итераций: 19
a = 1
b = 2
точность вычислений eps: 0.00001
корень = 1.83345795
количество итераций: 18
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов