Методика и основные этапы нахождения интеграла функции sin (x 10) x4=0 с помощью двух подходов: метод прямоугольников и метод трапеций. Составление соответствующей программы в среде 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;
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
