Ответы и объяснения

2013-05-16T22:46:07+04:00
Var a,b,c,d,x1,x2 : real;
begin
writeln('Введите: a,b,c');
read(a,b,c);
d:=b*b-4*a*c;
if (d > 0) then
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
write ('x1=',x1,' x2=',x2);
end else
if (d = 0) then
begin
x1:=-b/2*a;
write('x1=',x1);
end else
write('Корней нет.');
end.
2013-05-17T02:12:56+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program KVUR;
Var A, B, C, D, X1, X2 : Real;
begin
  writeln ('Введите коэффициенты уравнения A, B, C ');
  write ('A = ');  readln(a);
  write ('B = ');  readln(b);
  write ('C = ');  readln(c);
  if A=0 then
    if B=0 then
      if C=0 then writeln('X - любое число')
        else writeln('Корней нет! ')
      else
        begin
          X1:=-C/B;
          writeln('X=',X1);
        end
    else
      begin
        D:=B*B-4*A*C;
        if D<0 then writeln ('Корней нет!')
          else
            begin
              X1:=(-B+sqrt(D))/2/A;
              X2:=(-B-sqrt(D))/2/A;
              writeln ('X1=', X1, ' X2=',X2);
            end;
      end;
End.