CODING MENGHITUNG PERSAMAAN KUADRAT DENGAN PASCAL

Program PersamaanKuadrat;

uses wincrt;

var

a,b,c : integer;

d,x1,x2 : real;

begin

write('Masukkan nilai a : '); readln(a);

write('Masukkan nilai b : '); readln(b);

write('Masukkan nilai c : '); readln(c);

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

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

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

writeln('x1 = ' ,x1:1:0);

writeln('x2 = ' ,x2:1:0);

end.