Untitled

mail@pastecode.io avatar
unknown
pascal
a year ago
725 B
5
Indexable
Never
program giai_phuong_trinh_bac_2;

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

begin
  // Nhập giá trị của a, b và c từ bàn phím
  writeln('Nhap a: ');
  readln(a);
  writeln('Nhap b: ');
  readln(b);
  writeln('Nhap c: ');
  readln(c);

  // Tính delta
  delta := b*b - 4*a*c;

  // Kiểm tra giá trị của delta
  if delta < 0 then
    writeln('Phuong trinh vo nghiem')
  else if delta = 0 then
  begin
    x1 := -b / (2*a);
    writeln('Phuong trinh co nghiem kep x = ', x1:0:2);
  end
  else
  begin
    x1 := (-b + sqrt(delta)) / (2*a);
    x2 := (-b - sqrt(delta)) / (2*a);
    writeln('Phuong trinh co hai nghiem phan biet');
    writeln('x1 = ', x1:0:2);
    writeln('x2 = ', x2:0:2);
  end;

  readln;
end.