Нахождение корней в функции

26.04.2013, 18:29. Показов 468. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Здравствуйте. Задача была такая, составить программу для вычисления учатска где находится корень, и найти сам корень. Я сделала вроде все,но корней почему то. вот программа

Pascal

program koren;
const q=0.5;
var a,b,h,z1,z2,x,x1,x2,a1,a2,b1,f1,f2:real;
begin
writeln('vvedite levyy granicy a=');
readln(a);
writeln('vvedite pravyy granicy b=');
readln(b);
writeln('vvedite shag h=');
readln(h);
z1:=a-ln(a-0.4)-sqrt(a+1.2);
if z1=0 then writeln('koren a=',a:2);
x:=a+h;
while x<=b do
begin
z2:=x-ln(x-0.4)+sqrt(x+1.2);
if z2=0 then writeln('koren x=',x:2);
if z1*z2<0 then
begin
a1:=x+h;
b1:=x;
f1:=z1;
x1:=(a1+b1)/2;
while abs(b1-a1)<=q do
begin
f2:=x1-ln(x1-0.4)+sqrt(x1+1.2);
if f2=0 then begin a:=x1;b:=x1;end;
if f1*f2<0 then b1:=x1 else begin a1:=x1;f1:=f2; end;
end;
writeln('koren x2',x2:2);
end
else writeln('kornei net');
z1:=z2;
x:=x+h;
end;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.04.2013, 18:29

Ответы с готовыми решениями:

Нахождение корней на интервале!
Друзья подскажите!!! Как в паскале выполнить задание 2х*lgx-3=0 найти корни на с точностью...

нахождение корней через модуль
1. Разработать алгоритмы реализации заданных (см. таблицу) методов решения нелинейного уравнения...

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

Нахождение корней нелинейного уравнения 4 методами
Если кому не сложно, пожалуйста, откликнитесь. Через поиск просматривала темы, но не очень-то...

	26.04.2013, 18:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.04.2013, 18:29

Помогаю со студенческими работами здесь

Нахождение корней уравнения методом Ньютона
Помогите пожалуйста составить структурированную программу для нахождения корня уравнения...

Нахождение корней уравнения методом простых итераций
Исходное уравнение : 3*x-14+exp(x)-exp(-x) = 0 Интервал,где находится корень : Решил...

Нахождение всех действительных корней методом хорд
Нужно составить программу для нахождения всех действительных корней уравнения F(x)=0 методом хорд...

Нахождение корней биквадратного уравнения
У меня PascalABC.Net 2 программы одна полная, а не играющая роль другой закомментирована вообщем...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх