viết chương trình bậc 2 với a#0, dữ liệu vào cho bởi tệp VD4.inp gồm 3 dòng, dòng 1 chứa hệ số a, dòng 2 chứa hệ số b, dòng 3 chứa hệ số c, dữ liệu ra cho bởi tệp VD4.out. ghi nghiệm của phương trình, mỗi nghiệm viết riêng 1 dòng, nếu phương trình VN viết VN, nếu phương trình VSN viết VSN
m.n giúp mình với ạ...mk đang cần gấp
Bạn tham khảo câu 2 ở link này nhé Câu hỏi của Lê Tuấn Anh - Tin học lớp 11 | Học trực tuyến
const fi='vd4.inp';
fo='vd4.out';
var f1,f2:text;
a,b,c,delta:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a);
readln(f1,b);
readln(f1,c);
delta:=sqr(b)-4*a*c;
if delta>0 then
begin
writeln(f2,'Nghiem thu nhat cua phuong trinh la: ',((-b)-sqrt(delta))/2*a;
writeln(f2,'Nghiem thu hai cua phuong trinh la: ',((-b)+sqrt(delta))/2*a;
end;
if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a);
if delta<0 then writeln(f2,'Phuong trinh vo nghiem');
close(f1);
close(f2);
end.