Viết Chương Trình Giải Phương Trình Bậc Hai Với Yêu Cầu. - Selfomy

Có thể bạn quan tâm

Program Giai_PT_bac_hai;

uses crt;

var a,b,c,delta:real;

{———————-}

Procedure delta_duong;

begin

write(‘Phuong trinh co hai nghiem x1=’,(-b+sqrt(delta))/(2*a),’x2=’,(-b+sqrt(delta))/(2*a));

end;

{———————}

Procedure delta_khong;

begin

write(‘Phuong trinh co nghiem kep x=’,-b/(2*a):3:1);

end;

{——————–}

Procedure delta_am;

begin

writeln(‘Phuong trinh vo nghiem’);

end;

{Chuong trinh chinh}

Begin

clrscr;

write(‘Nhap a: ‘);readln(a);

write(‘Nhap b: ‘);readln(b);

write(‘Nhap c: ‘);readln(c);

delta:=b*b-4*a*c;

if delta>0 then delta_duong

else if delta = 0 then delta_khong

else delta_am;

readln

end.