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.