Есть ответ 👍

По программе С++ 1 Укажите объективно- ориентированный язык программирования
А)Basic
B)Fortan
C)C++
D)Pascal
E)Delphi
2-С какого оператора реализуется цикл с постусловием
А) while.
B) do ... while.
C) for.
D) switch.
3- Укажите правильную запись оператора
А) while (LOOP) < (10).
B) while (LOOP < 10).
C) while LOOP < 10 .
D) while LOOP (<10).
E) while (LOOP <(10).

145
459
Посмотреть ответы 1

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

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, т.е. заданная точность обеспечивается.

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