Page 160 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

b). Notasi Algoritmik

Algoritma Nilai_Ujian
Deklarasi

Nama_Mhs : Array [1..10] of char
Mata_Kuliah: Array[1..N] of char

Nilai_Tugas, UTS, UAS: Array [1..N] of Integer

NU :Array[1..N] of integer
N:integer

Bobot : Char

Deskripsi
Read (Nama_Mhs, Mata_kuliah, Nilai_Tugas, UTS,UAS)

NU  ( nilai tugas [I]*0.15) + (nilai uts [I]* 0.35) + (nilai uas[I] *0.5)
If (NU[I] ≥ 80) Then Bobot  ‘A’ Else

If (NU[I] ≥70) and (NU[I]≤80) Then Bobot  ‘B’ Else
If (NU[I]≥55) and(NU[I]≤70) Then Bobot  ‘C’ Else
If (NU[I]≥50) and(NU[I]≤55) Then Bobot  ‘D’
Else Bobot  ‘E’
Endif
Endif
Endif
Endif
Write (Nama_Mhs, Mata_Kuliah, NU, Bobot)

C) Notasi Bahasa Pemograman
Program Nilai_Ujian;

Uses Crt;

Const N=5;
Var {Deklarasi Variabel}

Nama_Mhs : Array [1..10] of char;
Mata_Kuliah: Array[1..N] of char;

Nilai_Tugas, UTS, UAS: Array [1..N] of Integer;

NU :Array[1..N] of integer;
N:integer;

Bobot : Char;