Logika Percabangan (Part 3)

Untuk Memperoleh Nilai Akhir (NA), Nilai Huruf (NH), dan Keterangan pada Matakuliah Algoritma.

NA=Ujian UTS + Ujian UAS/2

nilai Huruf

Jika: NA >= 80 maka NH : 'A', Ket: 'Sangat Bagus'
Jika: NA >=70 maka NH : 'B', Ket : 'Bagus'
Jika: NA  <70 :=":" font="font" ket="ket" maka="maka" nbsp="nbsp" nh="nh" urang="urang">

Input : Ujian UTS dan Ujian UAS
program latihan_4;
uses wincrt;
var na,uts,uas     :real;
    ket,pesan,nh   :string;
begin
write('Input Nilai UTS : ');readln(uts);
write('Input Nilai UAS : ');readln(uas);
na:=(uts+uas)/2;
                if na >=80 then
                begin
                nh     :='A';
                ket    :='Sangat Bagus';
                pesan  :='Pertahankan Prestasi';
                end
                else
                if na >=70 then
                    begin
                    nh    :='B';
                    ket   :='Baik';
                    pesan :='Tingkatkan';
                                                  end  

               else
                    begin
                    nh    :='C';
                    ket   :='Kurang';
                    pesan :='Perbaiki';
                    end;
writeln ('Nilai Huruf : ',nh);
writeln ('Nilai Rata-rata : ',na:9:2);
writeln ('Keterangan : ',ket);
writeln ('Pesan : ',pesan);
end.

Share :

• Tweet

Related posts

Logika Percabangan (Part 3)

Description: Logika Percabangan (Part 3) Rating: 4.5 Reviewer: Tedy ItemReviewed: Logika Percabangan (Part 3)

Al

Mbah Qopet Updated at: 15.05.00