TUGAS Struktur & Organisasi Data

SOAL :

• Buatlah program dengan ketentuan sebagai berikut : 

1. Mencari panjang string dari sebuah string
2. Menggabungkan isi dari 2 buah string
3. Menyisipkan isi sebuah string kedalam string yg lain

• Buat program untuk menampilkan jurusan dan angkatan seseorang mahasiswa di Gunadarma berdasarkan NPM 

JAWABAN

No. 1

Listing program

Program satu;

uses crt;

Label 1;

var q : char;

    s1,s2,jwb,a,c : string;

    b : integer;

begin

clrscr;

1:

writeln ('------Menu------');

writeln ('1. Mencari panjang dari sebuah string');

writeln ('2. Menggabungkan string');

writeln ('3. Menyisipkan isi sebuah string');

writeln ('===========');

repeat

write ('Masukkan pilihan anda : '); readln (q);

    case q of

   '1': begin

        write ('Masukkan String/kata yang diinginkan : '); readln (s1);

        b:=length (s1);

        writeln ('Banyaknya huruf adalah : ', b);

        end;

   '2': begin

        write ('Masukkan String/kata pertama : '); readln (s1);

        write ('Masukkan String/kata kedua : ');readln (s2);

        a := concat (s1,s2);

        writeln ('Hasilnya adalah ', a);

        end;

   '3': begin

        a:= 'nama dari kelas 2ka17';

        INSERT('saripah',a,5);

        writeln ('hasilnya adalah ', a);

        end;

   end;

write('Apakah anda akan menambah pilihan? (y/t) : ');

readln (jwb);

until (jwb ='t');

readln;

end.

Output program

No. 2

Listing Program 

Program dua;

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);

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.’);

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.

Output Program