Imports System.Console
Module Module1
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As String
Sub Main()
Write("masukan nilai Quiz :")
a = ReadLine()
Write("masukan nilai tugas :")
b = ReadLine()
Write("masukan nilai UTS :")
c = ReadLine()
Write("masukan nilai UAS :")
d = ReadLine()
e = (a * 0.1) + (b * 0.1) + (c * 0.3) + (d * 0.5)
Write("nilai akhir anda : " & e)
ReadLine()
If e >= 81 And e <= 100 Then
Write("nilai akhir anda : A")
ReadLine()
ElseIf e >= 71 And e <= 80 Then
Write("nilai akhir anda : B")
ReadLine()
ElseIf e >= 61 And e <= 70 Then
Write("nilai akhir anda : C")
ReadLine()
ElseIf e >= 51 And e <= 60 Then
Write("nilai akhir anda : D")
ReadLine()
ElseIf e <= 50 Then
Write("nilai akhir anda : E")
ReadLine()
End If
Write("ulangi proses ? [Y/T] : ")
Read()
End Sub
End Module
0 komentar:
:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k: :l:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger