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

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

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

function Pravprf1(a:real; b:real; eps: real; n:integer):real;

function Pravprf2(a:real; b:real; eps: real; n:integer):real;

end;

type SRPr = object {opredelenie klassa, kotoriy realizuet metod srednih pryamougolnikov}

Public

function f1(x:real):real;

function f2(x:real):real;

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

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

function Srprf1(a:real; b:real; eps: real; n:integer):real;

function Srprf2(a:real; b:real; eps: real; n:integer):real;

end;

type Trap = object {opredelenie klassa, kotoriy realizuet metod trapeciy}

Public

function f1(x:real):real;

function f2(x:real):real;

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

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

function Trapf1(a:real; b:real; eps: real; n:integer):real;

function Trapf2(a:real; b:real; eps: real; n:integer):real;

end;

{opisaniya motodov klassov}

function LevPr.f1(x: real):real;

begin

f1:=sqr(x);

end;

function LevPr.f2(x: real):real;