RSS

Source Code Pascal “Akar Persamaan Kuadrat”

10 Jan

PROGRAM

AKAR_PERSAMAAN_KUADRAT;

 

USES

WINCRT;

FUNCTION DISKRIMINAN(A:REAL;B:REAL;C:REAL):REAL;

BEGIN

DISKRIMINAN:=(B*B)-(4*A*C);

END;

 

VAR

A,B,C,D,X1,X2:REAL;

J:CHAR;

 

BEGIN

 

REPEAT

 

WRITELN (‘APLIKASI UNTUK MENGHITUNG AKAR-AKAR PERSAMAAN KUADRAT (Ax^2 + Bx + C = 0)’);

 

WRITE (‘MASUKKAN NILAI A DAN TEKAN ENTER: ‘) ;READLN(A);

WRITE (‘MASUKKAN NILAI B DAN TEKAN ENTER: ‘) ;READLN(B);

WRITE (‘MASUKKAN NILAI C DAN TEKAN ENTER: ‘) ;READLN(C);

 

CLRSCR;

 

IF B>0

THEN

IF C>0

THEN

WRITELN (‘PERSAMAAN YG ANDA MASUKKAN ADL: ‘,A:6:2,’ x^2 +’,B:6:2,’ x +’,C:6:2,’ = 0′)

ELSE

WRITELN (‘PERSAMAAN YG ANDA MASUKKAN ADL: ‘,A:6:2,’ x^2 +’,B:6:2,’ x ‘,C:6:2,’ = 0′)

ELSE

IF C>0

THEN

WRITELN (‘PERSAMAAN YG ANDA MASUKKAN ADL: ‘,A:6:2,’ x^2 ‘,B:6:2,’ x +’,C:6:2,’ = 0′)

ELSE

WRITELN (‘PERSAMAAN YG ANDA MASUKKAN ADL: ‘,A:6:2,’ x^2 ‘,B:6:2,’ x ‘,C:6:2,’ = 0′);

 

WRITELN;

 

DISKRIMINAN(A,B,C);

 

IF DISKRIMINAN(A,B,C)<0

THEN

BEGIN

WRITE (‘NILAI YG ANDA MASUKKAN MEMILIKI AKAR-AKAR YG IMAJINER’)

END

ELSE

IF DISKRIMINAN(A,B,C)>0

THEN

BEGIN

X1:=(-B + (SQRT(DISKRIMINAN(A,B,C))))/(2*A);

X2:=(-B – (SQRT(DISKRIMINAN(A,B,C))))/(2*A);

WRITELN (‘NILAI YG ANDA MASUKKAN MEMILIKI AKAR-AKAR YG BERBEDA’);

WRITELN (‘AKAR PERSAMAAN YG PERTAMA =’,X1:6:2);

WRITELN (‘AKAR PERSAMAAN YG KEDUA =’,X2:6:2)

END

ELSE

IF DISKRIMINAN(A,B,C)=0

THEN

     BEGIN

X1:=(-B + (SQRT(DISKRIMINAN(A,B,C))))/(2*A);

WRITELN (‘NILAI YG ANDA MASUKKAN MEMILIKI AKAR-AKAR YG KEMBAR’);

WRITELN (‘KEDUA AKAR PERSAMAANNYA =’,X1:6:2);

END;

 

WRITELN;WRITELN;

 

WRITE (‘ULANGI ?? Y=YA ATAU T=TIDAK —> ‘); READLN(J);

CLRSCR;

 

UNTIL J<>’Y’

END.

 
Tinggalkan komentar

Ditulis oleh pada Januari 10, 2012 in Dunia Lain

 

Tag: , , , , , ,

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: