Giải phương trình bậc hai dạng a*sqr(x)+b*x+c=0

PROGRAM CT51;
USES crt;
VAR A,B,C,X1,X2,D: REAL;
BEGIN
Writeln('Chuong trinh giai phuong trinh bac hai: A*sqr(x)+B*x+c=0 (A<>0 )');
Write('Nhap A, B, C : '); Readln(A,B,C);
D:=sqr(b)-4*A*c;
IF D<0 THEN Write('Phuong trinh vo nghiem ')
ELSE
BEGIN
X1:=(-B-sqrt(D))/(2*A); X2:=-b/a-X1;
Writeln('Phuong trinh co hai nghiem ');
Write(' X1 = ',X1:4:2); Write(' X2 = ',X2:4:2);
END;
Readln
END.

Download: http://www.mediafire.com/?4398z5vz6bmdmo5