Решение квадратного уравнения методом бисекции.

@olfgur · Регистрация: 31.10.2011

Студворк — интернет-сервис помощи студентам

Подскажите с решением одной небольшой задачки,где я немного запутался.
Нужно решить квадратное уравнение методом бисекции (деление отрезка пополам). Самое главное,что дано стандартное уравнение f(x)=ax^2+bx+c. Не дано интервала, это как общий случай.
Создал тему в Pascal ABC, потому что сам пока программирую в этой программе.

@olfgur · 02.11.2011, 22:26 **[ТС]**

program qq;
uses crt;
var a,b,c,d,x1,x2,y0,z1,y2,y1,t,e,eps,x0,z,p 1,p2,d1:real;
M:integer;
begin
writeln('Введите коэффициенты квадратного уравнения a,b,c. А также введите точность [0;1]: ');
readln(a,b,c,eps);
if a<0 then
begin
a:=-a;
b:=-b;
c:=-c;
end;
d:=c-b*b/(4*a);
if d=0 then
begin
x1:=-b/(2*a);
writeln('x1=x2=', x1);
end;
if d>0 then
begin
writeln('Корней нет.');
end;
y0:=-b/(2*a);
y1:=y0+10;
z1:=a*y1*y1+b*y1+c;
if z1<0 then
begin
d:=-d;
y2:=d*(y0-y1)/(z1-d)+y0;
end
else
begin
y2:=y1;
x0:=y0;
end;
repeat
t:=(y0+y2)/2;
z:=a*t*t+b*t+c;
if z>0 then
begin
y2:=t;
end
else
begin
y0:=t;
e:=y2-y0;
until e>eps;
x2:=y2;
x1:=2*x0-x2;
M: writeln('Корни уравнения:',x1,x2);
end;
end.

Текст самой программы, но все ли так?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@olfgur 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 4

	Решение квадратного уравнения методом бисекции. 31.10.2011, 22:15. Показов 3113. Ответов 1 Метки нет (Все метки) Подскажите с решением одной небольшой задачки,где я немного запутался. Нужно решить квадратное уравнение методом бисекции (деление отрезка пополам). Самое главное,что дано стандартное уравнение f(x)=ax^2+bx+c. Не дано интервала, это как общий случай. Создал тему в Pascal ABC, потому что сам пока программирую в этой программе. 0

@olfgur 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 4
	02.11.2011, 22:26 [ТС]
	program qq; uses crt; var a,b,c,d,x1,x2,y0,z1,y2,y1,t,e,eps,x0,z,p 1,p2,d1:real; M:integer; begin writeln('Введите коэффициенты квадратного уравнения a,b,c. А также введите точность [0;1]: '); readln(a,b,c,eps); if a<0 then begin a:=-a; b:=-b; c:=-c; end; d:=c-bb/(4a); if d=0 then begin x1:=-b/(2a); writeln('x1=x2=', x1); end; if d>0 then begin writeln('Корней нет.'); end; y0:=-b/(2a); y1:=y0+10; z1:=ay1y1+by1+c; if z1<0 then begin d:=-d; y2:=d(y0-y1)/(z1-d)+y0; end else begin y2:=y1; x0:=y0; end; repeat t:=(y0+y2)/2; z:=att+bt+c; if z>0 then begin y2:=t; end else begin y0:=t; e:=y2-y0; until e>eps; x2:=y2; x1:=2x0-x2; M: writeln('Корни уравнения:',x1,x2); end; end. Текст самой программы, но все ли так? 0