Program Perhitungan Nilai Mahasiswa Menggunakan TPW 1.5

Selamat pagi semua!!!

Pada hari ini saya akan membagikan tentang cara membuat program perhitungan nilai mahasiswa dengan menggunakan TPW 1.5 atau biasa disebut dengan program Pascal, juga dengan flowchart serta algoritmenya.

Soal:

Buatlah program pascal, algoritme dan flowchart perhitungan nilai mahasiswa.

Masukkan :
-          NIM
-          Nama
-          Nilai Tugas
-          Nilai Mites
-          Nilai UAS
-          Nilai Akhir (Nilai tugas*30% + Nilai Mites*30% + Nilai UAS*40%)
-          Nilai Huruf
80 - 100 = a
70 – 79 = b
60 – 69 = c
50 – 59 = d
40 – 49 = e

Jika Nilai Akhir lebih besar dari 60 maka Lulus, jika dibawah 60 maka Tidak Lulus

Penyelesaian :

1. Buatlah algoritmenya terlebih dahulu seperti ini

Algoritma perhitungan_nilai_mahasiswa
(menghitung nilai akhir mahasiswa)
Deklarasi
                String nim, nama, nilaihuruf, ket;
                Integer nilaitugas, nilaimites, nilaiuas, nilaiakhir;
Deskripsi
                Write(“Masukkan Nim : “);
                Read(nim);
                Write(“Masukkan Nama : “);
                Read(nama);
                Write(“Masukkan Nilai Tugas : “);
                Read(nilaitugas);
                Write(“Masukkan Nilai Mites : “);
                Read(nilaimites);
                Write(“Masukkan Nilai UAS : “);
                Read(nilaiuas);
             nilaiakhir        (nilaitugas * 0.3) + (nilaimites * 0.3) + (nilaiuas * 0.4);
                Write(“ Nilai Akhir : “,nilaiakhir);
                If (nilaiakhir >= 80) and (nilaiakhir <=100) then
    nilaihuruf          'A'
    else
    if (nilaiakhir >= 70) and (nilaiakhir <= 79) then
    nilaihuruf          'B'
    else
    if (nilaiakhir >= 60) and (nilaiakhir <= 69) then
    nilaihuruf          'C'
    else
    if (nilaiakhir >= 50) and (nilaiakhir <= 59) then
    nilaihuruf          'D'
    else
    if (nilaiakhir >= 40) and (nilaiakhir <= 49) then
    nilaihuruf          'E'
    else
    nilaihuruf          'F'
    endif
    case (nilaiakhir)
    >=60 : ket         LULUS
               ket         TIDAK LULUS;
    endcase.
    write('Hasil nilai akhir ' , nama, ' adalah ' , nilaiakhir);
    writeln('Nilai huruf yang didapat adalah ' , nilaihuruf, ' maka ' , nama, ' dinyatakan ', ket);

2. Buat Flowchartnya seperti ini

3. Terakhir buat Program Pascalnya seperti ini
Buka Program TPW 1.5

Lalu Ketikan script ini di halaman Program Pascalnya

    Program perhitungan_nilai_mahasiswa;
    uses wincrt;
    var
    nim, nama, nilai_huruf, ket : string;
    nilai_akhir, tugas, mites, uas : integer;

    begin
    writeln('PROGRAM PERHITUNGAN NILAI MAHASISWA');
    writeln('===================================');
    writeln;
    write('Nim : ');readln(nim);
    write('Nama :');readln(nama);
    writeln('====');

    writeln;
    writeln('Masukan Nilai Mahasiswa');
    writeln('=======================');
    write('Nilai Tugas :');readln(tugas);
    write('Nilai Mites :');readln(mites);
    write('Nilai UAS   :');readln(uas);
    nilai_akhir := (tugas*30 + mites*30 + uas*40) div 100;

    if (nilai_akhir >= 80) and (nilai_akhir <=100)then
    nilai_huruf:= 'A'
    else
    if (nilai_akhir >= 70) and (nilai_akhir <= 79) then
    nilai_huruf:= 'B'
    else
    if (nilai_akhir >= 60) and (nilai_akhir <= 69) then
    nilai_huruf:= 'C'
    else
    if (nilai_akhir >= 50) and (nilai_akhir <= 59) then
    nilai_huruf:= 'D'
    else
    if (nilai_akhir >= 40) and (nilai_akhir <= 49) then
    nilai_huruf:= 'E'
    else
    nilai_huruf:= 'F';

    case nilai_akhir of
    60..100 : ket:=('LULUS');
    else
    ket:=('TIDAK LULUS');
    end;
    writeln;
    writeln('Maka Hasilnya Adalah :');
    writeln('======================');
    writeln('Hasil nilai akhir ' ,nama, ' adalah ' ,nilai_akhir);
    writeln('Nilai huruf yang didapat adalah ' ,nilai_huruf, ' maka ' ,nama, ' dinyatakan ',ket);
    readln;
    end.

Setelah selesai lalu klik compile untuk mengetahui apakah script sudah benar atau masih ada kesalahan. Kalau semuanya sudah benar klik menu run dan pilih run maka tampilannya akan seperti ini :