Cara Mudah Menghitung Nilai IPK Menggunakan Pascal

Untuk tutorial kali ini saya akan menggunakan bahasa pemograman yang cukup jadul tetapi sering digunakan di kampus besar yaitu bahasa pemograman pascal. Walaupun pascal merupakan bahasa pemograman yang cukup jadul tetapi untuk sebagian kampus – kampus besar sering digunakan untuk mata kuliah algoritma dasar, mengapa demikian karena bahasa ini merupakan bahasa terstruktur yang cukup mudah di pelajari untuk orang awam yang baru mempelajari pemograman. Baiklah untuk kali ini kita bakalan membahas tentang Cara Menghitung IPK Menggunakan Pascal dan seperti biasa kita bakalan bahas ini secara step by step agar mudah di pahami dan di coba

STEP 1 – Persiapan

1. Download Program Pascal : Klik Disini
2. Install Program Pascal tadi yang sudah di download
3. Selesai

STEP 2 – Proses Pembuatan

Setelah kalian mengintall aplikasi untuk menjalankan pascalnya sekarang kita buat file baru dengan cara klik File dan pilih New seperti gambar di bawah ini.

Setelah itu simpan dengan menekan tombol F2 pada keyboard anda dan simpan dengan nama hitung_ipk.pas, dan berikut adalah scriptnya :

Program hitung_ipk; // memulai program

// memanggil plugin crt dari bawaan program pascal ini
uses crt;

// membuat variabel yang di butuhkan untuk menghitung nilai ipk ini
var  i,n,sks,nilai,jml,jmlsks,jmlmutu:integer;

     rata:real;

     k,mk:string;

//-------------------------------------------------
// membuat prosedure untuk menentukan bobot dari nilai dari setiap matakuliah
procedure bobot_nilai(a:string);

begin

    if a='a' then nilai:=4

    else if a='b' then nilai:=3

    else if a='c' then nilai:=2

    else if a='d' then nilai:=1

    else if a='e' then nilai:=0;

end;

//--------------------------------------------------
// membuat fungsi sendiri untuk menghitung nilai sks dan nilai sesuai gendrenya
function hitung(a,b:integer):integer;

begin

    jml:=a*b;

end;

//--------------------------------------------------
// menjumlahkan semua sks dari matakuliah yang di masukan
procedure jumlah_sks(a:integer);

begin

    jmlsks:=jmlsks+a;

end;

//--------------------------------------------------
// menghitung jumlah mutu dari nilai gendre matakuliah
procedure jumlah_mutu(a:integer);

begin

    jmlmutu:=jmlmutu+a;

end;

//--------------------------------------------------
// menghitung rata-rata dari nilai yang di dapat untuk mendapatkan nilai IPK nya
function rerata(a,b:integer):real;

begin

    rata:=b/a;

end;

//--------------------------------------------------
// Memulai proses program utama
begin

    clrscr; // untuk menghapus histori sebelumnya pada layar hasil

    write('Banyak mata kuliah = '); readln(n); // memasukan jumlah mata kuliah yang akan di hitung

    writeln;

    writeln('----------------------------------------------');

    writeln('No      Makul     SKS  Keriteria  Nilai   Mutu');

    writeln('                       a/b/c/d/e              ');

    writeln('----------------------------------------------');

    for i:=1 to n do // melakukan pengulangan sebanyak jumlah matakuliah yang nanti di input

    begin

        write(i); // menampilkan urutan matakuliah yang di input

        gotoxy(4,6+i);  readln(mk); // memasukan dan menampilkan nama matakuliah

        gotoxy(20,6+i); readln(sks); // memasukan dan menampilkan jumlah sks matakuliah

        gotoxy(28,6+i); readln(k); // memasukan dan menampilkan gendre nilai matakuliah

            bobot_nilai(k); // memanggil prosedur bobot nilai untuk menentukan nilai dari seriap gendre

        gotoxy(37,6+i); write(nilai); // menampilkan nilai gendre

            hitung(sks,nilai); // memanggil fungsi hitung untuk menghitung nilai sks dan nilai gendre

        gotoxy(43,6+i); write(jml:4); // menampilkan hasil dari perhitungan sks dengan nilai gendre

            jumlah_sks(sks); // menjumlahkan keseluruhan sks dari setiap matakuliah yang ada

            jumlah_mutu(jml); // menjumlahkan keseluruhan nilai mutu/gendre dari setiap matakuliah yang ada

        writeln; // membuat jarak enter

    end;

    writeln('---------------------------------------------');

    write('Jumlah');

    gotoxy(20,wherey); write(jmlsks); // menampilak jumlah sks yang telah di jumlah

    gotoxy(43,wherey); writeln(jmlmutu:4); // menampilkan jumlah nilai mutu/gendre yang telah di jumlah

        rerata(jmlsks,jmlmutu); // mengitung rata-rata dari jumlah sks dengan nilai mutu/gendre untuk mendapatkan nilai IPK

    writeln('---------------------------------------------');

    write('IP = ',rata:2:2); // menampilkan hasil IPK dari selurh matakuliah yang ada

    readkey;

end. // selesai

untuk penjelasannya, di dalam bahasa pemograman pascal ini semua procedure atau function di simpan di atas program utama sehingga jika kita menyimpan function atau prosedure di bawah atau di dalam program utama akan terjadi error. Dan Program utamanya itu dalah ini

//--------------------------------------------------
// Memulai proses
begin

    clrscr; // untuk menghapus histori sebelumnya pada layar hasil

    write('Banyak mata kuliah = '); readln(n); // memasukan jumlah mata kuliah yang akan di hitung

    writeln;

    writeln('----------------------------------------------');

    writeln('No      Makul     SKS  Keriteria  Nilai   Mutu');

    writeln('                       a/b/c/d/e              ');

    writeln('----------------------------------------------');

    for i:=1 to n do // melakukan pengulangan sebanyak jumlah matakuliah yang nanti di input

    begin

        write(i); // menampilkan urutan matakuliah yang di input

        gotoxy(4,6+i);  readln(mk); // memasukan dan menampilkan nama matakuliah

        gotoxy(20,6+i); readln(sks); // memasukan dan menampilkan jumlah sks matakuliah

        gotoxy(28,6+i); readln(k); // memasukan dan menampilkan gendre nilai matakuliah

            bobot_nilai(k); // memanggil prosedur bobot nilai untuk menentukan nilai dari seriap gendre

        gotoxy(37,6+i); write(nilai); // menampilkan nilai gendre

            hitung(sks,nilai); // memanggil fungsi hitung untuk menghitung nilai sks dan nilai gendre

        gotoxy(43,6+i); write(jml:4); // menampilkan hasil dari perhitungan sks dengan nilai gendre

            jumlah_sks(sks); // menjumlahkan keseluruhan sks dari setiap matakuliah yang ada

            jumlah_mutu(jml); // menjumlahkan keseluruhan nilai mutu/gendre dari setiap matakuliah yang ada

        writeln; // membuat jarak enter

    end;

    writeln('---------------------------------------------');

    write('Jumlah');

    gotoxy(20,wherey); write(jmlsks); // menampilak jumlah sks yang telah di jumlah

    gotoxy(43,wherey); writeln(jmlmutu:4); // menampilkan jumlah nilai mutu/gendre yang telah di jumlah

        rerata(jmlsks,jmlmutu); // mengitung rata-rata dari jumlah sks dengan nilai mutu/gendre untuk mendapatkan nilai IPK

    writeln('---------------------------------------------');

    write('IP = ',rata:2:2); // menampilkan hasil IPK dari selurh matakuliah yang ada

    readkey;

end. // selesai

berikut hasil dari program di atas

Sekian untuk catatan kali ini. Semoga catatan ini bisa bermanfaat. Apabila ada yang ingin ditanyakan, langsung tanyakan saja lewat form komentar dibawah ini. Terimakasih.

Sumber & Referensi

Dokumentasi Pascal : https://www.freepascal.org/docs.var

how to count total IPK, algoritma menghitung nilai ipk dengan pascal, cara menghitung nilai ipk

IPK