Question

Các bạn giúp mình fix lỗi Pascal với, mình in ra màn hình với kết quả 2 nghiệm phân biệt với nghiệm kép thì không sao, mà xuất ra kết quả vô nghiệm thì máy báo lỗi exitcode= 207

Đề bài: Biện luận và xuất nghiệm đơn thức bậc hai

uses crt;

var a,b,c,delta: integer;

x,x1,x2: real;

begin

clrscr;

writeln('Nhap he so a,b,c cua phuong trinh:');

readln(a,b,c);

delta:=b*b-4*a*c;

x:=(-b) / 2*a;

x1:=((-b) - sqrt(delta)) / (2*a);

x2:=((-b) + sqrt(delta)) / (2*a);

if (delta>=0) then

if delta >0 then writeln('Phuong trinh co hai nghiem phan biet:',x1:0:1,' , ',x2:0:1)

else writeln('Phuong trinh co nghiem kep:',x)

else writeln('Phuong trinh vo nghiem');

readln

end.

Answer 1

Dòng 6 bạn sửa lại là writeln('Nhap he so a; b; c cua phuong trinh:');