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
Loga
Sinh Học lớp 12
