Script de traceur de courbe en pascal

svp j besoin du traceur de courbe en pascal merci de votre aide

Re, voila ce que j'ai pu commencé, j'espere juste que ça t'aidera. Desolé j'ai po mis de commentaire. So, good luck an see u later.

program courbe;
uses crt, graph;
var xgfen,xdfen,yhfen,ybfen:real;
x,y,f1,f2,f3,f4,xrap,yrap,a,b:real;
x1,x2,j,i,xdclot,ybclot,xgelot,yhclot:integer;

procedure fenetre(f1,f2,f3,f4:real);
begin
xgfen:=f1;
xdfen:=f2;
yhfen:=f3;
ybfen:=f4;
end;

procedure cloture (c1,c2,c3,c4:integer);
begin
xdclot:=c2;
xgclot:=c1;
xhclot:=c3;
xhclot:=c4;
xrap:=(xdclot-xgclot)/(xdfen-xgfen);
yrap:=(yhclot-ybclot)/(yhfen-ybfen);
setviewport (xgclot,getmaxy-yhclot,xdclot,getmaxy-ybclot,clipon);
end;

function xe(x:real):integer;
begin
xe:=round((x-xgfen)*rap);
end;

function ye(y:real):integer;
begin
ye:=round((yhfen-y)*yrap);
end;

procedure placetoien (x,y:real);
begin
moveto (xe(x),ye(y));
end;

procedure tracevers (x,y:real);
begin
lineto(xe(x),ye(y));
end;

procedure ecrireen (x,y:real;texte:string);
begin
outtextxy (xe(x),ye(y),texte);
end;

function f(x:real):real;
begin
f:=ln(x*x+1);
end;

procedure repere;
begin
setcolor (11);
fenetre (0,getmax x,getmaxy,0);
cloture (0,getmax x,getmaxy, );
placetoien(50,(getmaxy div 2));
tracevers ((getmax-50),(getmaxy div 2);
ecrireen(getmax x-50,(getmaxy div 2)+3,'>');
ecrireen(getmax x-40,getmaxy div 2)+2,'x');
evrireen(getmax x div (2-8),(getmaxy div 2)-4,'0');
for i:=5 to 54 do
begin
placetoien (getmax x-50+1*10, getmaxy div 2+5);
outext (#250);
placetoien (getmax x-50-(i*10), getmaxy div (2+5));
outext (#250);
end;
placetoien(getmax x div (2+3), getmaxy-50);
tracevers (getmax div (2+3),50);
ecrireen(getmax x div 2, getmaxy-49,'^');
ecrireen (getmax div 2, getmaxy y-40,'y');
for i:=1 to 18 do
begin
placetoien (getmax x div 2, getmax y div 2+5+(i*10));
outtext (#250);
placetoien (getmax x div 2, getmaxy div 2+5-(i*10));
outetxt (#250);
end;
end;

procedure ecrangraph;
begin
x1:=detect;
initgraph (x1,x2,'d:\josue brunel\school\tp7\bgi');
end;

procedure tracer (a,b:real);
begin
clrscr;
ecrangraph;
repere;
setcolor(red);
for i:=1 to 50 do
begin
placetoien ((getmax x div 2+3)+20*(a+i*(b-a)/50)),((getmaxy div 2)+20*f(a+i*(b-a)/50));
tracevers ((getmax x div 2+3)+20*(a+(i+1)*(b-a)/50)),((getmaxy div 2)+20*f(a+(i+1)*(b-a)/50));
end;
setcolor(white);
ecrieen (50,450,'fonction ln(xy+1)');
readln;
closegraph;
end;

Begin
clrscr;
textmode(3);
writeln ('TRACEUR DE COURBES');
writeln('entrer xmin');
readln();