Catatan Anak Kampus

TUGAS 2
STRUKTUR DAN ORGANISASI DATA 2

NAMA : NOVRI YANTO
NPM : 13109139
KELAS : 2KA17
DOSEN : LILY WULANDARI

Coding program dibawah ini merupakan program untuk mencari jurusan & angkatan berdasarkan NPM .
Tugas ini untuk memenuhi mata kuliah SOD 2.

program novri_yanto ;
uses crt ;

var npm,jurs_x,jurs_y,ang_1,ang_2 : string ;
x,y,z : 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*)
jurs1:= Copy(npm,1,1);
(*Penelusuran jurusan *)

if jurs_x = '1' then jurs_y:= 'Strata 1 - Sistem Informasi' else
if jurs_x = '2' then jurs_y:= 'Diploma 3 - Manajemen Informatika' else
if jurs_x = '3' then jurs_y:= 'Strata 1 - Manajemen Komputer & Akuntansi' else jurs_y:= '-';

if jurs2 <> '-' then
Writeln ('Jurusan anda adalah ',jurs_y,' dengan kode jurusan ',jurs_x,'.')
else
Writeln('Maaf, kode jurusan anda tidak ada dalam database kami,mohon diulangi.');
(*Penelusuran angkatan*)

ang_1:= Copy(npm,4,2);
val(ang_1,x,y);
if y > 81 then
Writeln('Anda merupakan angkatan 19',y,'.')
else

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