TUGAS INDIVIDU ALPRO MINGGU KE 4 

1. Bilangan Habis Dibagi 3 dan 5

1. Deklarasi :
i : integer (bilangan 1 - 100)

2. Deskripsi :
Read (i)
i <- 1 - 100
for (int i=1; i<=100; 1++)
if(i mod 3==0)
Write
Else (i mod 5==0)
Write i

• Flowchart :

• C++ :

2. Algoritma Penjumlahan Deret Pecahan

soal:
Algoritma untuk menghitung nilai dari 1 - 1/2 + 1/3 - 1/4 +....+ 1/n

algoritma:
{Menjumlahkan deret dengan bentuk pecahan 1-1/2+1/3-1/4+…1/n. Nilai n dibaca, ditentukan terlebih dahulu, algoritma menghitung hasil penjumlahan dan mencetak hasil jumlah}

Deklarasi :
jumlah : real {jumlah deret}
n : integer {penyebut pada suku terakhir, n >0}
i : integer {suku ke-i}
p : integer {penyebut suku ke-i}

Deskripsi :
read(n)
jumlah ← 0
i ← 1 {suku pertama}
p ← 1 {penyebut suku pertama}
while p ≤ n do
if i mod 2 = 1 then {suku ke-i ganjil}
jumlah ← jumlah + 1/p
else
jumlah ← jumlah – 1/p
endif
i ← i+1 {tinjau suku berikutnya}
p ← p + 1 {tinjau penyebut suku berikutnya}
endwhile
{p > n}
write(jumlah)

3. Nilai Terkecil Terbesar dan Jumlah Semua Bilangan Positif

Algoritma Nilai Terkecil Terbesar dan Jumlah Semua Bilangan Positif. menentukan nilai terkecil, terbesar, dan jumlah semua bilangan positif yang dimasukkan.

algoritma
{algoritma menerima inputan sebuah bilangan bulat, menentukan bilangan terkecil, bilangan terbesar, dan menghitung jumlah semua bilangan bulat positif, menampilkan hasil penjumlahan bilangan bulat positif}

Deklarasi :
x,y : integer {data yang dibaca}
n : integer {banyak data masukan, >0}
min : integer {data terkecil/minimum}
maks : integer {data terbesar/maksimum}
i : integer {pencacah pengulangan}
jumlah : real {jumlah bilangan positif}

Deskripsi :
read(n)
read(x) {baca data pertama}
min ← x {asumsikan min adalah data pertama}
maks ← y {asumsikan maks adalah data terakhir}
for i ← 2 to n do {lanjutkan dengan ke-2 sampai ke-n}
read(x)
if x < min then
min ← x
if y > maks then
maks ← y
endif
while (x > 0) do
jumlah ← jumlah + x
read(x)
n ← n + 1
write(‘positif’)
endfor
jumlah ← x + 1
write(min)
write(maks)
write(jumlah)