Program persamaan kuadrat
Download as DOCX, PDF0 likes214 views
This program solves quadratic equations by taking user input for values a, b, and c. It then calculates the discriminant D and determines if the roots are real/imaginary or equal/different based on whether D is less than, equal to, or greater than 0. The program outputs the calculated roots and asks the user if they want to try another equation.
1 of 2
Download to read offline
Program persamaan kuadrat
- 1. Program Persamaan Kuadrat program perskuadrat; uses wincrt; var name : string; Mau_coba_lagi : string; a,b,c,D,x1,x2:real; begin repeat clrscr; writeln('Welcome to Program Persamaan Kuadrat'); write('Masukkan nilai a: '); readln(a); if a=0 then begin writeln('Maaf nilai a tidak boleh sama dengan 0'); end else begin write('Masukkan nilai b: '); readln(b); write('Masukkan nilai c: '); readln(c); D:=(b*b)-(4*a*c); writeln('D = ',D:5:2); if D<0 then begin writeln('D<0'); writeln('x1 dan x2 tidak real atau imajiner'); end else if D=0 then begin writeln('D=0'); writeln('x1 dan x2 real dan sama'); x1:=(-b+(sqrt(D)))/(2*a);
- 2. x2:=(-b-(sqrt(D)))/(2*a); writeln('x1= ',x1:5:2); writeln('x2= ',x2:5:2); end else if D>0 then begin writeln('D>0'); writeln('x1 dan x2 real dan berlainan'); x1:=(-b+(sqrt(D)))/(2*a); x2:=(-b-(sqrt(D)))/(2*a); writeln('x1= ',x1:5:2); writeln('x2= ',x2:5:2); end; end; writeln('Mau coba lagi ? Y or N'); readln(Mau_coba_lagi); until Mau_coba_lagi='N' end.