Program Persamaan_Kuadrat;
Uses crt;
label menu;
Var A,B,C:integer;
D,X1,X2:real;
ab:char;
Begin
menu:
clrscr;
writeln('Polma Saut Martua Sihotang');
writeln('118130023 / IK-37-01');
writeln('==========================');
writeln;
writeln ('Ax2 + Bx + C = 0');
writeln;
Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Write('Masukkan Nilai C: ');readln(C);
writeln;
D:=sqr(B)-(4*A*C);
if (D>0) then
begin
X1:=(-B+sqrt(D))/2*A;
X2:=(-B-sqrt(D))/2*A;
writeln('X1= ',X1:4:1);
writeln('X2= ',X2:4:1);
end
else
if (D=0) then
begin
X1:=-B/(2*A);
writeln('X1=X2=',X1:4:1);
end
else
writeln('Akar Imajiner!');
writeln('Apakah anda ingin mengulang ? (Y/N) : '); readln(ab);
if (ab='y') or (ab='Y') then goto menu
else if (ab='n') or (ab='N') then
begin
exit;
end;
readln;
End.