fprintf(out, "%f", eps);

fputs( "\n kolichestvo otrezkov ", out );

fprintf(out, "%d", n);

fputs( "\n Integral", out );

fprintf(out, " %f", integral);

fclose(out);

fclose(in);

}

/*vyvod resultatov na ekran*/

printf("\n Znachenie integrala = %f", integral);

/*zapros polzovatelu, zavershit' li rabotu programmy*/

printf("\n Hotite zavershit' zadachy?");

vop=getch();

} while (vop!='y');

printf("vypolnila studentka 895 gruppy Araztaganova Alina");

}

Вычисление интеграловPascal

(примерыописанияобъекта)

type LevPr = object {opredelenie klassa, kotoriy realizuet metod levyh 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 levprf1(a:real; b:real; eps: real; n:integer):real;

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

end;

type PravPr = object {opredelenie klassa, kotoriy realizuet metod pravyh pryamougolnikov}

Public

function f1(x:real):real;