Untitled
unknown
pascal
a year ago
725 B
5
Indexable
Never
program giai_phuong_trinh_bac_2; var a, b, c, delta, x1, x2: real; begin // Nhập giá trị của a, b và c từ bàn phím writeln('Nhap a: '); readln(a); writeln('Nhap b: '); readln(b); writeln('Nhap c: '); readln(c); // Tính delta delta := b*b - 4*a*c; // Kiểm tra giá trị của delta if delta < 0 then writeln('Phuong trinh vo nghiem') else if delta = 0 then begin x1 := -b / (2*a); writeln('Phuong trinh co nghiem kep x = ', x1:0:2); end else begin x1 := (-b + sqrt(delta)) / (2*a); x2 := (-b - sqrt(delta)) / (2*a); writeln('Phuong trinh co hai nghiem phan biet'); writeln('x1 = ', x1:0:2); writeln('x2 = ', x2:0:2); end; readln; end.