Selasa, 01 Maret 2011

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.

Tidak ada komentar:

Posting Komentar