October 11, 2012

program mencari akar persamaan kuadrat



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

October 11, 2012

program mencari akar persamaan kuadrat



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