Прога решения уравнений, Нахождение корней в уравнении Опции

[dron4ik]

Всем привет!

Дана следующая задача;

Составить программму на любом языке программирования и с ее помощью решить уравнение с точностью равную до тысячных E=0.001 б=0.01 Уравнение 3cos2x-x+0.25 х принадлежит [-2.5;-1,8]

Я выяснил что уравнение корней не имеет!!! т.к найдя производную этого уравнение и подставляя значение -2.5 и -1.8 получается что в двух случаях уравнение имеет знак плюс!!!



Написал прогу на Делфи но у меня она не запускается(((((((((((( Может кто предложит более простой вариант? Я еще не организовал как задать точность(((

код проги:



var
Form1: TForm1;
x1, n,p,b,rez,rezu,t,y,u,q:integer;
x2, x3,f,h,c,w,e: extended;
s, red,per:string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x1:=3;
n:=-5;
x2:=2.5;
x3:=0.25;
s:= IntToStr(x1)+'cos'+IntToStr(n)+'+'+FloatToStr(x2)+'+'+FloatToStr(x3)+'=';
label1.Caption:=s;
p:= StrToInt (3*cos(-5)+ StrToFloat (2.5+0.25);
Label2.Caption:=IntToStr(p);
end;
begin
b:=3;
c:=-3.6;
f:=1.8;
h:=0.25;
red:= IntToStr(b)+'cos'+FloatToStr©+'+'+FloatToStr(f)+'+'+FloatToStr(h)+'=';
label3.Caption:=red;
rez:= StrToFloat (3*cos(-3.6)+ StrToFloat (1.8+0.25);
Label4.Caption:=FloatToStr(rez);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
t:=-6;
y:=-5;
u:=-5;
per:=IntToStr(t)+'sin'+IntToStr(y)+'*'+'cos'+IntToStr(u)+'=';
Label5.Caption:=per;
rezu:=StrToInt (-6*sin(-5)* cos(-5));
Label6.Caption:=IntToStr(rezu);
ShowMessage('uraveneie ne imeet kornei');

end;
begin
q:=-6;
w:=-3.6;
e:=-3.6;
per:=IntToStr(q)+'sin'+FloatToStr(w)+'*'+'cos'+FloatToStr(e)+'=';
Label7.Caption:=per;
rezu:=FloatToStr (-6*sin(-3.6)* cos(-3.6));
Label8.Caption:=StrToFloat(rezu);
ShowMessage('uraveneie ne imeet kornei);

end.

Добавлено через 5 мин.
В этом коде полно проблем с переводом типов данных и почему то ошибки выдает с лейбелами

[volvo]

3cos2x и x-0.25 нарисуй их и поймешь что они не пересекаются

Да какие, блин, два графика??? Ты бы еще отдельно 3cos2x, отдельно x, и отдельно 0.25 рисовал? Чего ж ты одно отделил, а другое - нет? Срочно читать учебник математики, и уяснять разницу между понятиями "уравнение" и "система уравнений"

Тебе заданы 2 линии: первая - график функции y=3cos2x-x+0.25, вторая - y=0. Пересечение их дает тебе решение уравнения 3cos2x-x+0.25=0 Если это непонятно, то говорить дальше просто не о чем, жаль времени.

Сообщение отредактировано: volvo - 13.11.2008 9:59

[Lapp]

Да какие, блин, два графика???

volvo, я не вполне понимаю твое возмущение. dron4ik просто перенес два слагаемых в правую часть:

3cos2x = x - 0.25

- и интерпретирует уравнение как равенство двух частей (графиков). Подход вполне имеет право на жизнь. Я, правда, не рассматривал сами графики, так что не знаю, есть ли решение (пересечение) на самом деле, но метод абсолютно верный. Перенос тоже произведен верно (со сменой знака).
Я что-то упускаю?..