Решение квадратных уравнений

@}{оТт@бь)ч · Регистрация: 07.12.2009

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

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

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
INPUT "ВВЕДИТЕ ЗНАЧЕНИЕ А";A
INPUT "ВВЕДИТЕ ЗНАЧЕНИЕ B";B
INPUT "ВВЕДИТЕ ЗНАЧЕНИ С";C
PRINT "(D-ЭТО ДИСКРИМЕНАНТ.)"
D=B^2-4*A*C
PRINT"D=";D
X1=-B+SQR(D)/2*A
X2=-B-SQR(D)/2*A
X=-B/2*A
IF D<0 THEN PRINT "РЕШЕНИЙ НЕТ"
IF D=1 THEN PRINT X
IF D>1 THEN PRINT X1 AND X2
END

@кот Бегемот · 25.05.2010, 17:31

смотри пост #4 в теме

https://www.cyberforum.ru/qbas... 26680.html

ошибки:

INPUT "ВВЕДИТЕ ЗНАЧЕНИЕ А";A

если пользователь введёт 0, у вас вообще ничего не получится

X1=-B+SQR(D)/2*A
X2=-B-SQR(D)/2*A

на а надо делить, а вы умножаете

X=-B/2*A

это ещё что?

IF D<0 THEN PRINT "РЕШЕНИЙ НЕТ"

это надо было сразу писать, а вы сначала заставляете компьютер вычислить корень из отрицательного числа, чтобы программа выдала сообщение об ошибке и перестала работать

IF D=1 THEN PRINT X

Это что ещё за математические новинки?

IF D>1 THEN PRINT X1 AND X2

слово and связывает условия, а не вывод корней, команда ошибочна
и причём здесь D>1? Это тоже новости математики

@}{оТт@бь)ч · 25.05.2010, 19:24 **[ТС]**

На сколько мне известно, то если дискрименант больше нуля, то будет 2 корня. А если дискременант равен 0, то будет один корень, ну а если дискрименант меньше нуля, то решения нет. x=-b/2*a- по этой формуле мы работаем, когда дискременант равен 0. А по формулам x1=....... и x2=..... мы работаем когда дискрименант больше 0.

@кот Бегемот · 25.05.2010, 20:54

Я не знаю, что там тебе известно, но у квадратного уравнения всегда ровно два корня, просто они могут быть действительными или мнимыми, разными или одинаковыми, но их всегда два, поэтому моя программа всё это учитывает, а ты, к моему сожалению, не только информатику, но и математику фигово знаешь, поэтому прежде, чем делать замечания серьёзным людям, внимательно прочитай учебник алгебры за 8 класс.

@}{оТт@бь)ч · 25.05.2010, 21:31 **[ТС]**

Да я и не хотел никому замечаний делать. Просто я мысль свою не правильно выразил. Так что извените если что не так.

Добавлено через 4 минуты
И спасибо за всё.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@}{оТт@бь)ч 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 27
	25.05.2010, 19:24 [ТС]
	На сколько мне известно, то если дискрименант больше нуля, то будет 2 корня. А если дискременант равен 0, то будет один корень, ну а если дискрименант меньше нуля, то решения нет. x=-b/2*a- по этой формуле мы работаем, когда дискременант равен 0. А по формулам x1=....... и x2=..... мы работаем когда дискрименант больше 0. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	25.05.2010, 20:54
	Я не знаю, что там тебе известно, но у квадратного уравнения всегда ровно два корня, просто они могут быть действительными или мнимыми, разными или одинаковыми, но их всегда два, поэтому моя программа всё это учитывает, а ты, к моему сожалению, не только информатику, но и математику фигово знаешь, поэтому прежде, чем делать замечания серьёзным людям, внимательно прочитай учебник алгебры за 8 класс. 0

@}{оТт@бь)ч 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 27
	25.05.2010, 21:31 [ТС]
	Да я и не хотел никому замечаний делать. Просто я мысль свою не правильно выразил. Так что извените если что не так. Добавлено через 4 минуты И спасибо за всё. 0