Методом половинного деления найти корень уравнения 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)
Методом половинного деления найти корень уравнения x-Cos(x)=0.
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
10.05.2017
Посмотрите также:
© ООО «Знанио»
С вами с 2009 года.
О портале
