Question

создать программу для решения квадратного уравнения
2 0
a ⋅ x + b ⋅ x + c = (a,b,c – вводятся с клавиатуры), с помощью
оператора if рассматреть все случаи дискриминанта (в случае D<0 вывести
сообщение нет корней);

Answer 1

program kv;
var  
a,b,c,D,x1,x2:real;
    begin    
Write('a= ');    
ReadLn(a);    
Write('b= ');    
ReadLn(b);    
Write('c= ');    
ReadLn©;
 D:=b*b-4*a*c;
 if d<0  then writeln('НЕТУ КОРЕНЕЙ')  
else if d=0 then writeln('ОДИН КОРЕНЬ= ',-b/2*a)
  else begin          
d:=sqrt(d);          
x1:=(-b+d)/(2*a);        
  x2:=(-b-d)/(2*a);      
    WriteLn('x1=',x1);      
    WriteLn('x2=',x2);      
  end;   end.

Answer 2

const
         text1='Enter a,b and c:';
         text2='D=';
         text3='There are no roots!';
         text4='x=';
         text5='x1=';
         text6='x2=';
         text7='Press any key to continue';
var
     a,b,c,x,x1,x2,D:real;
begin
write(text1);
readln(a,b,c);
D:=sqr(b)-4*a*c;
writeln(text2,D);
if D<0 then
writeln(text3)
else if D=o then
begin
 x:=-b/(2*a);
writeln(text4,x);
end
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(text5,x1);
writeln(text6,x2);
end;
end.