Bella Azis Dewanti Putri A / 15522076
1) Buatlah Algoritma untuk menginputkan sebuah nilai. Nilai tersebut menyatakan jam kerja. Hitung jumlah gaji karyawan perhari dengan ketentuan sebagai berikut. - Sampai dengan 9 jam pertama dibayar Rp 15.000 per jam - Sisanya dibayar Rp 20.000 per jam
START
X
X = ≤9?
FALSE
TRUE GAJI = 9*15.000
GAJI = [(9*15.000) + (X – 9)] * 20.000
GAJI
END
X ≤ 9 maka GAJI = X*15.000 X > 9 maka GAJI= [(9*15.000) + (X – 9)] * 20.000 Sub no1() X = Application.InputBox("Inputkan Nilai X", Type:=1) If X ≤ 9 Then GAJI = X*15.000 Else GAJI= [(9*15.000) + (X – 9)] * 20.000 End If MsgBox "Nilai GAJI” & GAJI End Sub
2) Buatlah Algoritma untuk menginputkan dua buah variabel yang menyatakan lama bicara dan kode wilayah. Hitung biaya yang harus ditanggung dengan ketentuan sbb: wilayah 1 = Rp 200/detik, wilayah 2 = Rp 300/detik, dan wilayah 3 = Rp 400/detik. START
X
X≥0
FALSE Y=1
Y=2
Z = X*200
Z = X*300
FALSE
TRUE Z = X*400
Z
END
Sub no2() Y = Application.InputBox("Masukkan Kode Wilayah Anda!", Type:=1) X = Application.InputBox("Berapa Lama Anda Berbicara?", Type:=1) If Y = 1 Then Z = X*200 Else If Y = 2 Then Z = X*300 Else If Y = 3 Then Z = X*400 End If MsgBox "Biaya yang Anda keluarkan sebesar =” & Z End Sub
3) Buatlah Algoritma untuk menghitung Total angka ganjil mulai dari angka 5 sampai dengan suatu angka yang diinputkan. Jika angka yang diinputkan <7, maka ulangi langkah untuk menginputkan angka.
START
X
TRUE X<7 FALSE TRUE X mod 2 =! 0 FALSE Jumlah Ganjil = X/2
Jumlah Ganjil Mulai dari 5 = Jumlah Ganjil -2
Jumlah Ganjil Mulai dari 5
END
Jumlah Ganjil = X/2 + 0,5
4) Buatlah Algoritma untuk menghitung Rata-rata angka genap mulai dari angka 5 sampai dengan suatu angka yang diinputkan. Jika angka yang diinputkan <7, maka ulangi langkah untuk menginputkan angka. START
X TRUE X<7 FALSE TRUE X mod 2 =! 0
Jumlah Genap = X/2 + 0,5
FALSE Jumlah Genap = X/2
Jumlah Genap Mulai dari 5 = Jumlah Genap -2 Rata-rata Jumlah Genap = (X-5)/Jumlah Genap Mulai dari 5
Jumlah Ganjil Mulai dari 5 END