Algoritma Cek_Keterangan
Deklarasi
N : Byte
Lg, Ket : String
Deskripsi
Lg- 'Y'
While Lg = 'Y'
Write ('Nilai Anda :')
Read (N)
If N>=60 Then
Ket- 'LULUS'
else
Ket- 'GAGAL'
End If
Write ('Anda : ', Ket)
Write ('Menghitung Lagi [Y/T] : ')
Read (Lg)
End While
Deklarasi
N : Byte
Lg, Ket : String
Deskripsi
Lg- 'Y'
While Lg = 'Y'
Write ('Nilai Anda :')
Read (N)
If N>=60 Then
Ket- 'LULUS'
else
Ket- 'GAGAL'
End If
Write ('Anda : ', Ket)
Write ('Menghitung Lagi [Y/T] : ')
Read (Lg)
End While
Komentar
Posting Komentar