В качестве контрольного примера подобрать уравнение 2-ого порядка. Получить решение в ручную и по нему проверить программу. После отладки программы сформировать уравнение 2-ого порядка, коэффициенты которого выбрать с использованием датчика случайных чисел( стандартная функция ПАСКАЛЯ RANDOM)
(Мы сам задаем любое уравнение и решаем его вручную) и потом пишем прогуэ
напиши алгоритм решения как сам решал бы... способов-то много
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
label2.caption:=s; D:=(k2*k2)-(4*k1*(-c)); {Нашли дискриминант} label4.caption:=inttostr(d); if d<0 then showmessage('Корней нет.'); {Такой ситуации не должно возникнуть при моих параметрах Random}
if d=0 then begin label7.Caption:=floattostr(-k2/(2*k1)); {Находим один корень при дискриминанте равном 0} end;
if d>0 then begin label7.Caption:=floattostr((-k2+sqrt(D))/(2*k1)); {Находим два корня при дискриминанте > 0} label8.Caption:=floattostr((-k2-sqrt(D))/(2*k1)); end; end;
Программа решает уравнение со случайными коэффициентами...
--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."