program menghitung_akar_persamaan_kuadrat;
uses wincrt;
var
a,b,c,x1,x2,D:real;
begin
writeln(‘Mencari akar-akar persamaan kuadrat(a*x*x+b*x+c=0) ‘);
write(‘————————————————–’);
writeln;
write(‘a= ‘);read(a);
write(‘b= ‘);read(b);
write(‘c= ‘);read(c);
D:=(b*b)-4*a*c;
if D=0 then
begin
x1:=-b/2*a;
x2:=x1;
writeln(‘Akar-akar persamaan kuadrat adalah: ‘);
write(‘x1=x2= ‘,x1:5:2);
end;
if D >0 then
begin
x1:=(-b+sqrt(D))/2*a;
writeln(‘Akar-akar persamaan kuadrat adalah: ‘);
write(‘x1= ‘,x1:5:2,’ dan x2= ‘,x2:5:2);
end;
if D<0 then
begin
writeln(‘Akar-akar persamaan kuadrat adalah imajiner’);
end;
end.
0 komentar:
Speak up your mind
Tell us what you're thinking... !