Tugas 2 Mata Kuliah Struktur Organisasi Data

Nama : Tita Sinsi Anggiyanti
NPM  : 10109274
Kelas  : 2KA17

Coding Program di bawah ini merupakan coding untuk menampilkan Jurusan & Angkatan seorang mahasiswa berdasarkan NPM

program struktur_organisassi_data;
uses crt ;
var npm, jur_a, jur_b, ang_1, ang_2: string;
a,b,c: integer;

begin
clrscr;
write ('Masukan NPM Anda : ');
readln (npm);
(*Gunadarma berdiri pada tahun 1981

Kode jurusan:
1 = Strata 1; Sistem Informasi
2 = Diploma 3; Manajemen Informatika
3 = Strata 1; Manajemen Komputer & Akuntansi*)
jur_a:= copy(npm,1,1);

(*Penelusuran jurusan *)
if jur_a = '1' then jur_b:= 'Strata 1 - Sistem Informasi'
else
if jur_a = '2' then jur_b:= 'Diploma 3 - Manajemen Informatika'
else
if jur_a = '3' then jur_b:= 'Strata 1 - Manajemen Komputer & Akuntansi' else jur_b:= '-';

if jur_a <> '-' then
writeln ('Jurusan Anda Adalah: ',jur_b,', Dengan Kode Jurusan: ',jur_a,'.')
else
writeln ('Maaf, Kode Jurusan Anda Tidak Terdapat di Dalam Database Kami, Mohon Ulangi.');

(*Penelusuran angkatan*)
ang_1:= copy(npm,4,2);
val (ang_1,b,c);
if b > 81 then
writeln ('Anda Adalah Angkatan 19',b,'.')
else

begin
if b < 10 then begin
str (b:1, ang_2);
insert ('0',ang_2,1);
writeln ('Anda adalah angkatan 20',ang_2,'.');
end;
readln;
end;
end.