Latihan Individu PPT Pertemuan 3

KASUS 3.3 Mencari Nilai Akar Imajiner

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

6. Output : 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

   write (x1,x2)

Flowchart :

C++ :