Jurijus Zaksas
Искусственный Интеллект
(418720)
3 года назад
>Работа цикла repeat until. Delphi
>То есть интеграции это результат работы цикла
>Он должен продолжаться (Интеграции выводится) до тех пор, пока Until abs(a)<e(погрешность);
Так, сам спросил - сам ответил. Именно так этот цикл и работает, молодец. А в чем загвоздка-то?
Мораг ИнкогнитоЗнаток (265)
3 года назад
Как будет программный код выглядеть я не пойму из-за факториалов . Можете его написать пожалуйста
В соответствии с индивидуальным вариантом cоставить алгоритм (блок-схему) и написать программу, которая вычисляет значение функции. Принять х=0.5, точность вычисления е=0.0001.Использовать цикл repeat/Until;
Код формы История расчета
memo1
Label1:Вводим x; Здесь должно быть интеграция 1 a= чему то y= чему то
Label2:погрешность
То есть интеграции это результат работы цикла
Он должен продолжаться (Интеграции выводится) до тех пор, пока Until abs(a)<e(погрешность);
функция
ch(x)=e^x+e-x/2=1+x^2/2!+x^4/4!+x^6/6!; Формула ряда a=x^2n-2/(2n-2)! Вычислить значение функции здесь значит найти сумму последовательности 1+x^2/2!+x^4/4!+x^6/6! то того момента как abs(a)<e будет Нужен код;
Этот скрин и код другого варианта в качестве примера