Program Akar Persamaan Kuadrat

 program akar_persamaan_kuadrat;

uses crt;

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

begin

clrscr;

write('masukkan koefisien persamaan kuadrat :'); readln (a,b,c);

writeln('persamaan kuadrat :',a,'x^2+',b,'x+',c);

if a=0 then write ('ini bukan persamaan kuadrat')

else

begin

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

if d>0 then

begin

writeln('persamaan kuadrat ini memiliki akar yang berbeda');

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

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

writeln('akar-akarnya:',x1:3:2,' dan ',x2:3:2);

end

else if d=0 then

begin

writeln('punya akar kembar');

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

writeln ('akar-akarnya:',x1:3:2);

end

else

writeln ('persamaan kuadrat anda berakar kompleks');

end;

end.

Kemudian saya coba, untuk A = 0 (0x2 + 9x +8) maka hasilnya : ‘ini bukan persamaan kuadrat’

Berikut screnshotnya :



Untuk D > 0 (-x2 + 2 x + 9 = 0) maka hasilnya : ‘persamaan kuadrat ini memiliki akar yang berbeda; yaitu -2,16 dan 4,16'

Berikut screnshotnya :



Untuk D = 0 (x2 – 4x + 4 = 0) maka hasilnya : ‘persamaan kuadrat punya akar kembar yaitu 2,00’

Berikut screnshotnya :



Untuk D < 0 (9x2 + 8x + 7 = 0 ) maka hasilnya : 'persamaan kuadrat anda berakar komleks' Berikut screnshotnya :

Sumber info : masalimaruf.blogspot.com