Program akar_pers_kuadrat;
uses crt;
var
x1,x2, a, b, c,D :real;
begin
clrscr;
writeln('Mencari Akar Persamaan Kuadrat.');
write('Masukkan Koefisien a = ');readln(a);
write('Masukkan Koefisien b = ');readln(b);
write('Masukkan Koefisien c = ');readln(c);
D:=b*b-4*a*c;
if D=0 then
begin
x1:=(-b-sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
x1:=x2;
writeln('Nilai akar-akarnya sama.');
writeln('x1 dan x2 = ',x1:1:1); readln;
end
else
if D>0 then
begin
x1:=(-b-sqrt(D))/2*a;
x2:=(-b+sqrt(D))/2*a;
writeln('x1 = ',x1:1:1);
writeln('x2 = ',x2:1:1);
end
else
writeln('Merupakan akar-akar yang tidak real'); readln;
end.
Tidak ada komentar:
Posting Komentar