Màu nền Màu tối Mặc định Xám nhạt Xanh nhạt Xanh đậm Vàng nhạt Màu sepia Vàng đậm Vàng ố

Font chữ: Palatino Linotype Bookerly Segoe UI Patrick Hand Times New Roman Verdana Tahoma Arial

Chiều cao dòng: 100 120 140 160 180 200

Kích cỡ chữ:

program phtrinhb2;

uses crt;

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

begin

clrscr;

write('nhap vao ba he so a,b,c '); readln(a,b,c);

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

if delta < 0 then

begin

write('phuong trinh da cho vo nghiem , xin moi nhap lai he so');

end

else

begin

if delta =0 then write('phuong trinh co nghiem kep x1= x2= ',-b/(2*a))

else writeln('phuong trinh co hai nghiem phan biet x1= ',(-b+sqrt(delta))/(2*a):7:2 ,

' va x2 = ', (-b+sqrt(delta))/(2*a):7:2);

end;

readln;

end.