PENGHITUNGAN NILAI AKHIR

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

    End Sub