Program Pascal Penghitung IPK

Kudena.blogspot.com,Berikut ini adalah Sebuah program bagaimana anda menghitung IPK,ada baiknya jika anda ingin bisa, jangan langsung mengcopynya yah ! tapi diketik dan dicoding saja supaya lebih paham dan greget,langsung saja :

contoh hasil jadinya

langkah-langkah buat yang baru belajar :

1. buka notepad kalian jika tidak mempunyai aplikasi pascal.
2.lalu ketik kode pascal dibawah ini,dan save dengan type ".pas"

program tugas01;

uses wincrt;

const Nama='Programer : Argo Rudi Prasetyo ';

const jurusan='Jurusan   : Teknik Informatika ';

const garis='===============================================================';

var n1,n2,n3,n4,n5,n6,n7:'A'..'E';

b1,b2,b3,b4,b5,b6,b7:byte;

ip:real;

ya:char;

label k1,k2,k3,k4,k5,k6,k7;

begin

repeat

begin

clrscr;

writeln(garis);writeln(nama);writeln(jurusan);writeln(garis);

writeln;

writeln('                          <--Wellcome in My Program-->');writeln;

writeln('Masukkan nilai per mata kuliah Anda :');

k1:write('nilai Pancasila : ');readln(n1);

if (n1='A') or (n1='a') then b1:=4

else if (n1='B') or (n1='b') then b1:=3

else if (n1='C') or (n1='c') then b1:=2

else if (n1='D') or (n1='d') then b1:=1

else if (n1='E') or (n1='e') then b1:=0

else begin writeln('masukan Salah');goto k1; end;

k2:write('nilai Pemrog. Dasar : ');readln(n2);

if (n2='A') or (n2='a') then b2:=4

else if (n2='B') or (n2='b') then b2:=3                                      

else if (n2='C') or (n2='c') then b2:=2

else if (n2='D') or (n2='d') then b2:=1

else if (n2='E') or (n2='e') then b2:=0

else begin writeln('masukan Salah');goto k2; end;

k3:write('nilai PTI : ');readln(n3);

if (n3='A') or (n3='a') then b3:=4

else if (n3='B') or (n3='b') then b3:=3

else if (n3='C') or (n3='c') then b3:=2

else if (n3='D') or (n3='d') then b3:=1

else if (n3='E') or (n3='e') then b3:=0

else begin writeln('masukan Salah');goto k3; end;

k4:write('nilai Kalkulus : ');readln(n4);

if (n4='A') or (n4='a') then b4:=4

else if (n4='B') or (n4='b') then b4:=3

else if (n4='C') or (n4='c') then b4:=2

else if (n4='D') or (n4='d') then b4:=1

else if (n4='E') or (n4='e') then b4:=0

else begin writeln('masukan Salah');goto k4; end;

k5:write('nilai Agama Islam : ');readln(n5);

if (n5='A') or (n5='a') then b5:=4

else if (n5='B') or (n5='b') then b5:=3

else if (n5='C') or (n5='c') then b5:=2

else if (n5='D') or (n5='d') then b5:=1

else if (n5='E') or (n5='e') then b5:=0

else begin writeln('masukan Salah');goto k5; end;

k6:write('nilai Konsep BD : ');readln(n6);

if (n6='A') or (n6='a') then b6:=4

else if (n6='B') or (n6='b') then b6:=3

else if (n6='C') or (n6='c') then b6:=2

else if (n6='D') or (n6='d') then b6:=1

else if (n6='E') or (n6='e') then b6:=0

else begin writeln('masukan Salah');goto k6; end;

k7:write('nilai Logika Infor. : ');readln(n7);

if (n7='A') or (n7='a') then b7:=4

else if (n7='B') or (n7='b') then b7:=3

else if (n7='C') or (n7='c') then b7:=2

else if (n7='D') or (n7='d') then b7:=1

else if (n7='E') or (n7='e') then b7:=0

else begin writeln('masukan Salah');goto k7; end;

ip:=((2*b1)+(4*b2)+(3*b3)+(3*b4)+(2*b5)+(3*b6)+(3*b7))/20;

writeln('Index Prestasi Anda : ',ip:4:2);

writeln;write('mau ulangi lagi (y/t) ? ');readln(ya);

end;

until (ya<>'y');

write('finis');

end.

Buwat agan2 yang masih bingung,bisa tinggalkan comentar disini ^^