TUGAS 2 MATA KULIAH STRUKTUR & ORGANISASI DATA 2

NAMA  : MUHAMMAD REZA PAHLEVI
NPM     : 14109409
KELAS : 2KA17

coding program dibawah ini merupakan program untuk mencari angkatan & jurusan berdasarkan NPM. tugas ini untuk memenuhi tugas 2 mata kuliah Struktur & Organisasi Data 2 kelas : 2KA17 dengan dosen pembimbing : Lily Wulandari

program muhammad_reza_pahlevi  ;
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*)
jur1:= 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 jur2 <> '-' then
Writeln ('Jurusan anda adalah ',jur_b,' dengan kode jurusan ',jur_a,'.')
else
Writeln('Maaf, kode jurusan anda tidak terdapat didalam 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;
writeln('Anda adalah angkatan 20',b,'.');
end;
readln;
end.