Program vidu2;
Uses crt;
Var
a,b,c: real;
delta,x1,x2:read;
Begin
Clrscr;
Write(‘ nhap a,b,c); readln(a,b,c);
Delta:=b2-4ac;
If delta=0 then
Writeln(‘phuong trinh co nghiem kep,’ –b/2a);
Else
If delta>0 then
x1:= (-b+ )/2a;
x2:=(-b- )/2a;
Writeln(‘phương trinh co 2 nghiem,’x1,x2);
If delta<0 then
Writeln(‘Phuong trinh vo nghiem’);
Readln
End.
tìm và sửa lỗi sai của chương trình
Program vidu2;
Uses crt;
Var
a,b,c: real;
delta,x1,x2:real;
Begin
Clrscr;
Write(‘ nhap a,b,c’); readln(a,b,c);
Delta:=b*b-4*a*c;
If delta=0 then Writeln(‘phuong trinh co nghiem kep,‘ –b/(2*a):0:3) {Không có ;}
Else If delta>0 then
begin
x1:= (-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
Writeln(‘phuong trinh co 2 nghiem,‘x1:0:3,x2:0:3);
end;
If delta<0 then Writeln(‘Phuong trinh vo nghiem‘);
Readln
End.
*Chỗ in đậm là chỗ sửa nhé.
Program vidu2;
Uses crt;
Var
a,b,c: real;
delta,x1,x2:real;
Begin
Clrscr;
Write(‘Nhap a,b,c: ‘); readln(a,b,c);
Delta:=b*b-4*a*c;
If delta=0 then
Writeln(‘Phuong trinh co nghiem kep: ‘,–b/(2*a)
Else
If delta>0 then
x1:= (-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
Writeln(‘Phuong trinh co 2 nghiem phan biet: ‘,x1:0:2,x2:0:2);
If delta<0 then
Writeln(‘Phuong trinh vo nghiem’);
Readln
End.