Метод Ньютона (касательных)

[Oh!_Margo]

Помогите пожалуйста написать программу на паскале...
нужно решить уравнение: tx-x=0 и построить график, по нему определить начальное приближение корня или отрезок, в котором он содержится. задать x0 или [a,b] с клавиатуры, при различных e тоже с клавиатуры.
помогите, очень прошу..

Ребят, ну помогите пожалуйста... очень прошу.. не соображаю в этом нифига

Я тут начало сделала вроде так... а дальше как быть не знаю

program Newton;
uses crt;

function f(x,t:real):real;
begin
 f:=t*x-x;
end;

function f1(x,t:real):real; {Первая производная функции}
begin
 f1:=t-1;
end;

var a,b,x,t,e,en:real;
    i:integer;

begin
 clrscr;
 writeln ('Решение нелинейного уравнения методом Ньютона');

[Oh!_Margo]

ну пожалуйста....