Метод половинного деления - Pascal ABC

  1. Помогите пожалуйста начинающей девушке не чего не понимающей в програмировании Отыскание корня уравнения F(x)=0 на интервале (А,В) с точность Е А=0 В=1 Е=10(в -2 степени) х(в 4 степени)+2х(в 3 степени)-х-1 Заранее огромное спасибо!!!


textual

Код:

uses crt;
function F(x:real):real;
begin
F:=x*x*x*x+2*x*x*x-x-1
end;
function Bis(a,b,e:real):real;
var c:real;
begin
repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
until abs(b-a)<e;
Bis:=(a+b)/2;
end;
var a,b,e:real;
begin
a:=0;
b:=1;
e:=0.01;
writeln('Решение уравнения x^4+2x^3-x-1=0');
writeln('на интервале [0;1] с погрешностью 0.01');
writeln('x=',Bis(a,b,e):0:2);
end.


Похожие ответы
  1. Помогите исправить ошибку, пожалуйста. Определение и уточнение корней нелинейных уравнений. Уравнение: x3 + 3x2 - 8x - 3 = 0 Интервал: [-5; 3] Точность: 10-3 Программа:

  1. Найти область определения функции D(f), ее нули, экстремумы и множества значений W(f). Построить график функции, нарисовав и разметив оси координат y=-x^4+4x^2.

  1. Создать программу для определения самого длинного среди 4-х введенных пользователем строк. Определение длинного строки должно выполняться в подпрограмме (или подпрограммах).

  1. Пусть имеется прямоугольный лабиринт, разбитый на клетки со стороной 1 метр. Длина лабиринта — n метров, ширина — m метров. На плане лабиринта закрашенная клетка соответствует непроходимому препятствию. Высота лабиринта всюду одинакова и равна 3 (трем) метрам. Вход в лабиринт и выход всегда размещены в левом верхнем и правом нижнем углах. Нумерация клеток начинается из левого верхнего угла. Перед открытием сезона необходимо оклеить все внутренние стены лабиринта новыми обоями. Опишите алгоритм определения общей площади всех внутренних стен лабиринта. Входные данные n, m; двухмерный массив (прямоугольная таблица) размерностью n × m. Элементы массива принимают одно из двух значений: “пусто” или “занято”. Пример Лабиринт (n = 14, m = 12), карта которого представлена ниже, имеет площадь внутренних стен 104 × 3 = 312 м2 . Контуры внутренних стен на рисунке выделены жирной линией.

  1. Задание следующее: "вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью e (e=10^(-3)/10^(-6)) на интервале [c;d]." У меня F(x)=sin(x)+x-1, интервал [0;8]. Как было сказано в заголовке, данное уравнение я решал методом половинного деления:

  1. Напишите рекурсивную программу для определения скалярного произведения двух векторов.

  1. Написать программу для нахождения остатка от деления натурального числа а на натуральное число b путем последовательного вычитания из числа a числа b.

  1. Как определить целую часть от деления заданного числа на 8?

  1. Добрый вечер. Подскажите, пожалуйста. Заданы два числа: N и K. Необходимо найти остаток от деления N на K. Входные данные Входной файл INPUT.TXT содержит два целых числа: N и K (1 <= N <= 10100, 1 <= K <= 109). Выходные данные В выходной файл OUTPUT.TXT выведите остаток от деления N на K. Примеры № INPUT.TXT OUTPUT.TXT 1 239 16 15 2 4638746747645731289347483927 6784789 1001783Добавлено через 1 минуту Вот что у меня есть. Но она по времени не проходит на сайте. Как оптимизировать?

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 program funk; var x: real; begin write('введите x');   readln(x); if x>1 then     writeln('y = ', sin(2*x)*sin(2*x)*sin(2*x)-cos*x*x) else if x=1 then     writeln('y = ', 1) else if x<1 then    writeln('y = ', sqrt(abs(ln(x*x)+2)) ); else if ('x не попал в диапазон')   end.Почему программа не выполняется?