no 2

1.      Algoritma Menghitung akar-akar persamaan kuadrat

{Input: a,b,c, mencari akar-akar persamaan kuadrat dan mencari akar-akar persamaan kuadrat}

Deklarasi:

a,b,c : integer{Input}

disk : longint{output}

x1,x2 : real{output}

Deskripsi:

read(a,b,c)

disk<--b*b-4a*c

if (a=0) then write('Bukan persamaan kuadrat')
else if disk>0 then
  x1<---(-b)+sqrt(disk)/2*a
  x2<---(-b)-sqrt(disk)/2*a
else if disk=0 then
  x1<---(-b)/2*a
  x2<---x1
else write('Akar Imajiner')
end if

write(x1,x2)