Pemograman 4

Program bimbingan_belajar_alfikri;
(menentukan gaji karyawan honorer bimbingan belajar alfikri)
DEKLARASI
Namakaryawan:string
Jamkerja:real
Jamlembur:real
Upahlembur:real
UpahKerja:real
Gajikaryawan:real
Upahkerjaperjam=5000
Upahlemburperjam=3000
Jamkerjamingguan=48

ALGORITMA
Read(namakayawan)
Read(jamkerja)
Read(jamlembur)
Read(upahlembur)
Read(upahkerja)
Read(gajikaryawan)
Write(‘gaji karyawan bimbingan belajar alfikri’)
Write(‘masukan nama’) Read (namakaryawan)
Write(‘masukan jam kerja’) read(jamkerja)
Jamlembur<-jamkerja-jamkerjamingguan
Write(‘jamlembur’)
Upahkerja<-jamkerjamingguan*upahkerjaperjam
Write(‘upahkerja’)
Upahlembur<-jamlembur*upahlemburperjam
Write(‘upah lembur’)
Gajikaryawan<-upahkerja+upahlembur
Write(‘gajikaryawan’)
End








Program Nilai_Mahasiswa
(menentukan nilai mahasiswa berdasarkan indeks nilai)

DEKLARASI
Nama:string
Nilai:real

ALGORITMA
Write (‘Nilai Mahasiswa Mata Kuliah Komputer Matematika’)
Write(‘namamahasiswa’) read(nama)
Write(‘Nilai Ujian Mahasiswa’) read (nilai)
If (nilai>=86) then
Write(‘jadi nilai akhir mahasiswa adalah: A’)
Else
If (nilai>=80) and (nilai<86) then
Write(‘jadi nilai akhir mahasiswa adalah: A-’)
Else
If (nilai>=76) and (nilai<80) then
Write(‘jadi nilai akhir mahasiswa adalah: B+’)
Else
If (nilai>=70) and (nilai<76) then
Write(‘jadi nilai akhir mahasiswa adalah: B’)
Else
If (nilai>=66) and (nilai<70) then
Write(‘jadi nilai akhir mahasiswa adalah: B-’)
Else
If (nilai>=60) and (nilai<66) then
Write(‘jadi nilai akhir mahasiswa adalah: C+’)
Else
If (nilai>=56) and (nilai<60) then
Write(‘jadi nilai akhir mahasiswa adalah: C’)
Else
If (nilai>=50) and (nilai<56) then
Write(‘jadi nilai akhir mahasiswa adalah: C-’)
Else
If (nilai>=45) and (nilai<50) then
Write(‘jadi nilai akhir mahasiswa adalah: D’)
Else
If (nilai<45) then
Write(‘jadi nilai akhir mahasiswa adalah: E’)
Read
End if