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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 23.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. Курсовая Java Русские буквы и не только
2. Курсовая Политика внешних заимствований в России в период финансового кризиса
3. Магистерская_работа на тему Самостійна робота як засіб активізації пізнавальної діяльності молодших школярів
4. Курсовая на тему Платёжеспособность ссудозаёмщика и кредитный риск банка
5. Реферат Радимичи
6. Реферат Батайск
7. Контрольная работа Генезис этнопедагогических идей в трудах известных педагогов и общественных деятелей
8. Сочинение на тему Воробьев к. д. - Рецензия на повесть к. д. воробьева это мы господи
9. Курсовая Статус президента Приднестровской Молдавской Республики
10. Сочинение Идеал красоты и литература