Câu 1: em hãy lập chương trình tính căn bậc 2 trong Free Pascal. Các bạn ơi giúp mình với! cảm ơn các bạn!

2 câu trả lời

$#Ric$

Em tham khảo:

uses crt;

var a,b,c,x1,x2,d:real;

BEGIN

 clrscr;

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

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

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

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

 if d>0 then

  begin

   x1:=(-b+sqrt(d))/(2*a);

   x2:=(-b-sqrt(d))/(2*a);

   writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);

  end

 else if d=0 then

  begin

   x1:=(-b)/(2*a);

   writeln('PT co nghiem kep la: ',x1:0:2);

  end

 else writeln('PT vo nghiem');

 readln

END