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.
Related posts
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (part 4)
- Logika Percabangan (Part 2)
- Cara Berterima Kasih Kepada Ibu
- Aku ingin menjadi orang yang bertepuk di tepi jalan
- Pertanyaan Anak yang Paling Ditakuti Orang tua
- Aulia Education Centre (AEC)
- Array
- Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Sturktur Perulangan while/do
- Logika Percabangan (part 4)
- Logika Percabangan (Part 2)
- Logika Percabangan
- Belajar Algoritma
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardwaer Komputer : Perangkat Output
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (part 4)
- Logika Percabangan (Part 2)
- Logika Percabangan
- Belajar Algoritma
- Aulia Education Centre (AEC)
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Procedure
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (part 4)
- Logika Percabangan (Part 2)
- Belajar Algoritma
- Cara Berterima Kasih Kepada Ibu
- Aku ingin menjadi orang yang bertepuk di tepi jalan
- Pertanyaan Anak yang Paling Ditakuti Orang tua
- Kisah Uang
- Aulia Education Centre (AEC)
- Fun Photo Box
- blanksomnia
- T 10
- Horeeee, Award Lagi
- Silaturrahmi
- Puasa dan Award
- Istimewanya Wanita Islam
- Lagu Perjuangan
0 komentar:
Posting Komentar