Administrasi mahasiswa pada pascal

Administrasi mahasiswa

Program Administrasi_Mahasiswa;

uses crt;

const

pkkspp = 400000;

infospp = 600000;

elekspp = 500000;

bogaspp = 450000;

ptikspp = 500000;

pkkprak = 100000;

infoprak = 500000;

elekprak = 450000;

bogaprak = 600000;

ptikprak = 350000;

sehat : real = 10000;

var

nm,jur : string;

nojur : byte;

tahun :integer;

spp,prak : real;

tot : real;

begin

clrscr;

writeln(‘Administrasi Mahasiswa Fakultas

Teknik dan Kejuruan’);

writeln

(‘======================================

=============’);

write(‘Nama : ‘); readln(nm);

writeln(‘Keterangan Jurusan : ‘);

writeln(’1. PKK’);

writeln(’2. D3 Informatika’);

writeln(’3. D3 Elektro’);

writeln(’4. D3 Boga Perhotelan’);

writeln(’5. PTIK’);

write(‘Jurusan (tulis no saja) : ‘); readln

(nojur);

write(‘Tahun Masuk : ‘); readln(tahun);

if tahun<2004 span="" then="">

begin

if nojur = 1 then

begin

spp := pkkspp;

jur := ‘PKK’

end

else if nojur = 2 then

begin

spp :=infospp;

jur := ‘D3 Informatika’;

end

else if nojur = 3 then

begin

spp :=elekspp;

jur := ‘D3 Elektro’

end

else if nojur = 4 then

begin

spp :=bogaspp;

jur := ‘D3 Boga Perhotelan’;

end

else if nojur= 5 then

begin

spp :=ptikspp;

jur := ‘PTIK’

end

else

writeln(‘Jurusan salah, tolong ulangi !!’);

end

else

begin

if nojur = 1 then

begin

spp := pkkspp;

prak:= pkkprak;

jur := ‘PKK’

end

else if nojur= 2 then

begin

spp :=infospp;

prak:= infoprak;

jur := ‘D3 Informatika’;

end

else if nojur = 3 then

begin

spp :=elekspp;

prak:=elekprak;

jur := ‘D3 Elektro’;

end

else if nojur = 4 then

begin

spp :=bogaspp;

prak:=bogaprak;

jur := ‘D3 Boga Perhotelan’;

end

else if nojur= 5 then

begin

spp :=ptikspp;

prak:=ptikprak;

jur := ‘PTIK’;

end

else

writeln(‘Jurusan salah, tolong ulangi !!’);

end;

tot := spp+prak+sehat;

writeln(‘Nama : ‘,nm);

writeln(‘Jurusan : ‘,jur);

writeln(‘Tahun Masuk : ‘,tahun);

writeln(‘Uang SPP : Rp. ‘,spp:7:2);

writeln(‘Uang Praktikum : Rp. ‘,prak:7:2);

writeln(‘Uang Kesehatan : Rp. ‘,sehat:7:2);

writeln(‘———————————’);

writeln(‘Total Pembayaran : Rp. ‘,tot:7:2);

writeln

(‘======================================

===========’);

readln;

end.