Не работает программа вычисления интеграла

@TuBoRG · Регистрация: 14.05.2014

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

QBasic/QuickBASIC
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
26
27
28
29
30
INPUT "a="; a
INPUT "b="; b
INPUT "e="; e
INPUT "n="; n
H = (b - a) / n
s = 0
FOR z = a TO b - 2 * H STEP 2 * H
    y0 = (e ^ x - 1) / (e ^ x + 1)
    y1 = (e ^ (x + H) - 1) / (e ^ (x + H) + 1)
    y2 = (e ^ (x + 2 * H) - 1) / (e ^ (x + 2 * H) + 1)
    Si = H / 3 * (y0 + 4 * y1 + y2)
    s = s + Si
NEXT z
DO
    n = n * 2
    H = (b - a) / n
    p = 0
    FOR z = a TO b - 2 * H STEP 2 * H
        y0 = (e ^ x - 1) / (e ^ x + 1)
        y1 = (e ^ (x + H) - 1) / (e ^ (x + H) + 1)
        y2 = (e ^ (x + 2 * H) - 1) / (e ^ (x + 2 * H) + 1)
        Si = H / 3 * (y0 + 4 * y1 + y2)
        p = p + Si
 
    NEXT z
    d = ABS(s - p)
    s = p
LOOP WHILE d > e
PRINT "integral"; p
END

Добавлено через 1 час 6 минут
Помогите пожалуйста, ребят..

Добавлено через 1 час 53 минуты
а да забыл сказать вычисление интеграла методом Симпсона

Добавлено через 55 секунд
и вот я не пойму правильно ли я подставил H и 2H, потому что у одногрупников сходится с другими уравнениями, считает правильно, а у меня не сходится

Добавлено через 3 часа 52 минуты

ребяяят помогите, а.. завтра курсовую надо защищать а чо то не сходится с ответом, а фотошопом пользоваться не хочется

@xod · 01.07.2014, 23:31

В программе есть строки:
n=2*n
H=(b-a)/n
Иначе говоря число n увеличивается в два раза
А шаг H уменьшается в два раза.
А иначе n было бы вовсе не нужно (!!)

Новые блоги и статьи Все статьи Все блоги /
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .

@xod 156 / 46 / 70 Регистрация: 01.07.2014 Сообщений: 185
	01.07.2014, 23:31
	В программе есть строки: n=2*n H=(b-a)/n Иначе говоря число n увеличивается в два раза А шаг H уменьшается в два раза. А иначе n было бы вовсе не нужно (!!) 1