не могу закончить программу, интеграл Опции

[Lera]

Нужно построить график зависимости значения определенного интеграла от величины шага h. Изменение шага интегрирования h=0.02-1, дискретность шага 0.02, пределы интегрирования а=0 в=5

Код

Program Zadanie3;
Uses Crt, Graph;
Const
a=0; b=5; h=0.02;
Var
GrDr,GrMod:integer;
Scale:integer;
y,x,s:real;
x0,y0,mx,my,px,py:integer;
Function f(x:real):real;
begin
if(x>=0)and(x<2)then f:=1;
if(x>=2)and(x<=5)then f:=sin(x);
end;

Function Integ(h:real):real;
begin
x:=a;
s:=0;
while x<b do
y:=f(x);
s:=s+y*h;
x:=x+h;
end;

begin
GrDr:=Vga; GrMod:=VgaHi;
InitGraph(GrDr,GrMod,'C:\BP7.0\BGI\');
setcolor(11);
x0:=320; y0:=240;
mx:=20; my:=20;
Line(0,y0,630,y0); Line(x0,0,x0,470);
Line(315,10,320,0);Line(320,0,325,10);
Line(630,235,640,240);Line(640,240,630,245);
OutTextXY(628,250,'X');
OutTextXY(300,5,'Y');

НЕ МОГУ НАРИСОВАТЬ САМ ГРАФИК

Код

begin
px:=x0+Round(x*mx);
py:=y0-Round(y*my);
PutPixel(px,py,12);
end;
Readln;
end.

Код должен быть в тегах...

[klem4]

не знаю, поможет или нет, но вот :
http://forum.pascalnet.ru/index.php?showt...9&hl=построение