Tugas Asdos..^_T

Input Data Mahasiswa

Link Download Program nya

Uses Crt;
Label Return;
Var i,SEL,sks,nilai,n,totalsks: Integer;
jwbn:char;
nama,alamat,nim,makul:string;
harga,total:real;
Begin
clrscr;
writeln('Input Data Mahasiswa : ');
write('NIM : ');readln(nim);
write('Nama : ');readln(nama);
write('Alamat : ');readln(alamat);
readkey;
clrscr;
repeat
clrscr;
nilai:=0;
write('Nama Makul : ');readln(makul);
write('Beban SKS : ');readln(sks);
totalsks:=totalsks+sks;
total:=sks*95000;
harga:=harga+total;
write(' Ulang Lagi ? (Y/T) : ');readln(Jwbn);
until upcase(Jwbn)='T';
Return:
Clrscr;
writeln('MENU : ');
Writeln('1.Cetak Tagihan');
WRITELN('2.Cetak Data Mahasiswa');
WRITELN('3.Keluar');
Writeln('Inputkan Pilihan :');
Readln(SEL);
If SEL = 1 then
Begin
writeln('Jumlah SKS : ',totalsks);
writeln('Total Bayar (95000/sks) : ',harga:0:2);
readkey;
Goto Return;
End;
If SEL = 2 then
Begin
writeln('Nim : ',nim);
writeln('Nama : ',nama);
writeln('Alamat : ',alamat);
readkey;
Goto Return;
End;
If SEL = 3 then
Begin
Halt;
End;
End.