Вычислить интеграл по формуле прямоугольников

@13Ви13 · Регистрация: 12.11.2015

Студворк — интернет-сервис помощи студентам

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \int_0^1 \sin \frac abx\,dx<br />$

где

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> a=\sum_{k=1}^3\frac{k+4}{k+2}\ ,\qquad b=3t^2+4\ ,\qquad t=4.3\cos a<br />$

Помогите пожалуйста вычислить интеграл по формуле прямоугольников, на языке паскаль
Ответ выходит не тот(((

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program INT ;
      var 
              a , b , s ,t, h,x, p : real ;k: integer;
      begin
        a := 0 ; b := 1 ; s := 0 ; 
        For k:= 1 to 3 do
        a:= a+((k+4)/(k+2));
        t:=4.3*cos(a);
        b:=3*sqr(t)+4;
              h := ( a + b );
        while a >= b do begin
          s := s+(sin(a/b)*x);
          a := a + h ;
        end ;
        p := s * h ;
        writeln ( ' значение интеграла p = ' , p:1:5 );  end .

@Puporev · 12.11.2015, 18:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program INT ;
var a,b,t,c,d,h,s,x:real ;
    k,n:integer;
begin
a := 0 ;
For k:= 1 to 3 do
a:= a+((k+4)/(k+2));
t:=4.3*cos(a);
b:=3*sqr(t)+4;
writeln('a/b=',a/b:0:4);
c:=0;
d:=1;
write('Число разбиений n=');//чем больше k, тем выше точнсть
readln(n);
h:=(d-c)/n;
x:=c+h/2;
s:=0;
for k:=1 to n do
 begin
  s := s+sin(a/b)*x;
  x := x+h;
 end;
s:=s*h;
writeln ( ' значение интеграла = ' , s:0:5 );
end .

Ответ проверен на онлайн сервисе.
http://matematikam.ru/calculat... tegral.php

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .