Ubahlah flowchart dengan menggunakan perulangan Repeat... Until.
Jawab.
Algoritma Cek Kelulusan
Deklarasi
N. :Byte
Lg,Ket : String
Deksripsi
Repeat
Write ('Nilai Anda :')
Read(N)
If N>=60 Then
Ket : 'LULUS'
Else
Ket : 'GAGAL'
End If
Write ('Anda : ',Ket)
Write ('Cek Kelulusan Lagi [Y/T] : ')
Read(Lg)
Until(Lg='Y')
End.
Jawab.
Algoritma Cek Kelulusan
Deklarasi
N. :Byte
Lg,Ket : String
Deksripsi
Repeat
Write ('Nilai Anda :')
Read(N)
If N>=60 Then
Ket : 'LULUS'
Else
Ket : 'GAGAL'
End If
Write ('Anda : ',Ket)
Write ('Cek Kelulusan Lagi [Y/T] : ')
Read(Lg)
Until(Lg='Y')
End.



Komentar
Posting Komentar