Несобственные интегралы

курсовая работа

2.1 Текст программы

program integral;

{$APPTYPE CONSOLE}

uses

SysUtils;

{задаем нижнюю границу интеграла}

const x1=1;

{процедура вывода на экран значения интеграла}

procedure Out(s:real);

begin

writeln (znachenie integrala s =,s:10:5);

end;

{процедура вывода на экран верхней границы интеграла}

procedure Outt(a:real);

begin

writeln(verhnyaya granitsa integrala a =,a:10:5);

end;

{функция подсчета высоты прямоугольника}

function funct(x:real):real;

begin

funct:=1/(x);

end;

{описание переменных, используемых в программе}

var s,h,e,a,sh:real; k:integer

begin

{ TODO -oUser -cConsole Main : Insert code here }

write(vvedite tochnost e = );

readln(e);

write(vvedite shag sh = );

readln(sh);

s:=0;

h:=x1+sh;

k:=1;

{оператор, вычисляющий значение интеграла и его верхнюю границу}

while funct(x1+k*(h-x1)-(h-x1)/2)>e do

begin

s:=s+(h-x1)*funct(x1+k*(h-x1)-(h-x1)/2);

a:=x1+k*(h-x1);

k:=k+1;

end;

{вызов процедур Out и Outt}

Out(s);

Outt(a);

readln;

end.

Делись добром ;)