Program
mencari_akar_persamaan_kuadrad_dengan_rumus_abc;
uses wincrt;
var
a,b,c,d,x1,x2 :real;
begin
writeln('Menghitung akar-akar
persamaan kuadrat');
write('masukkan nilai a :
');readln(a);
write('masukkan nilai b :
');readln(b);
write('masukkan nilai c :
');readln(c);
d:=(b*b) - (4*a*c);
if d < 0 then writeln('karena D
< 0, akar tidak real dan tidak dapat dicari')
else
begin
x1:=(-b + (sqrt(d)))/(2*a);
x2:=(-b - (sqrt(d)))/(2*a);
writeln;
writeln('nilai X1 = ',x1:0:2);
writeln('nilai x2 = ',x2:0:2);
write('Terimakasih');
end;
end.
No comments:
Post a Comment