Giải phương trình bậc nhất, bậc hai

[tathivanchung]

[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.

Mọi người cho mình hỏi là làm sao để giải phương trình bậc nhất, bậc hai vậy ạ. Hướng dẫn mình cách nào càng nhanh, càng ngắn gọn càng tốt ạ.

 

[stardustdragon]

Mọi người cho mình hỏi là làm sao để giải phương trình bậc nhất, bậc hai vậy ạ. Hướng dẫn mình cách nào càng nhanh, càng ngắn gọn càng tốt ạ.

Program Phuong_Trinh_Nhat_Program;
uses crt;
Var a,b,x:real;
Begin
Clrscr;
Writeln(‘GIAI PHUONG TRINH BAC NHAT: AX + B=0′);
Write (‘Nhap a= ‘); readln(a);
Write (‘Nhap b= ‘);readln(b);
If(a=0) then
If(b=0) then
Writeln(‘ Phuong trinh co vo so nghiem’)
Else
writeln(‘ Phuong trinh vo nghiem’)
Else
Writeln(‘Phuong trinh co nghiem x=’,-b/a:4:2);
Readln;
End.

 

[stardustdragon]

 Uses crt;
  Var
    a,b,c:real;
    d:real;
  BEGIN
  write('Nhap a = ');readln(a);
  write(' b = ');readln(b);
  write('c = ');readln(c);
    If a=0 then write('Phuong trinh vo nghiem !')
    Else
      Begin
        D:=b*b-4*a*c;
        If d=0 then write('Phuong trinh co nghiem kep x1=x2=',-b/(2*a));
        If d<0 then write('Phuong trinh vo nghiem');
        If d>0 then
          Begin
            Writeln('Phuong trinh co 2 nghiem phan biet:');
            Write('x1=',(-b+sqrt(d))/(2*a));
            Writeln;
            Write('x2=',(-b-sqrt(d))/(2*a));
          End;
      End;
      readln
 END.