Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Інші
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2012
Тип роботи:
Інші
Предмет:
SQL
Частина тексту файла (без зображень, графіків і формул):
Написати програму, котра реалізує метод трапецій з автоматичним вибором кроку
При початкових умовах: n=10, ep=1E-6, a=0, b=(;
program trapaut (input, output); for k:=1 to n-1 do i:=i+f(a+k*h);
label l; i:=i*h;
var k,n: integer; end;
x,i,is,a,b,ep: real; begin
function f(x:real): real; writeln(‘введіть a, b, n, ep’);
begin read(a, b, n, ep);
f:=sqr (sin(x))/(1+cos(x)+0.25); tr(a, b, n, i);
end; l: is:=i;
procedure tr(a,b:real; n:integer;var i:real); n:=2*n;
var h:real; k:integer; tr(a, b, n, i);
begin if abs((is-i)/i)>ep then goto l;
h:=(b-a)/n; writeln(‘n=’, n’i=’,is);
i:=(f(a)+f(b))/2; end.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора