Bonjour,
j'ai un probléme pour tracer cette fonction f(x)= (sin(x)+sin(x))/2 <x E [-Pi/2,Pi/2]>
j'ai esseyé avec ce code mais ça m'a donner erreur je sais pas ou réside l'ereur

uses graph;

type Fonction = function (x : real) : real;

function f (x: real) : real;
begin
f := (cos(x) + sin(x)) / 2;
end;

procedure courbe (f : fonction; x0, y0: integer; echelleX, echelleY : real);
var x, y : integer; xReel, yReel : real;
begin
for x := 0 to 640 do begin
xReel := (x - x0) * echelleX;
yReel := f (xReel);
y := y0 + yReel * echelleY;
plot (x, y);
end;
end;


begin
graphInit;
courbe (f, 320, 200, 0.01, 0.01);
end.

s'il vous plait c'est urgent
merci pour votre aide

Configuration: Windows XP
Firefox 3.5.3