Курсовая работа: Разработка приложений на С Pascal Delphi

f2:=sqr(x)*sin(x)/(exp(0.3*ln(abs(cos(x)))));

end;

function LevPr.integralf1(a:real; b: real; h:real):real;

var s, x: real;

begin

x:=a;

s:=0;

while x<b do begin

s:=s+LevPr.f1(x)*h;

x:= x+h;

end;

integralf1:=s;

end;

function LevPr.integralf2(a:real; b: real; h:real):real;

var s, x: real;

begin

x:=a;

s:=0;

while x<b do begin

s:=s+LevPr.f2(x)*h;

x:= x+h;

end;

integralf2:=s;

end;

function LevPr.levprf1(a:real; b:real;eps: real; n:integer):real;

label l1;

var

i: integer;

x, y, h, y1:real;