tugas ketiga kelompok algoritma dan pemrograman

kasus 5.4
Hitunglah rata-rata dari bilangan bulat positif ,dimana banyak data ditentukan dari data yang dimasukkan.

jawab:
Algoritma mencari rata-rata dari  bilangan bulat positif
(diberikan data bilangan bulat positif kemudian dicari rata-ratanya)

Deklarasi:
n, jumlah, x : integer
rata : real

Deskripsi:
jumlah<-  0
read(x)
n<- 1
while (x>0)do
          jumlah<- jumlah+x
          read(x)
          n<- n+1
end for
rata <- jumlah/(n-1)
write(rata-rata)

flowchart untuk algoritma mencari rata-rata dari bilangan bulat positif :

kasus 5.5
Tentukan nilai dari:

1+1/2+1/3+...+1/n=....

sampai selisih 2 suku tidak boleh lebih dari 0.001 . Tentukan pula nilai dari n terakhir.
jawab:

algoritma untuk mencari jumlah deret
Deklarasi:
n, jumlah, x: integer
rata : real

Deskripsi:
jumlah<- 0
i<- 1
repeat
         jumlah <- jumlah+ (1/i)
         i <- i+1
         selisih <- (1/i)-(1/(i-1))
until abs(selisih) < 0.001
write(jumlah,i)

flowchart untuk algoritma mencari jumlah deret :

kasus 5.6
Carilah nilai dari n! (n faktorial)
 jawab:

algoritma mencari n faktorial
(dicari n faktorial dengan masukan n )

 Deklarasi :
i,n : integer
faktorial : longint

Deskripsi:
read(n)
faktorial <- 1
for i <- 1 to n do
             faktorial <- faktorial*i
end for
write(faktorial)

flowchart untuk algoritma mencari n faktorial :

untuk mendapatkan kasus 5.1 , kasus 5.2 ,kasus 5.3 dapat dilihat di link ini :
andidzulhijjah.blogspot.com
dan untuk mendapatkan kasus 5.7 , kasus 5.8 , kasus 5.9 dapat dilihat di link ini :
nikenkinanti212.blogspot.com