ada yg bisa program pascal?

cara menentukan indeks nilai mahasiswa..

- nilai akhir dihitung dari 30% UTS, 40% UAS, 20% tugas dan 10% kehadiran

- indeks nilai ditentukan berdasarkan nilai (NA),

bila NA >= 85 maka indeksnya A

bila 85 > NA >= 70 maka nilai indeksnya B

bila 70 > NA >= 55 maka nilai indeksnya C

bila 55 > NA >= 40 maka nilai indeksnya D

bila NA < 40 maka nilai indeknya E

mohon bantuannya .....

Comments

  • uses wincrt;

    var

    NilaiUTS, NilaiUAS, NilaiTugas, NilaiKehadiran, NA:real;

    begin

    write('Masukkan nilai UTS:');

    readln(NilaiUTS);

    write('Masukkan nilai UAS:');

    readln(NilaiUAS);

    write('Masukkan nilai Tugas:');

    readln(NilaiTugas);

    write('Masukkan nilai Kehadiran:');

    readln(NilaiKehadiran);

    NA := (0.3 * NilaiUTS) + (0.4 * NilaiUAS) + (0.2 * NilaiTugas) + (0.1 * NilaiKehadiran);

    If NA > 84 then

    writeln('A');

    If NA < 85 and NA > 69 then

    writeln('B');

    If NA < 70 and NA > 54 then

    writeln('C');

    If NA < 55 and NA > 39 then

    writeln('D');

    Else

    writeln('E');

    End.

Sign In or Register to comment.