KASUS 3.3 (Di Pertemuan Ke-3)

(Mencari Nilai Akar Imajiner)

Analisis
- Input      : a,b,c (Inputkan Nilai a,b,c)
- Proses   : Disk <- (b*b)-(4*a*c)
- Kondisi  : Jika (a=0)
                  Jika (Disk>0)
                  Jika (Disk=0)
- Proses  : x1 <- b/2*a
                  x1<- b+sqrt(Disk)/2*a
                   x2<-b-sqrt(Disk)/2*a
- Inisialisasi : x2 <- x1

- Outputnya : x1 & x2,akar imajiner

Algoritma

1. Deklarasi 

   a,b,c : integer (input)

   Disk : Long int (output)

   x1,x2 : real (output)

2. Deskripsi

   read (a,b,c) 

   Disk <-- (b*b)-(4*a*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

   Print (x1,x2)

Flowchart (RAPTOR)

C++