составить программу построения графика вещественной функции на заданном интервале

Вот те синус от -Пи до Пи в качестве примера, свистелки, перделки, свою функцию и интервал вставишь сам:

uses
crt, graph;
var
gd, gm, cx1, cy1, cx2, cy2 : integer;
x, y: real;
c : char;
begin
gd := detect;
initgraph(gd, gm, '');
if graphresult <> grok then begin
writeln('error init graph mode');
halt(1)
end;
setcolor(darkgray);
line(0, getmaxy div 2, getmaxx, getmaxy div 2);
line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
setcolor(white);

cx1 := 0;
x := -pi + 2.0 * pi / getmaxx * cx1;
y := sin(x);
cy1 := round(-getmaxy / 3.0 * y + getmaxy / 2.0);

for cx2 := 1 to getmaxx do begin
x := -pi + 2.0 * pi / getmaxx * cx2;
y := sin(x);
cy2 := round(-getmaxy / 3.0 * y + getmaxy / 2.0);
line(cx1, cy1, cx2, cy2);
cx1 := cx2;
cy1 := cy2;
end;

readkey;
closegraph;
end.