Лабораторная работа

Лабораторная_работа на тему Нахождение интегралов в среде Pascal

Работа добавлена на сайт bukvasha.net: 2015-06-30

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 8.11.2024


Нахождение интегралов в среде 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 PRYAMOUGOL''NIKOVVVV');

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 ('NA4AL''NOYE ZNE4ENIYE x (x1)='); Readln(x1);

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

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

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

writeln ('DLYA METODA PRYAMOUGOL''NIKOV 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.


1. Реферат Европейский союз или ЕС
2. Кодекс и Законы Действующая система безналичных расчетов в РК
3. Реферат на тему Organic Foods Essay Research Paper Are Organic
4. Реферат Турбобур - забойный гидравлический двигатель
5. Доклад История волейбола в Беларуси
6. Реферат на тему Коровяк скипетровидный
7. Курсовая на тему Численные методы при решении задач
8. Реферат Лавуазье один из основателей научной химии
9. Реферат на тему Особенности перинатальных секций
10. Реферат на тему Jordan Does It All Essay Research Paper