Методом половинного деления найти корень уравнения x-Cos(x)=0.

Карточки-задания
docx
10.05.2017

Публикация в СМИ для учителей

Бесплатное участие. Свидетельство СМИ сразу.
Мгновенные 10 документов в портфолио.

Добавить материал

Методом половинного деления найти корень уравнения x-Cos(x)=0. а) открыть новый файл и набрать текст программы: PROGRAM P9; FUNCTION FUN(A:REAL):REAL; BEGIN FUN:=A-COS(A); END; VAR A,B,X:REAL; BEGIN WRITELN('Ввести интервал А и В для поиска корня = ’); READLN(A,B); REPEAT X:=0.5*(A+B); IF FUN(X)*FUN(A)<0 THEN B:=X ELSE A:=X; UNTIL ABS(A-B)<1E-4; WRITELN(’ Корень уравнения ’,X); END. б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;

Документ Microsoft Office Word.docx

ЗАДАНИЕ 9 Методом половинного деления найти корень уравнения xCos(x)=0. а) открыть новый файл и набрать текст программы: PROGRAM P9; FUNCTION FUN(A:REAL):REAL; BEGIN FUN:=ACOS(A); END; VAR A,B,X:REAL; BEGIN WRITELN('Ввести интервал А и В для поиска корня = ’); READLN(A,B); REPEAT X:=0.5*(A+B); IF FUN(X)*FUN(A)<0 THEN B:=X ELSE A:=X; UNTIL ABS(AB)<1E4; WRITELN(’ Корень уравнения ’,X); END. б) выполнить программу щелчком по соответствующей кнопке меню или в) ввести через клавишу Enter в строку ввода два числа и наблюдать клавишей F9; результат. (Тест: Интервал 0 и 1; Ответ = 0.73907470703125)

Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.

Посмотрите также