tugas 12

 Tugas 12

    Perhatikan potongan algoritma berikut:

na, uts, uas, tugas, quiz:  integer
utsß75
uasß80
tugasß50
quizß50
naß (uts * 30 /100) + (uas * 35 / 100) + (tugas * 15 / 100) + (quiz * 20 / 100)
IF na>80 THEN
          indeksß’A’
END IF
IF na>60 THEN
          indeksß’B’
END IF
          indeksß’C’
           indeksß’A’
OUTPUT (indeks)
Apakah Keluaran dari program diatas?  A
Dalam Bahasa Pascal:
uses crt;
var
        NA:real;
        UTS:Integer;
        UAS:Integer;
        Tugas:Integer;
        Quis:Integer;
        Indeks:string;
BEGIN
        CLRSCR;
        UTS:= 75;
        UAS:= 80;
        Tugas:= 50;
        Quis:= 50;
        Na:= (UTS * 30 / 100) + (UAS * 35/100) + (Tugas * 15 /100) + (Quis * 20/100);
        If (Na>80) Then Indeks := 'A';
        If(NA>60) Then Indeks :=  'B';
                        Indeks:= 'C';
                                Indeks:= 'A';
        WRITELN(Indeks);
        READLN();

END.