program akar_persamaan_kuadrat;
uses wincrt;
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.
Jumat, 17 Oktober 2008
Program Menghitung persamaan kuadrat
Diposting oleh indrawsp di 07.15
Subscribe to:
Posting Komentar (Atom)
0 Comments:
Post a Comment