с информатикой Я там что то пыталась написать...но не уверена,что это правильно с информатикой Я там что то пыталась написать...но не уверена,что это пра">
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, т.е. заданная точность обеспечивается.
1-б(среди всех свойств информации восприятие никак не припомню) 2-а(пусть и давно это было но система начинает отсчет с диска С, диск А это дискеты, а вот что такое диск В мне когда то давно сказали но я уже не помню, они вышли из потребления еще до моего знакомства с компом) 3-с(с прикладным и так все ясно, а системное это ОС) 4 -б вопрос некорректный, но если взять за качество разрешение и плюнуть на все затраты то струйный 5-а (давно это было очень давно, у третьего нет разрешения да еще и звездочка, а у второго меня угловые скобки смущают) 6-в(вообще давно было, это лучше загуглить, но в первые два верится как то не сильно)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку