Как сгенерировать случайные аргументы квадратного уравнения
Что бы корень дискриминанта был целым? Delphi, объектно-ориентированное
У меня все есть для решения квадратного, мне нужно сгенирировать аргументы
Возводишь рандомное число в квадрат, это твой дискриминант. Далее возводишь ещё одно рандомное число в квадрат, это твой коэффициент B. От B^2 вычитаешь Д, получаешь 4АС. Делишь на 4, А присваиваешь рандомное число, делишь на А. Получаешь С. Вуаля, все коэффициенты готовы. Возможно, не целые, но за целыми нужно усложнять задачку до поиска делителей.
Который "Бэ-квадрат минус 4 а-це"?
В цикле:
Выбери случайное целое число, возведи в квадрат. Это и будет дискриминант.
Выбери случайное бэ, возведи в квадрат.
Быбери случайное а.
Посчитай "цэ" по формуле. Если получилось целое - всё замечательно, выход из цикла.
Если не целое - крути цикл дальше.