Persamaan kuadrat pada turbo pascal

INI RUMUSNYA

Rumus persamaan kuadrat adalah:
AX^2 + BX + C = 0
Untuk menentukan X1, X2 harus diketahui dilai Determinan (D), dimana:
D=B^2 – 4AC

Bila D>0, maka akan didapatkan X1, X2 berlainan nilai bisa nol, positif atau negatif
Bila D=0, maka akan diperoleh nilai X1 = X2 baik positif, negatif atau no.
Bila D<0, maka akan didapatkan nilai X1, X2 imajiner

Untuk menentukan X1 dan X2 adalah
X1,X1 = -b(+-)akar(b^2-4ac)/2a

INI CONTOH PROGRAMNYA

Program PersamaanKuadrat;

uses crt;

var a,b,c,d,x1,x2:real;

begin

clrscr;

writeln('Menghitung akar-akar persamaan kuadrat');

writeln('Nilai a,b,c dimasukkan dengan jeda spasi');

write('Masukkan nilai a,b,c = ');

readln(a,b,c);

d:=b*b-4*a*c;

if d<0 then writeln('Tidak ada akar real, coba ulangi masukkan nilai yang lain')

else

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('x1=',x1:6:2);

Writeln('x2=',x2:6:2);

end;

readln;

end.

Selamat mencoba

Related Articles :