Struktur dan Organisasi Data 2

Nama : Angela Yurinov Kochani
NPM : 13109841
Kelas : 2ka17

SOAL
1.Buatlah program dengan kriteria program sebagai berikut :
*Mencari panjang dari sebuah string
*Menggabungkan isi dari 2 buah string
*menyisipkan  isi dari sebuah string kedalam string lain

JAWABAN :

program operasi_string;

uses wincrt;

var

string1, string2 : string;

begin

     clrscr;

     writeln ('soal pertama');

     writeln ('menghitung panjang suatu string'); writeln;

     write ('masukkan suatu string    : '); readln (string1);

     writeln ('panjang stringnya adalah : ',length(string1),' karakter');

     writeln ('#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#'); writeln;

     writeln ('soal kedua');

     writeln ('menggabungkan dua buah string'); writeln;

     write ('masukkan string pertama : '); readln (string1);

     write ('masukkan string kedua   : '); readln (string2);

     writeln ('hasil penggabungannya   : ',concat (string1,string2));

     writeln ('#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#'); writeln;

     writeln ('soal ketiga');

     writeln ('menyisipkan isi dari string petama ke dalam string kedua'); writeln;

     write ('masukkan string pertama                         : '); readln (string1);

     write ('masukkan string kedua                           : '); readln (string2);

     insert (string1,string2,3);

     write ('string1 disisipkan ke dalam string2 pada karakter ke-3 : ', string2);

end.

Soal ke 2
Buatlah program untuk menampilkan jurusan dan angkatan seorang mahasiswa di universitas gunadarma berdasarkan NPM

JAWABAN :

program program_npm;

uses wincrt;

var

npm,copy1,copy2,jurusan,angkatan : string;

begin

     clrscr;

     write ('masukkan NPM Mahasiswa : ');

     readln(npm); writeln;

     copy1:=copy(npm,1,1);

     copy2:=copy(npm,3,1);

     angkatan:=copy(npm,4,2);

     if (copy1='1') and (copy2='1') then

        jurusan:='Sistem Informasi'

     else

     if (copy1='2') and (copy2='2')  then

               jurusan:='Akuntansi'

     else

     if (copy1='1') and (copy2='6') then

               jurusan:='Sastra Inggris'

     else

     if (copy1='1') and (copy2='2') then

               jurusan:='Manajemen'

     else

     if (copy1='4') and (copy2='1') then

               jurusan:='Teknik Komputer'

     else

     if (copy1='5') and (copy2='4') then

               jurusan:='Teknik Informasi'

     else

               jurusan:='Maaf, jurusan anda belum Kami ketahui';

     writeln('Jurusan anda adalah   : ',jurusan);

     writeln('Anda adalah angkatan  : ',angkatan);

end.