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.

Coding Pascal Mengenai String

Ini adalah sebuah tugas 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 untuk mencari panjang dari sebuah string, menggabungkan isi dari kedua string, dan menyisipkan isi dari sebuah string ke dalam string lain.

Berikut adalah Coding nya :

uses crt;
var pilih,c1,c2 : integer;
    a,b,d : string;

begin
     clrscr;
     writeln('Pilih menu');
     writeln('1. Mencari panjang dari sebuah string.');
     writeln('2. Menggabungkan isi dari kedua string.');
     writeln('3. Menyisipkan isi dari sebuah string ke dalam string lain.');
     write  ('Pilihan anda :'); readln(pilih);
   
     (* Memulai pilihan *)
     case pilih of
         (*Mengihtung panjang dari sebuah string.*)
     1 : Begin
         writeln('Tulis string yang anda ingin hitung panjangnya.');
         readln(a);
         c1:=length(a);
         writeln('Panjang dari ',a,' adalah ',c1);
         end;
         (*Menggabungkan isi dari kedua string. *)
     2 : Begin
         writeln('Tulis string pertama yang anda ingin gabungkan.');
         readln(a);
         writeln('Tulis string kedua yang anda ingin gabungkan.');
         readln(b);
         d:=concat(a,b);
         writeln('Gabungan string ',a,' dan string ',b,' adalah ',d);
         end;
         (*Menyisipkan isi dari sebuah string ke dalam string lainnya.*)
     3 : Begin
         writeln('Tulis string pertama yang anda inginkan.');
         readln(a);
         writeln('Tulis string yang ingin disisipkan.');
         readln(b);
         writeln('Huruf ke berapa yang ingin disisipkan?');
         readln(c1);
         insert(b,a,c1);
         writeln('Gabungan stringnya adalah ',a,' dan ',b);
         end;
     else
         writeln('Menu yang dipilih salah.');
         end;
     writeln('Ketik apa saja untuk mengakhiri program.');
     readln;
end.