Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement