Jumat, 03 Oktober 2008

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 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.

0 komentar:

Template by : kendhin x-template.blogspot.com