Program Mencari Persamaan Kuadrat

PersamaanKuadrat
							

 

Program PersamaanKuadrat;

uses wincrt;

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

begin
					

  clrscr;

						writeln('Menghitung akar-akar persamaan kuadrat');

						writeln('Nilai a,b,c dimasukkan dengan jeda spasi');

						write('Masukkan nilai a,b,c:');

						readln(a,b,c);

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

						if d < 0
						then
						writeln('tidak ada akar real')
					

						else
					

						begin
					

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

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

						writeln('x1 =',x1:6:2);

						writeln('x2 =',x2:6:2);

						end;

						readln;

end.