По результатам работы необходимо в отчёте алгоритм в виде блок-схемы и на алгоритмическом языке (с необходимыми комментариями и пояснениями), а также контрольный пример, демонстрирующий правильность работы алгоритма. форма отчёта ниже. программа должна вычислять значение определенного интеграла от функцииsin(x)/x для нулевого нижнего и действительного верхнего предела a с точностью ε с использованием рекурсии.

198

236

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

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

Anton2657

Информатика

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

Function intg(p, b: real; n: integer; eps: real): real; {метод прямоугольников, рекурсия} var a, x, h, s: real; i: integer; begin a : = 0; h : = (b - a) / n; x : = a; s : = 0; for i : = 1 to n do begin s : = s + sin(x); x : = x + h; end; if abs(s * h - p) > eps then intg : = intg(s * h, b, 2 * n, eps) else intg : = s * h; end; var b, eps: real; begin write('задайте верхний предел интегрирования и точность: '); readln(b, eps); writeln('значение интеграла: ', intg(0, b, 2, eps): 0: 7); end. тестовое решение: задайте верхний предел интегрирования и точность: 2 0.000001 значение интеграла: 1.4161460 точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.

suxowaalisa

Информатика

4,8(28 оценок)

Var x: integer; begin writeln('x='); readln(x); if (x mod 7=0) and ( x mod 2< > 0) then writeln(' cislo neciotnoe i kratno semi ') else writeln('cislo ciotnoe i nekratno semi '); readln; end.