TUGAS

Ini adalah program menggunakan TURBO PASCAL untuk menentukan jurusan dan angkatan seorang mahasiswa di gunadarma berdasarkan NPM (Nomor Pokok Mahasiswa)

uses crt;

var npm,jur1,jur2,ang1,ang2 : string;

a,b,c : integer;

begin

clrscr;

write ('Tuliskan NPM anda :');

readln (NPM);

(*Gunadarma didirikan pada tahun 1981

Kode jurusan :

1 = Strata 1 ; Sistem Informasi

2 = Diploma 3 ; Manajemen Informatika

3 = Strata 1 ; Manajemen Komputer & Akuntansi*)

jur1:= Copy(npm,1,1);

if jur1 = '1' then jur2:= 'Strata 1 - Sistem Informasi' else

if jur1 = '2' then jur2:= 'Diploma 3 - Manajemen Informatika' else

if jur1 = '3' then jur2:= 'Strata 1 - Manajemen Komputer & Akuntansi' else

jur2:= '-';

if jur2 <> '-' then

Writeln('Jurusan anda adalah ',jur2,' dengan kode jurusan ',jur1,'.')

else

Writeln('Maaf, kode jurusan anda tidak ada dalam database kami.');

ang1:= Copy(npm,4,2);

val(ang1,b,c);

if b > 81 then

Writeln('Anda termasuk angkatan 19',b,'.')

else begin

if b <>

str(b:1,ang2);

insert('0',ang2,1);

Writeln('Anda termasuk angkatan 20',ang2,'.'); end;

writeln('Anda termasuk angkatan 20',b,'.');

end;

readln;

end.