ВАШЕ СВИДЕТЕЛЬСТВО
О ПУБЛИКАЦИИ В СМИ И РЕЦЕНЗИЯ
бесплатно за 1 минуту
Добавить материал
Количество Ваших материалов: 0.
Авторское
свидетельство о публикации в СМИ
добавьте 1 материал
Свидетельство
о создании электронного портфолио
добавьте 5 материала
Секретный
подарок
добавьте 10 материалов
Грамота за
информатизацию образования
добавьте 12 материалов
Рецензия
на любой материал бесплатно
добавьте 15 материалов
Мария Забелина Свидетельство о публикации Рецензия
Свидетельство Скачивание доступно только автору
Методом половинного деления найти корень уравнения x-Cos(x)=0.

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

Методом половинного деления найти корень уравнения 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;

  • Карточки-задания
  • Информатика
  • 10 кл.
  • 11 кл.

Все файлы материала: