MENGHITUNG IPK
Pada
Program ini saya akan membahas tentang MENGHITUNG IPK yang meliputi beberapa
pemakaian rumus-rumus sebagai berikut :
1. Bobot
= (tugas+uts+uas+keaktifan mahasiswa)/4
· Jika
bobot = 0, maka nilai = E
· Jika
bobot <= 2, maka nilai = D
· Jika
bobot <= 25, maka nilai = C
· Jika
bobot <= 29, maka nilai = B-
· Jika
bobot <= 30, maka nilai = B
· Jika
bobot <= 35, maka nilai = B+
· Jika
bobot <= 39, maka nilai = A-
· Jika
bobot <= 40, maka nilai = A
2. IPK
= Jumlah Bobot/jumlah sks atau mata kuliah
·
Berikut
Penulisan Program dari IPK tersebut ;
program
penghitungan_IPK;
uses
wincrt;
var
mhs,kls,ttl,hasil,NIM,nilai,makul,prod:string;
bobot,tugas,aktif,uts,uas,ipk,jumbo:real;
jum:integer;
sks,sem:byte;
pil:1..5;
begin
writeln
(' INDEKS PRESTASI KUMULATIF ' );
writeln
(' POLITEKNIK SAWUNGGALIH AJI ');
writeln
('_______________________________________');
writeln;
writeln
('1.Data Mahasiswa');
writeln
('2.Input Nilai');
writeln
('3.IPK');
writeln
('4.Print Slip IPK');
writeln
('5.keluar');
repeat
write('Pilih
nomor : ');readln (pil);
case
pil of
1:begin
write ('Nama : ');readln (mhs);
write ('TTL : ');readln (ttl);
write ('NIM : ');readln (NIM );
write ('Prodi : ');readln (prod );
write ('Kelas : ');readln (kls );
write ('Semester : ');readln (sem );
write ('Jumlah Mata Kuliah : ');readln (jum);
write ('Jumlah SKS : ');readln (sks);
end;
2:begin
write ('Masukkan Jumlah Bobot Nilai
Tugas : ');readln (tugas);
write ('Masukkan Jumlah Bobot Nilai
Keaktifan : '); readln(aktif);
write ('Masukkan JUmlah Bobot Nilai
UTS : ');readln (uts);
write ('Masukkan Jumlah Bobot Nilai
UAS : ');readln (uas);
bobot:=(tugas+uts+aktif+uas)/4;
if bobot =0 then
begin
nilai :='E';
writeln (' Nilai : ',nilai);end
else
if bobot <=2 then
begin
nilai :='D';
writeln (' Nilai : ',nilai);end
else
if bobot <=25 then
begin
nilai :='C';
writeln (' Nilai : ',nilai);end
else
if bobot
<=29 then
begin
nilai :='B-' ;
writeln (' Nilai : ',nilai);end
else
if bobot
<=30 then
begin
nilai :='B' ;
writeln (' Nilai : ',nilai);end
else
if bobot
<=35 then
begin
nilai :='B+' ;
writeln (' Nilai : ',nilai);end
else
if bobot <=39 then
begin
nilai :='A-';
writeln (' Nilai : ',nilai);end
else
if bobot =40 then
begin
nilai :='A';
writeln (' Nilai : ',nilai); end
else
writeln ('Maaf Bobot Tidak Dapat Lebih
Dari 40');
jumbo:=bobot;
write ('Jumlah Bobot :
',jumbo:2:2);
end;
3:begin
IPK:=jumbo/jum;
writeln ('IPK : ',IPK:2:2);
if ipk <=2.7 then
begin
hasil :='Cukup';
writeln ('Keterangan IPK : ',hasil);end
else
if ipk <=3 then
begin
hasil :='Memuaskan' ;
writeln ('Keterangan IPK : ',hasil);end
else
if ipk <=3.5 then
begin
hasil :='Sangat Memuaskan';
writeln ('Keterangan IPK : ',hasil);end
else
if ipk <=4 then
begin
hasil :='Dengan Pujian' ;
writeln ('Keterangan IPK : ',hasil);end
else
writeln ('Maaf Rata-Rata Jumlah Bobot
Tidak Dpat Lebih Dari 4.00');
end;
4:begin
clrscr;
writeln (' INDEKS PRESTASI KUMULATIF ' );
writeln (' POLITEKNIK SAWUNGGALIH AJI ');
writeln
('_______________________________________');
writeln;
writeln ('Nama : ',mhs);
writeln ('TTL : ',ttl);
writeln ('NIM : ',NIM);
writeln ('Prodi : ',prod);
writeln ('Kelas : ',kls);
writeln ('Semester :
',sem);
writeln ('Jumlah Mata Kuliah :
',jum);
writeln ('Jumlah SKS :
',sks);
writeln ('Bobot IPK :
',jumbo:2:2);
writeln ('Rata-rata IPK :
',ipk:2:2);
writeln ('Keterangan IPK :
',hasil);
end;
5:begin
writeln ('Terima Kasih');
exit;
end;
end;
readln;
until(pil=5);
end.
Sekian
dari sharing ilmu yang saya dapatkan semoga bermanfaat bagi kita semua…amiiin
Jangan
bingung-bingung dengan program tersebut ???.
anda bisa buka kembali di program awal tentang pembahasan Perulangan IF-THEN-ELSE, FOR-DO,
WHILE-DO dan REPEAT-UNTIL.
Selamat mencoba coding program pascal, semoga bermanfaat, dan kunjungi juga ke
coding program pascal tentang PROGRAM
MENGHITUNG IPK…..
No comments:
Post a Comment