Tin học Bài tập tin học lớp 11 pascal

[Duy Khánh HA]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình giải phương trình bậc hai [tex]ax^{2}+bx+c=0[/tex]

 

[Duy Khánh HA]

Viết chương trình giải phương trình bậc hai [tex]ax^{2}+bx+c=0[/tex]

@Thiên Thuận

 

[Ray Kevin]

var a,b,c,dk:real;
begin
writeln('Nhap a,b,c: '); readln(a,b,c);
if a=0 then
begin
if (b=0) and (c=0) then writeln('PT co nghiem dung voi moi x thuoc R') else
if b=0 then writeln('PTVN') else
writeln( ((0-c)/b):7:3 );
end else
begin
dk:=b*b - 4*a*c;
if dk < 0 then writeln('PTVN') else
if dk=0 then writeln( ((0-b)/(2*a)):7:3) else
writeln( ((b+sqrt(dk))/(2*a)):7:3, ((0-b-sqrt(dk))/(2*a)):7:3 );
end;
readln;
end.

 

[Duy Khánh HA]

var a,b,c,dk:real;
begin
writeln('Nhap a,b,c: '); readln(a,b,c);
if a=0 then
begin
if (b=0) and (c=0) then writeln('PT co nghiem dung voi moi x thuoc R') else
if b=0 then writeln('PTVN') else
writeln( ((0-c)/b):7:3 );
end else
begin
dk:=b*b - 4*a*c;
if dk < 0 then writeln('PTVN') else
if dk=0 then writeln( ((0-b)/(2*a)):7:3) else
writeln( ((b+sqrt(dk))/(2*a)):7:3, ((0-b-sqrt(dk))/(2*a)):7:3 );
end;
readln;
end.

CẢm ơn nhưng bạn có thể viết thành chương trình hoàn chỉnh được không

 

[Ray Kevin]

CẢm ơn nhưng bạn có thể viết thành chương trình hoàn chỉnh được không

Hoàn chỉnh rồi đấy ^^