TUGAS 1 Mata Kuliah Struktur Organisasi Data

Nama : Tita Sinsi Anggiyanti
NPM : 10109274
Kelas : 2KA17

Dibawah ini merupakan coding program pascal untuk memenuhi tugas:
Mata kuliah : Struktur Organisasi Data 2
Kelas          : 2Ka17
Dosen         : Lily Wulandari

Dengan ketentuan program:
1. Mencari panjang dari sebuah string (LENGTH)
2. Menggabungkan isi dari 2 buah string (CONCAT)
3. Menysipkan isi sebuah string kedalam string lain (INSERT)

program struktur_organisasi_data;
uses crt;
var menu, x : integer;
a,b,c : string

begin
clrscr;
writeln ('                 M E N U                     ');
writeln (' 1. Mencari Panjang ( LENGTH)  ');
writeln (' 2. Menggabungkan ( CONCAT) ');
writeln (' 3. Menyisipkan       ( INSERT)    ');
writeln (' Pilihan Anda : ');
readln (menu);

case menu of
(*Mencari Panjang*)
1: begin
writeln (' Masukkan string yang akan di hitung panjangnya: ');
readln (a);
x:= length (a);
writeln (' Panjang ',a,' dan ',b,' adalah: ',x);
readln (b);
end;

(*Menggabungkan*)
2: begin
writeln (' Masukkan string pertama yang akan di gabungkan: ');
readln (a);
writeln (' Masukkan string kedua yang akan di gabungkan: ');
readln (b);
c:= concat (a,b);
writeln (' Hasil gabungan string ',a,' dan ',b,' adalah : ',c);
readln (c);
end;

(* Menyisipkan*)
3: begin
writeln (' Masukkan string yang di inginkan: ');
readln (a);
writeln (' Masukkan string yang akan di sisipkan: ');
readln (b);
writeln (' Huruf ke berapa yang ingin di sisipkan ? ');
readln (x);
insert (b,a,x);
writeln (' Hasil gabungannya adalah ',a,' dan ',b);
readln (c);
end;
end;
end.