Ребят, всем привет.
Так как в VB 6.0 пока не очень рублю, но уже изучаю с помощью различных сайтов, то хотелось бы попросить у вас помощи.
Мне задали задание, в котором надо написать прогу, решающую квадратное уравнение при всех возможных значениях коэффицентов.

Заранее благодарю.
И если не затруднить, то с комментариями, чтобы я разобрался...

Хм, а иррациональный ответ нужно ?
Если нет, то что там решать-то ? Ставишь 3 поля для ввода a, b, c, поля для вывода ответа.

Код

Dim a,b,c,x1,x2as Variant x1 = (-b + sqr(b^2 - 4*a*c)) / 2*a x2 = (-b - sqr(b^2 - 4*a*c)) / 2*a

Это сообщение отредактировал(а) Spawn™Production® - 18.9.2005, 18:54

Иррациональные тоже нужно

Иррациональные в десятичном виде? Сделай округление по пятой цифре после запятой и все...

А для комплексных ответов сделай/найди в инете тип комплексное число и с ним работай. Если будешь делать свой тип, то сделай вектор.

кстати, вполне имеет право а=0

Цитата(Akina @ 19.9.2005, 07:35)

стати, вполне имеет право а=0

Только уравнение тогда уже неквадратное.

Вот стандартный вариант решения квадратного уравнения:
http://ipg.h1.ru/lessons/ci/les31.html

Цитата(cardinal @ 19.9.2005, 11:27)

Только уравнение тогда уже неквадратное.

нет. просто особый случай.
Т.е. уравнение 2*x-4=0 имеет один корень, а уравнение 0*x^2+2*x-4=0 имеет 2 равных корня.

Ему уже больше ничего не нужно
Оказалось, что иррациональность даже не нужны

Это сообщение отредактировал(а) Spawn™Production® - 21.9.2005, 19:26

to akina: а уравнение
0*x^2+b*x+c=0
попробуй решить по учебнику! Интересно, как будешь делить на 4*0? Или все-таки "уравнением n-й степени называется у-е, в левой части которого стоит многочлен с максимальной степенью при неизвестном, около которого стойт ненулевой коэф., равной n"? Поэтому вышеуказанное у-е не квадратное. А еще рассуждая об "одинаковых корнях" - тогда любое уравнение, имеющее решение, имеет бесконечное множество корней.

Надо чтобы еще комплексные корни в ответе были(Если есть, т.е. D<0).
Простая математика.

Кому надо?

Цитата(Guest @ 9.10.2005, 23:30)

to akina: а уравнение 0*x^2+b*x+c=0 попробуй решить по учебнику! Интересно, как будешь делить на 4*0? Или все-таки "уравнением n-й степени называется у-е, в левой части которого стоит многочлен с максимальной степенью при неизвестном, около которого стойт ненулевой коэф., равной n"? Поэтому вышеуказанное у-е не квадратное. А еще рассуждая об "одинаковых корнях" - тогда любое уравнение, имеющее решение, имеет бесконечное множество корней.

Уравнения по учебнику - глупость и бред сивой кобылы. Средство для поднятия уровня интеллекта до табуретки. И там до звезды сколько корней.
А вот когда речь идет о реальных процессах, которые описываются реальными зависимостями, имеющими под собой физическую основу, нулевой коэффициент - такой же значащий, как и ненулевой, и кратность корня может иметь весьма важное значение. И в таких случаях заявлять что корень один или что их сколь угодно много - весьма серьезное основание для обвинения в непрофессионализме.

Цитата

Надо чтобы еще комплексные корни в ответе были

Способов несколько. Гость_Profi, советую написать программу, которая рисует комплексную плоскость + радиус-вектор. Предположим у тебя дискриминат = -1. Тогда возьмем соответственно a1,a2 = value1 +- i*value2, где a1,a2- корни, value1 - действительная часть, i*value2 - мнимая часть.

|value1 + i*value2| = r = sqrt(x^2 + y^2) - находим соответственно r, x и y известны (из формулы). Далее по формуле: cos(fi) = x/r и sin(fi) = y/r. Находим угол (для удобства в радианах). Далее все сводится к формуле: (cos(fi) + i*sin(fi)) ^ (1/n) = (r ^ (1/n)) * (cos (fi + 2*Пи*K)/n + i*sin(fi + 2*Пи*K)/n), где k=0,1,....,n-1. Находим корни. Осталось только написать программку.Гость_Profi, советую самому подумать, а то не интересно, когда за тебя все решит кто-то другой.

А зачем рисовать комплексную плоскость?

Для наглядности.