Примеры прикладных задач

Решение квадратного уравнения

Язык Pascal:

program quadratic_equation;

var
  a, b, c, D, x1, x2: real;


begin
  writeln('Введите a, b, c: ');
  read(a, b, c);

  writeln('Формула: ', a, 'x^2+' ,b, 'x+', c, '=0');
  D := b*b - 4 * a * c;
  writeln('D = b^2-4ac = ', D);

  if D < 0 then writeln('Решений нет')
  else
    if D = 0 then  begin
      x1 := - b / (2 * a);
      writeln('x = ', x1);
    end
    else  begin
      x1 := (-b + sqrt(D)) / (2*a);   
      x2 := (-b - sqrt(D)) / (2*a);   
      writeln('x1 = ', x1);
      writeln('x2 = ', x2);
    end;
end.