Cara menghitung IPS ( Indeks Prestasi Semester)
Program Menghitung_Nilai_IPS;
uses wincrt;
Var
Kalkulus : String;
SKS_Kalkulus : real;
Angka_Kalkulus : real;
Total_Kalkulus : real;
Indonesia : String;
SKS_Indonesia : real;
Angka_Indonesia : real;
Total_indonesia : real;
ICT : String;
SKS_ICT : real;
Angka_ICT : real;
Total_ICT : real;
Kimia : String;
Angka_Kimia : real;
Total_kimia : real;
Praktek_ICT : String;
SKS_Praktek_ICT : real;
Angka_Praktek_ICT : real;
Total_praktek_ICT : real;
Algoritma : String;
SKS_Algoritma : real;
Angka_Algoritma : real;
Total_algoritma : real;
Prak_Algoritma : String;
SKS_Prak_Algoritma : real;
Angka_Prak_Algoritma : real;
Total_Prak_Algoritma : real;
Pengantar_TI : String;
SKS_Pengantar_TI : real;
Angka_Pengantar_TI : real;
Total_Pengantar_TI : real;
Al_Islam : String;
SKS_Al_Islam : real;
Angka_Al_Islam : real;
Total_Al_Islam : real;
Fisika : String;
SKS_Fisika : real;
Angka_Fisika : real;
Total_Fisika : real;
IPS : real;
Total_a : real;
Total_b : real;
Total : real;
nilai_a : real;
nilai_b : real;
nilai : real;
SKS_a : real;
SKS_b : real;
SKS : real;
Begin
Clrscr;
Writeln('=========================================================');
Writeln('=========================================================');
Writeln('Penghitungan Nilai IPS Mahasiswa Teknik
Uninus Semester 1');
Writeln('=========================================================');
Writeln('=========================================================');
Writeln('=====================Nilai :
A-E=========================');
Write ('Masukan Nilai Kalkulus =');readln(Kalkulus);
Write ('Masukan SKS Kalkulus =');readln(SKS_Kalkulus);
Write ('Masukan Nilai Indonesia =');readln(Indonesia);
Write ('Masukan SKS Indonesia =');readln(SKS_Indonesia);
Write ('Masukan Nilai ICT =');readln(ICT);
Write ('Masukan SKS ICT =');readln(SKS_ICT);
Write ('Masukan Nilai Kimia =');readln(Kimia);
Write ('Masukan SKS Kimia =');readln(SKS_Kimia);
Write ('Masukan Nilai Praktek_ICT =');readln(Praktek_ICT);
Write ('Masukan SKS Praktek_ICT =');readln(SKS_Praktek_ICT);
Write ('Masukan Nilai Algoritma =');readln(Algoritma);
Write ('Masukan SKS Algoritma =');readln(SKS_Algoritma);
Write ('Masukan Nilai Prak Algoritma =');readln(Prak_Algoritma);
Write ('Masukan SKS Prak Algoritma =');readln(SKS_Prak_Algoritma);
Write ('Masukan Nilai Pengantar TI =');readln(Pengantar_TI);
Write ('Masukan SKS Pengantar TI =');readln(SKS_Pengantar_TI);
Write ('Masukan Nilai Al-Islam =');readln(Al_Islam);
Write ('Masukan SKS Al-Islam =');readln(SKS_Al_Islam);
Write ('Masukan Nilai Fisika =');readln(Fisika);
Write ('Masukan SKS Fisika =');readln(SKS_Fisika);
if kalkulus='A' then
angka_kalkulus:=4;
if kalkulus='B' then
angka_kalkulus:=3;
if kalkulus='C' then
angka_kalkulus:=2;
if kalkulus='D' then
angka_kalkulus:=1;
if kalkulus='E' then
angka_kalkulus:=0;
if Indonesia='A' then
angka_Indonesia:=4;
if Indonesia='B' then
angka_Indonesia:=3;
if Indonesia='C' then
angka_Indonesia:=2;
if Indonesia='D' then
angka_Indonesia:=1;
if Indonesia='E' then
angka_Indonesia:=0;
if ICT='A' then
angka_ICT:=4;
if ICT='B' then
angka_ICT:=3;
if ICT='C' then
angka_ICT:=2;
if ICT='D' then
angka_ICT:=1;
if ICT='E' then
angka_ICT:=0
else
angka_ICT:=0;
if Kimia='A' then
angka_Kimia:=4;
if Kimia='B' then
angka_Kimia:=3;
if Kimia='C' then
angka_Kimia:=2;
if Kimia='D' then
angka_Kimia:=1;
if Kimia='E' then
angka_Kimia:=0;
if Praktek_ICT='A' then
Angka_Praktek_ICT:=4;
if Praktek_ICT='B' then
Angka_Praktek_ICT:=3;
if Praktek_ICT='C' then
Angka_Praktek_ICT:=2;
if Praktek_ICT='D' then
Angka_Praktek_ICT:=1;
if Praktek_ICT='E' then
Angka_Praktek_ICT:=0;
if Algoritma='A' then
Angka_Algoritma:=4;
if Algoritma='B' then
Angka_Algoritma:=3;
if Algoritma='C' then
Angka_Algoritma:=2;
if Algoritma='D' then
Angka_Algoritma:=1;
if Algoritma='E' then
Angka_Algoritma:=0;
if Prak_Algoritma='A' then
Angka_Prak_Algoritma:=4;
if Prak_Algoritma='B' then
Angka_Prak_Algoritma:=3;
if Prak_Algoritma='C' then
Angka_Prak_Algoritma:=2;
if Prak_Algoritma='D' then
Angka_Prak_Algoritma:=1;
if Prak_Algoritma='E' then
Angka_Prak_Algoritma:=0;
if Pengantar_TI='A' then
Angka_Pengantar_TI:=4;
if Pengantar_TI='B' then
Angka_Pengantar_TI:=3;
if Pengantar_TI='C' then
Angka_Pengantar_TI:=2;
if Pengantar_TI='D' then
Angka_Pengantar_TI:=1;
if Pengantar_TI='E' then
Angka_Pengantar_TI:=0;
if Al_Islam='A' then
Angka_Al_Islam:=4;
if Al_Islam='B' then
Angka_Al_Islam:=3;
if Al_Islam='C' then
Angka_Al_Islam:=2;
if Al_Islam='D' then
Angka_Al_Islam:=1;
if Al_Islam='E' then
Angka_Al_Islam:=0;
if Fisika='A' then
Angka_Fisika:=4;
if Fisika='B' then
Angka_Fisika:=3;
if Fisika='C' then
Angka_Fisika:=2;
if Fisika='D' then
Angka_Fisika:=1;
if Fisika='E' then
Angka_Fisika:=0;
Total_Kalkulus:=angka_kalkulus*sks_kalkulus;
Total_Indonesia:=angka_indonesia*SKS_indonesia;
Total_ICT:=angka_ICT*SKS_ICT;
Total_Kimia:=angka_kimia*SKS_kimia;
Total_Praktek_ICT:=angka_Praktek_ICT*SKS_Praktek_ICT;
Total_Algoritma:=angka_Algoritma*SKS_Algoritma;
Total_Prak_Algoritma:=angka_Prak_algoritma*SKS_Prak_Algoritma;
Total_Pengantar_TI:=angka_Pengantar_TI*SKS_Pengantar_TI;
Total_Al_Islam:=angka_Al_islam*SKS_Al_islam;
Total_Fisika:=Angka_fisika*SKS_Fisika;
Total_a:=Total_Kalkulus+Total_Indonesia+Total_ICT+Total_Kimia+Total_Praktek_ICT;
Total_b:=Total_Algoritma+Total_Prak_Algoritma+Total_Pengantar_TI+Total_Al_Islam+Total_Fisika;
Total:=Total_a+Total_b;
SKS_a:=SKS_kalkulus+SKS_Indonesia+SKS_ICT+SKS_Kimia+SKS_PrakTek_ICT;
SKS_b:=SKS_Algoritma+SKS_Prak_Algoritma+SKS_pengantar_TI+SKS_Al_islam+SKS_fisika;
SKS:=SKS_a+SKS_b;
IPS:=total/SKS;
writeln('Indeks Prestasi Semester =',IPS:10:0);
end.
0 komentar:
Posting Komentar