Нахождение интегралов в среде Pascal

Контрольная работа - Компьютеры, программирование

Другие контрольные работы по предмету Компьютеры, программирование

Нахождение интегралов в среде Pascal

 

Текст задания: найти интеграл функции sin (x+10)+x4=0 используя два метода: метод прямоугольников и метод трапеций; пользователь вводит значения и выбирает метод решения.

 

 

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

program LW_5;

uses

Crt;

var

dx, x1, x2, e, i, c, s:real;

function Fx (x:real):real;

begin

Fx:=sin (x+10)+x*x*x*x; {function}

end;

 

procedure CountViaBar;

var

xx1, xx2:real;

c:longint;

begin

writeln ();

writeln (>MEthod PRYAMOUGOLNIKOVVVV);

writeln (vsego interaciy:, round (abs(x2-x1)/e));

i:=0;

for c:=1 to round (abs(x2-x1)/e) do begin

write (integration , c, chr(13));

xx1:=Fx (x1+c*e);

xx2:=Fx (x1+c*e+e);

i:=i+abs (xx1+xx2)/2*e;

end;

writeln ();

writeln (INTEGRAL=, i);

end;

 

procedure CountViaTrap;

var

xx1, xx2, xx3:real;

c:longint;

begin

writeln ();

writeln (>MEthod TRAPECIY);

writeln (vsego interaciy:, round (abs(x2-x1)/e));

i:=0;

for c:=1 to round (abs(x2-x1)/e) do begin

write (Integration , c, chr(13));

xx1:=Fx (x1+c*e);

xx2:=Fx (x1+c*e+e);

if xx2>xx1 then xx3:=xx1 else xx3:=xx2;

i:=i+abs (xx2-xx1)*e+abs(xx3)*e;

end;

writeln ();

writeln (INTEGRAL=, i);

end;

 

begin

clrscr;

 

writeln (vvedite ishodniye zna4eniya:);

write (NA4ALNOYE ZNE4ENIYE x (x1)=); Readln(x1);

write (KONE4NOYE ZNA4ENIYE x (x2)=); Readln(x2);

write (TO4NOST VbI4ISLENIY (e)=); Readln(e);

writeln (======vvedite metod====== :);

writeln (DLYA METODA PRYAMOUGOLNIKOV VVEDITE 1, DLYA METODA TRAPECIY VVEDITE 2);

//writeln (DLYA METODA TRAPECIY VVEDITE 2);

readln (s);

if s=1 then begin

 

CountViaBar;

end;

if s=2 then begin

CountViaTrap;

end;

readln;

end.