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.
Untuk
contoh programnya bisa anda download disini.
Komentar
Posting Komentar