составить программку квадратного уровнения

Составить программку квадратного уровнения

Задать свой вопрос
1 ответ

var  a,b,c,D,x1,x2:real;    
begin
readln(a,b,c);
D:=b*b-4*a*c;
if Dlt;0 then Writeln('Только комплексные корни')
else

begin

d:=sqrt(d);

x1:=(-b+d)/(2*a);
x2:=(-b-d)/(2*a);
WriteLn('x1=',x1);
WriteLn('x2=',x2);
end;   
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт