Saturday, February 26, 2011

Coding Pascal Mengenai Penggunaan Copy dan Insert

Ini adalah sebuah tugas ke dua dari mata kuliah Struktur & Organisasi Data 2, yang ada di Universitas Gunadarma, yang diajarkan pada 2KA 17 oleh Lily Wulandari.

Disini akan dituliskan Coding Pascal bagaimana mencari jurusan dan angkatan berapa dilihat dari NPM nya.

Berikut adalah Coding nya :

 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);
     (*Pencarian jurusan *)
     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.');
     (*Pencarian angkatan*)
     ang1:= Copy(npm,4,2);
     val(ang1,b,c);
     if b > 81 then
        Writeln('Anda termasuk angkatan 19',b,'.')
     else begin
        if b < 10 then begin
        str(b:1,ang2);
        insert('0',ang2,1);
        Writeln('Anda termasuk angkatan 20',ang2,'.'); end;
        writeln('Anda termasuk angkatan 20',b,'.');
        end;
     readln;
end.

No comments:

Post a Comment