Bài 15: Thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hằng Phan

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

Minh Lệ
15 tháng 5 2020 lúc 21:43
Nguyễn Lê Phước Thịnh
15 tháng 5 2020 lúc 21:46

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.


Các câu hỏi tương tự
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Yến Chi Phan Nguyễn
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
An Đinh
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
Kiên Tạ
Xem chi tiết
Nguyễn Minh Anh
Xem chi tiết
Nguyễn Thị In
Xem chi tiết