program dan design

uses crt;
label
awal,akhir;
type
kampus=record
nim,nm,smstr:string;
sks,biaya,jml:real;
end;

var
mi:array[1..20] of kampus;
sekre:array[1..20] of kampus;
ak:array[1..20] of kampus;
tk:array[1..20] of kampus;
ubay,ttl,ukem:real;
jur,nm:string;
pilih,lagi:char;
i,jumdat:byte;

procedure manajemen_inpro;
begin
clrscr;
write('Input Nama : ');readln(nm);
write('Jumlah Data : ');readln(jumdat);
writeln;
for i:=1 to jumdat do
begin
with mi[i] do
begin
writeln('Data Ke : ',i);
write('Input NIM : ');readln(nim);
write('Input Semester : ');readln(smstr);
if smstr='1' then
begin
jml:=19;
biaya:=400000;
end
else if smstr='2' then
begin
jml:=18;
biaya:=450000;
end
else if smstr='3' then
begin
jml:=19;
biaya:=500000;
end
else if smstr='4' then
begin
jml:=20;
biaya:=550000;
end
else if smstr='5' then
begin
jml:=17;
biaya:=600000;
end
else
begin
jml:=17;
biaya:=650000;
end;
ttl:=ttl+biaya;
end;
end;
end;

procedure proses;
begin
clrscr;
writeln('Jurusan : Manajemen Informatika');
writeln;
writeln('******************************************');
writeln(' Data Mahasiswa ');
writeln('******************************************');
writeln('ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍ»');
writeln('º No º NIM º Jumlah SKS º Biaya º');
writeln('ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍ͹');
{123456789012345678901234567890123456789012}
for i:=1 to jumdat do
begin
with mi[i] do
begin
gotoxy(1,8+i);write('º ',i);
gotoxy(6,8+i);write('º ',nim);
gotoxy(17,8+i);write('º ',jml:1:0);
gotoxy(30,8+i);write('º ',biaya:1:0);
gotoxy(42,8+i);writeln('º');
end;
end;
writeln('ÈÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍͼ ');
writeln('Total Pembayaran :',ttl:3:0);
write('Uang Bayar :');readln(ubay);
Ukem:=ubay-ttl;
writeln('Uang Kembali :',ukem:3:0);
end;

procedure sekretaris_inpro;
begin
write('Input Nama : ');readln(nm);
write('Jumlah Data : ');readln(jumdat);
writeln;
for i:=1 to jumdat do
begin
with sekre[i] do
begin
writeln('Data Ke : ',i);
write('Input NIM : ');readln(nim);
write('Input Semester : ');readln(smstr);
if smstr='1' then
begin
jml:=18;
biaya:=400000;
end
else if smstr='2' then
begin
jml:=19;
biaya:=450000;
end
else if smstr='3' then
begin
jml:=19;
biaya:=500000;
end
else if smstr='4' then
begin
jml:=20;
biaya:=550000;
end
else if smstr='5' then
begin
jml:=16;
biaya:=600000;
end
else
begin
jml:=18;
biaya:=650000;
end;
ttl:=ttl+biaya;
end;
end;
end;

procedure proses1;
begin
clrscr;
writeln('Jurusan : Sekretaris');
writeln;
writeln('******************************************');
writeln(' Data Mahasiswa ');
writeln('******************************************');
writeln('ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍ»');
writeln('º No º NIM º Jumlah SKS º Biaya º');
writeln('ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍ͹');
{123456789012345678901234567890123456789012}
for i:=1 to jumdat do
begin
with sekre[i] do
begin
gotoxy(1,8+i);write('º ',i);
gotoxy(6,8+i);write('º ',nim);
gotoxy(17,8+i);write('º ',jml:1:0);
gotoxy(30,8+i);write('º ',biaya:1:0);
gotoxy(42,8+i);writeln('º');
end;
end;
writeln('ÈÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍͼ ');
writeln('Total Pembayaran :',ttl:3:0);
write('Uang Bayar :');readln(ubay);
Ukem:=ubay-ttl;
writeln('Uang Kembali :',ukem:3:0);
end;

procedure Akuntansi_inpro;
begin
write('Input Nama : ');readln(nm);
write('Jumlah Data : ');readln(jumdat);
writeln;
for i:=1 to jumdat do
begin
with ak[i] do
begin
writeln('Data Ke : ',i);
write('Input NIM : ');readln(nim);
write('Input Semester : ');readln(smstr);
if smstr='1' then
begin
jml:=22;
biaya:=400000;
end
else if smstr='2' then
begin
jml:=16;
biaya:=450000;
end
else if smstr='3' then
begin
jml:=16;
biaya:=500000;
end
else if smstr='4' then
begin
jml:=20;
biaya:=550000;
end
else if smstr='5' then
begin
jml:=19;
biaya:=600000;
end
else
begin
jml:=17;
biaya:=650000;
end;
ttl:=ttl+biaya;
end;
end;
end;

procedure proses2;
begin
clrscr;
writeln('Jurusan : Komputerisasi Akuntansi');
writeln;
writeln('******************************************');
writeln(' Data Mahasiswa ');
writeln('******************************************');
writeln('ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍ»');
writeln('º No º NIM º Jumlah SKS º Biaya º');
writeln('ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍ͹');
{123456789012345678901234567890123456789012}
for i:=1 to jumdat do
begin
with mi[i] do
begin
gotoxy(1,8+i);write('º ',i);
gotoxy(6,8+i);write('º ',nim);
gotoxy(17,8+i);write('º ',jml:1:0);
gotoxy(30,8+i);write('º ',biaya:1:0);
gotoxy(42,8+i);writeln('º');
end;
end;
writeln('ÈÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍͼ ');
writeln('Total Pembayaran :',ttl:3:0);
write('Uang Bayar :');readln(ubay);
Ukem:=ubay-ttl;
writeln('Uang Kembali :',ukem:3:0);
end;

procedure teknik_inpro;
begin
write('Input Nama : ');readln(nm);
write('Jumlah Data : ');readln(jumdat);
writeln;
for i:=1 to jumdat do
begin
with tk[i] do
begin
writeln('Data Ke : ',i);
write('Input NIM : ');readln(nim);
write('Input Semester : ');readln(smstr);
if smstr='1' then
begin
jml:=18;
biaya:=400000;
end
else if smstr='2' then
begin
jml:=19;
biaya:=450000;
end
else if smstr='3' then
begin
jml:=18;
biaya:=500000;
end
else if smstr='4' then
begin
jml:=17;
biaya:=550000;
end
else if smstr='5' then
begin
jml:=19;
biaya:=600000;
end
else
begin
jml:=19;
biaya:=650000;
end;
ttl:=ttl+biaya;
end;
end;
end;

procedure proses3;
begin
clrscr;
writeln('Jurusan : Teknik Komputer');
writeln;
writeln('******************************************');
writeln(' Data Mahasiswa ');
writeln('******************************************');
writeln('ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍ»');
writeln('º No º NIM º Jumlah SKS º Biaya º');
writeln('ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍ͹');
{123456789012345678901234567890123456789012}
for i:=1 to jumdat do
begin
with mi[i] do
begin
gotoxy(1,8+i);write('º ',i);
gotoxy(6,8+i);write('º ',nim);
gotoxy(17,8+i);write('º ',jml:1:0);
gotoxy(30,8+i);write('º ',biaya:1:0);
gotoxy(42,8+i);writeln('º');
end;
end;
writeln('ÈÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍͼ ');
writeln('Total Pembayaran :',ttl:3:0);
write('Uang Bayar :');readln(ubay);
Ukem:=ubay-ttl;
writeln('Uang Kembali :',ukem:3:0);
end;

begin
clrscr;
awal:
WRITELN('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
WRITELN('º BINA SARANA INFORMATIKA º');
WRITELN('º*****************************************º');
WRITELN('º PILIHAN JURUSAN º');
WRITELN('º º');
WRITELN('º 1. MANAJEMEN INFORMATIKA º');
WRITELN('º º');
WRITELN('º 2. SEKRETARIS º');
WRITELN('º º');
WRITELN('º 3. KOMPUTERISASI AKUNTANSI º');
WRITELN('º º');
WRITELN('º 4. TEKNIK KOMPUTER º');
WRITELN('º º');
WRITELN('º 5. EXIT º');
WRITELN('º º');
WRITELN('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
WRITE('Masukkan Pilihan Jurusan [1/2/3/4/5] :');readln(pilih);
WRITELN;
if pilih='1' then
begin
manajemen_inpro;
proses;
writeln('Ingin Input Data Lagi [Y/N] :');readln(lagi);
if upcase (lagi)='Y' then
goto awal
else
goto akhir;
end
else if pilih='2' then
begin
sekretaris_inpro;
proses1;
writeln('Ingin Input Data Lagi [Y/N] :');readln(lagi);
if upcase (lagi)='Y' then
goto awal
else
goto akhir;
end
else if pilih='3' then
begin
akuntansi_inpro;
proses2;
writeln('Ingin Input Data Lagi [Y/N] :');readln(lagi);
if upcase (lagi)='Y' then
goto awal
else
goto akhir;
end
else if pilih='4' then
begin
teknik_inpro;
proses3;
writeln('Ingin Input Data Lagi [Y/N] :');readln(lagi);
if upcase (lagi)='Y' then
goto awal
else
goto akhir;
end
else
begin
writeln(' Terima Kasih....!!!!!');
readkey;
exit;
end;


readln;
akhir:
end.