Составить программу, вычисляющую заданный интеграл по формуле гаусса. составить программу-функцию для вычисления значений подъинтегральной функции. составить головную программу, содержащую обращение к вычислительным процедурам и осуществляющую печать результатов. вычислить абсолютную и относительную погрешность. интеграл от 0 до 1 x(1-x)^2 dx программы составлять на паскале

235

442

Посмотреть ответы 2

Ответы на вопрос:

КАЗ777

Информатика

4,6(12 оценок)

Const {константы десятиточечного метода гаусса} g10c1 = 0.9739065285 / 6.2012983932; g10c2 = 0.8650633667 / 6.2012983932; g10c3 = 0.6794095683 / 6.2012983932; g10c4 = 0.4333953941 / 6.2012983932; g10c5 = 0.1488743390 / 6.2012983932; g10x1 = 0.0666713443 / 6.2012983932; g10x2 = 0.1494513492 / 6.2012983932; g10x3 = 0.2190863625 / 6.2012983932; g10x4 = 0.2692667193 / 6.2012983932; g10x5 = 0.2955242247 / 6.2012983932; function f(x: real): real; begin f : = x * sqr(1 - x) end; function gsc(a, b: real): real; {получение суммы для метода гаусса} var p, q, s, s1, s2, s3, s4, s5: real; begin p : = (b + a) / 2; q : = (b - a) / 2; s1 : = g10c1 * (f(p + q * g10x1) + f(p - q * g10x1)); s2 : = g10c2 * (f(p + q * g10x2) + f(p - q * g10x2)); s3 : = g10c3 * (f(p + q * g10x3) + f(p - q * g10x3)); s4 : = g10c4 * (f(p + q * g10x4) + f(p - q * g10x4)); s5 : = g10c5 * (f(p + q * g10x5) + f(p - q * g10x5)); s : = s1 + s2 + s3 + s4 + s5; result : = s * (b - a) end; function gauss(a, b, eps, gs: real): real; {рекурсивная ф-ция подсчета с заданной точностью eps} {gs - интеграл на (a,b), получать заранее} var m, ia, ib: real; begin m : = (a + b) / 2; ia : = gsc(a, m); ib : = gsc(m, b); if abs(ia + ib - gs) > eps then begin ia : = gauss(a, m, eps / 2, ia); {рекурсия для первой половинки} ib : = gauss(m, b, eps / 2, ib){рекурсия для второй половинки} end; result : = ia + ib end; function intg(a, b, eps: real): real; begin result : = gauss(a, b, eps, gsc(a, b)); end; var a, b, eps, y1, y2: real; begin a : = 0; b : = 1; eps : = 1e-6; y1 : = intg(a, b, eps); y2: =sqr(b)*(sqr(b)/4-2*b/3+0.5); writeln('значение интеграла по методу гаусса: ', y1: 0: 8); writeln('значение интеграла по формуле: ', y2: 0: 8); writeln('абсолютная погрешность составляет: ', abs(y2-y1): 0: 8); writeln('относительная погрешность составляет: ', abs((y2-y1)/y1)*100: 0: 6,'%'); end. тестовое решение: значение интеграла по методу гаусса: 0.08333337 значение интеграла по формуле: 0.08333333 абсолютная погрешность составляет: 0.00000004 относительная погрешность составляет: 0.000044%

помогитееее468457345

Информатика

4,5(55 оценок)

1) А \/ В = 1 (истина)

2) ¬A ∧ В = 0 (ложь)

3) ¬A \/ ¬B = 1 (истина)

4) А ∧ ¬B = 1 (истина)

5) ¬A \/ В = 0 (ложь)

Объяснение:

А – «2 - число чётное»

A = 1 (истинное высказывание, т.к. 2 действительно чётное число)

В – «5*8=43»

В = 0 (ложное высказывание, т.к. 5 * 8 = 40)

1) А \/ В = 1 \/ 0 = 1

2) ¬A ∧ В = ¬1 ∧ 0 = 0 ∧ 0 = 0

3) ¬A \/ ¬B = ¬1 \/ ¬0 = 0 \/ 1 = 1

4) А ∧ ¬B = 1 ∧ ¬0 = 1 ∧ 1 = 1

5) ¬A \/ В = ¬1 \/ 0 = 0 \/ 0 = 0

НЕ (¬) - значение противоположно исходному высказыванию

И (∧) - истинно, когда оба исходных высказывания истинны

ИЛИ (∨) - ложно, когда оба исходных высказывания ложны

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.