Developing.ru

Имеются квадратные уравнения вида A(i)X^2+B(i)*X+C(i)=0 коэффиценты которых заданы в виде трех масивов вещественного типа А(8) B(8) C(8) составте процедуру вычисления действительных корней уравнения, если таковых нет то сделайте соответствующее сообщение

И что именно представляет сложность? Найти D=b^2-4ac? Сравнить его с нулем? Вычислить (-b +/- sqr(D))/2a? Оформить это в виде процедуры? Вызвать ее в цикле от 1 до 8?

Хыиуду писал(а):И что именно представляет сложность? Найти D=b^2-4ac? Сравнить его с нулем? Вычислить (-b +/- sqr(D))/2a? Оформить это в виде процедуры? Вызвать ее в цикле от 1 до 8?

Оформить это в виде процедуры, Вызвать ее в цикле от 1 до 8, заранее благодарен.

Подпрограмма:
function d(a,b,c: real): real;
begin d:=b*b-4*a*c; end;

Цикл:
for i:=1 to 8 do begin
{тут тот код, который надо выполнить}
end;

Мне, как и большинству здешних долгожителей, не представляет никакой сложности написать полный код. Но для вас будет гораздо больше пользы, если вы попытаетесь это сделать самостоятельно, а не будете скрывать желание, чтобы за вас все сделали и выдали вам на тарелочке готовенькое под набившей оскомину формулировкой "Помогите мне решить". Помочь - поможем, объяснить - объясним, делать все за вас - не хочется.