Kel 1 1. Flowchart untuk mencari hasil perhitungan 1+2+3+4+5 Mulai N=0 T=0
N= N + 1
T=T+N
N=5
ceta kT
Selesai
2. Flowchart untuk menghitung nilai rata-rata dari 150 data-data mahasiswa yang diinputkan
Format data yang diinputkan = - Nama mahasiswa - NIM - Nilai tugas (bobot 10%) - Nilai test 1 (bobot 25 %) - Nilai test 2 (bobot 25%) - Nilai ujian (bobot 40%) mulai
total=0
For i=1 to 150
Input nama(i), nim(i), tgs(i), test1(i), test2(i), ujian(i)
rata2=total/150
nilai=(0.1*tgs)+(0.25*test1)+(0.25*test2) +(0.4*ujian)
Cetak rata2
total=total+nilai
selesai
Next i
Kel 2 3. Flowchart untuk mencari hasil perhitungan 1+4+9+16+.....+900
mulai
a=1 total=0
kuadrat=a*a
Cetak kuadrat
total=total+kuadrat a=a+1
T
kuadrat=900 Y Cetak total
selesai
4. Flowchart untuk menghitung jumlah factorial dari nilai n yan dimasukan. Nilai factorial didefinisikan sebagai berikut: i. 3! = 1 X 2 X 3 = 6
ii. 4! = 1 X 2 X 3 X 4 = 24 iii. n! = 1 X 2 X 3 X …. X Mulai
Input n
Fak =1
Fak= 1
For i = 1 to n do
Fak =fak * i
Next i
Cetak Fak
Selesai
kel 3 5. Flowchart untuk menghitung jumlah 6 suku pertama barisan 12, 22, 32, ….. Mulai
N=0
N= N+1
S = S + (N*N)
ceta Selesai k S 6. Diketahui himpunan 5 buah data yang merupakan nilai 5 orang siswa N=6
dalam suatu mata kuliah. Akan ditentukan beberapa rata-rata kelas dan berapa orang siswa mempunyai nilai diatas raa-rata kelas tersebut.
Himpunan data: 70
90
77
85
78
mulai rata2=jumlah/5 jumlah=0 Cetak rata2 For i=1 to 5 atas_rata2=0 Input nilai(i) For j=1 to 5 Jumlah=jumlah+nilai(i) Nilai(j)>rata2 Next i
Y
atas_rata2=atas_rata2 +1
T Next j
Cetak atas_rata2
selesai
Kel 4
7. flowchart untuk mencetak kuadrat dari bilangan 1,2,3 dan 4
Mulai
Mulai FOR N=1 TO 4
N=1
cetak N*N
N= 4
N = N+1
cetak N*N NEXT N Selesai
Selesai
8. Flowchart untuk konversi bilangan berbasis sepuluh ke bilangan berbasis dua
START
L
Hit = 1
Masukkan Bilangan Desimal (A)
Hitung hasil bagi, dan sisa hasil bagi A dengan 2
Hit >0
Y
Masukkan Bilangan Desimal (A)
A = Hasil Bagi
N
A= 0
Y
L
Kel 5
Hitung hasil bagi, dan sisa hasil bagi A dengan 2 A = Hasil Bagi
END
9. Flowchart untuk menghitung jumlah data 13, 18, 23, 16, 47 Mulai S=0 FOR K=1 TO 5
input X
S = S+X NEXT K
cetak ‘Jumlah:’,S
Selesai
10.Flowchart untuk mencetak bilangan prima dari 1 sampai 100
Kel 6 11.Flowchart untuk mencatat 10 bilangan genap pertama mulai
i=1 tampil=0
i mod 2 = 0
T
Y Cetak i
tampil=tampil+1
i=i+1
T
tampil=10 Y selesai
12.Flowchart untuk menghitung jumlah calon pegawai yang diterima dan jumlah pegawai yang tidak diterima untuk setiap kode bidang study. Jumlah calon pegawai yang mengikuti ujian seleksi adalah 250 orang dan calon pegawai tersebut dinyatakan diterima jika nilai ujiannya >= 75. Data yang diinputkan
adalah No ujian, Nama, Kode bidang, Nilai ujian. Bidang studi yang ditawarkan ada 3 yaitu : K = Sarjana komputer M = Sarjana matematika E = Sarjana Elektro mulai JLK=0 JLM=0 JLE=0
JTLK=0 JTLM=0 JTLE=0
JLK, JLM, JLE,
FOR b=1 TO 250
Input nomor, nama, kode, nilai
JTLK=JTLK+1
Y
kode=K
T
nilai>=75
T
JTLM=JTLM+1
Y
Cetak JTLK, JTLM, JTLE,
selesai
Y
kode=K
Y
JLK=JLK+1
T
kode=M
kode=M
T
Y
JLM=JLM+1
T
JTLE=JTLE+1
JLE=JLE+1
NEXT b
Kel 7 13.Buatlah algoritma untuk deret kuadrat dari suatu nilai N= 1 X 1+ 2 X 2 + 3 X 3 + … + n X n
mulai
a=1 N=0
Input batas
kuadrat=a*a
Cetak kuadrat
N=N+kuadrat a=a+1
T
batas>a Y Cetak N
selesai
14.Flowchart untuk menghitung jumlah calon pegawai yang diterima dan jumlah pegawai yang tidak diterima untuk setiap kode bidang study. Jumlah calon pegawai yang mengikuti ujian seleksi adalah 250 orang dan calon pegawai tersebut dinyatakan diterima jika nilai ujiannya >= 75
Kel 8
JAWABAN SAMA DENGAN NO 12
15. Flowchart untuk menghitung menggunakan while... do
rata-rata
sejumlah
N
data
M
u
i n
p n
ju
l a u
=
0
m
l a
Gambar 13. Flowchart menghitung rata-rata dengan while do Program 21. Menghitung rata-rata dengan while do Program rerata_while_do; uses wincrt; var i,n,x,jumlah:integer; rerata:real; begin writeln('Masukan nilai-nila (0 untuk berhenti)='); readln(x); n:=0; while x<>0 do begin n:=n+1; jumlah:=jumlah+x; read(x); end; rerata:=jumlah/n; writeln(‘Jumlah=’,jumlah); writeln(‘Rerata=’,rerata); end.
x
<
>
y a n
=
n
+
16.Flowchart untuk menampilkan deret angka 20 17 14 11 8 5 8 11 14 17 20 17 14 11 8 5
ju
m
l a
h
mulai
a=20 hit=0
Cetak a
Hit=hit+1
a=a+3
Y
6<=hit<11 T
a=a-3
T
hit=16 Y selesai
atau mulai
a=20
FOR A= 1 TO 5
FOR B= 1 TO 5
FOR C= 1 TO 6
Cetak a
Cetak a
Cetak a
a=a-3
a=a+3
a=a-3
NEXT A
NEXT B
NEXT C
selesai
Kel 9 17.Flowchart untuk mencari bilangan terkecil dari N bilangan yang diinputkan
mulai
min=99 ulang=0
Input N
Y
ulang=N
Cetak min
T Input bil
bil
selesai
T
Y min=bil
ulang=ulang+1
18.Flowchart untuk menghitung rata-rata sejumlah N data repeat... until
menggunakan
M
u
n
=
ju
Gambar Flowchart menghitung rata-rata dengan repeat until
n
Program Menghitung rata-rata dengan repeat until Program rerata_repeat_until; Uses wincrt; var i,n,jumlah,x:integer; rerata:real; begin writeln('Masukan data (0 untuk berhenti)='); n:=0; jumlah:=0; repeat n:=n+1; readln(x); jumlah:=jumlah+x; until x=0; rerata:=jumlah/(n-1); writeln('Jumlah=',jumlah); writeln('Rerata=',rerata); end.
m
=
i n ju
l
n p
m
l a
Kel 10 19.Flowchart untuk mencari bilangan terbesar dari 5 bilangan yang diinputkan
x =
u
mulai
max=0
FOR I= 1 TO 5
Input bil
Cetak max
T
max
selesai
Y max=bil
NEXT I
20.flowchart untuk mencetak bilangan ganjil dari 1 sampai dengan 100. mulai
i=1
i mod 2 = 1 Y Cetak i
i=i+1
T
i>100 Y selesai
T
