составьте программку для решения 2-ух квадратных уравнений используя функцию решения

Question

Составьте программку для решения двух квадратных уравнений используя функцию решения квадратного уравнения

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Мишаня Горитченов · Answer 1 · 2019-09-26 18:48:18+3:00

Мишаня Горитченов 2019-09-26 18:48:18

Var a,b,c,d,x1,x2: real;

Begin

Clrscr;

Write('введите коэффициенты уравнения a,b,c'); readln(a,b,c);

D:=b*b-4*a*c;

If dgt;=0 then

Begin

X1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);

Writeln('x1=',x1' x2=',x2)

END;

Else writeln('реальных корней нет')

End.

Кирилл Палежаев 2019-09-26 18:57:29

ошибка в конце, оператора нет

Колька Кульбаков 2019-09-26 18:59:14

все там есть

Арсений Думба 2019-09-26 19:01:36

перед END строчкой выше необходимо поставить ;

Евген Камсюк 2019-09-26 19:06:29

встречено'else', а ожидался оператор