Регистрация
hiopjkokop
24.01.2022 11:03
Информатика
Есть ответ 👍

Кто изобрел? Древние римляне,
китайцы, греки и т.д.
_____________________
_____________________​

КЛАСС

258
497
Посмотреть ответы 1

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

macglok12
macglok12
4,6(27 оценок)
Function f(x: real): real; { возвращает значение функции y(x) для заданного х } begin   f: =sqr(x)+4*x+3 end; var   a,b,h: real; { начало интервала, конец интервала, шаг }   x,y: real; { аргумент и значение функции } begin   write('введите начало интервала, конец и шаг: ');   read(a,b,h);   x: =a;   while x< =(b+0.001*h) do { 0.001*h добавляем для компенсации погрешности }       begin writeln('x=',x,', y=',f(x)); x: =x+h end end. тестовое решение. введите начало интервала, конец и шаг: -2 2 0.2 x=-2, y=-1 x=-1.8, y=-0.96 x=-1.6, y=-0.84 x=-1.4, y=-0.64 x=-1.2, y=-0.36 x=-1, y=-4.44089209850063e-16 x=-0.8, y=0.44 x=-0.6, y=0.959999999999999 x=-0.4, y=1.56 x=-0.2, y=2.24 x=-2.77555756156289e-16, y=3 x=0.2, y=3.84 x=0.4, y=4.76 x=0.6, y=5.76 x=0.8, y=6.84 x=1, y=8 x=1.2, y=9.24 x=1.4, y=10.56 x=1.6, y=11.96 x=1.8, y=13.44 x=2, y=15 в решении хорошо видно, как часть чисел из-за погрешности машинного представления отображается неточно. в частности, мы "не попали" точно в х=0 и если бы табуляция шла на интервале [-2; 0] с шагом 0.2, то при в цикле условия x< =b без компенсации погрешности, мы бы не получили значение для х=0.

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