bài 1: viết chương trình giải phương trình bậc nhất bài 2: viết chương trình giải phương trình bậc 2

0 bình luận về “bài 1: viết chương trình giải phương trình bậc nhất bài 2: viết chương trình giải phương trình bậc 2”

1. Câu 1:

   uses crt;
   var a,b:extended;
   {—a=0—}
   procedure TH1;
   begin
          writeln(‘PT co vo so nghiem’);
   end;
   {———}
   procedure TH1_1;
   begin
          writeln(‘PT vo nghiem’);
   end;
   {—a<>0—}
   procedure TH2;
   begin
          writeln(‘PT co 1 nghiem duy nhat: x=’,-b/a:0:2);
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
          clrscr;
          write(‘Nhap a,b: ‘); readln(a,b);
          if a=0 then if b=0 then TH1
                 else TH1_1
          else TH2;
          readln;
   END.

   Câu 2:

   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
           write(‘PT co 2 nghiem phan biet: x1=’,(-b+sqrt(delta))/(2*a):0:2,’; 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.

   Bình luận