Составить Паскаль-программу, позволяющую найти корень уравнения на заданном отрезке. Опции

[nice]

Составить Паскаль-программу, позволяющую найти корень уравнения на заданном отрезке.

0.6*3(в степени х) – 2.3*х-3=0 отрезок седержащий корень [2,3] любым методом кроме метода половинного деления

Сообщение отредактировано: nice - 26.05.2009 21:14

[nice]

Program p2;
uses crt;
function F(x:real):real;
var a,b:real;
begin
a:=0;
b:=1;
F:=0.6*3^x-2.3*x-3;
end;
function F(x:real):real;
var a,b:real;
begin
a:=0;
b:=1;
F1:=1.8*ln3-2.3;
end;
function Newton(x1,e:real):real;
var x2,c:real;
begin
x2:=x1;
repeat
c:=x2;
x2:=c-F( с )/F1( с );
until abs(x2-c)>0;
Newton:=x2;
end;
Var c,eps:real;
begin
clrscr;
write('vvedite na4alnoe priblizenoe=');
readln( с );
write('vvedite to4nost eps=');
readln(eps);
write('x',Newton(c,eps):0:5);
readln end.

так?

Сообщение отредактировано: volvo - 27.05.2009 20:04