Viết chương trình giải phương trình bậc 2 với yêu cầu sử dụng chương trình con để giải quyết các trường hợp x/r của delta
giải gấp giúp e với ạ, e cần gấp lắm luôn
Viết chương trình giải phương trình bậc 2 với yêu cầu sử dụng chương trình con để giải quyết các trường hợp x/r của delta
giải gấp giúp e với ạ, e cần gấp lắm luôn
uses crt;
var delta:extended;
a,b,c:longint;
{—Vo-nghiem—}
procedure delta_am;
begin
write(‘PT vo nghiem’);
end;
{—Co-nghiem-kep—}
procedure delta_khong;
begin
write(‘PT co nghiem kep: x1=x2=’,-b/(2*a):0:2);
end;
{—Co-2-nghiem-phan-biet—}
procedure delta_2;
begin
writeln(‘PT co 2 nghiem phan biet: ‘);
writeln(‘x1=’,(-b+sqrt(delta))/(2*a):0:2);
writeln(‘x2=’,(-b-sqrt(delta))/(2*a):0:2);
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap a,b,c: ‘); readln(a,b,c);
delta:=b*b-4*a*c;
if delta<0 then delta_am
else if delta=0 then delta_khong
else delta_2;
readln;
END.
Mình không biết x/r của delta nên mình là chương trình con hết.
uses crt;
var a,b,c,d:longint;
procedure delta;
begin
d:=sqr(b)-4*a*c;
writeln(‘Delta= ‘,d);
end;
procedure timnghiem;
begin
if d<0 then writeln(‘Phuong trinh vo nghiem’);
if d=0 then writeln(‘Phuong trinh co nghiem kep: x1=x2=-(b/(2*a))=’,-(b/(2*a)));
if d>0 then
begin
writeln(‘Phuong trinh co 2 nghiem phan biet: ‘);
writeln(‘x1=(-b+sqrt(delta))/2*a=’,(-b+sqrt(d))/2*a:0:2);
writeln(‘x2=(-b-sqrt(delta))/2*a=’,(-b-sqrt(d))/2*a:0:2);
end;
end;
begin
clrscr;
write(‘Nhap a,b,c:’);readln(a,b,c);
Delta;
timnghiem;
readln;
end.