uses crt;
var
a,b,c,d : integer;
pilihan : byte;
str1,str2: string[99];
z:char;
label o,n,m;
begin
clrscr;
o:writeln(‘<<<Menu String>>>’);
writeln(’1.Input String’);
writeln(’2.Mencari Panjang String’);
writeln(’3.Menggabungkan String’);
writeln(’4.Menyisipkan String’);
writeln(’5.Exit’);
writeln;
writeln(‘Ketik Pilihan Anda’);
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln(‘Masukan 2 String yang ingin di proses : ‘);
writeln(‘String 1: ‘);
readln(str1);
writeln(‘String 2: ‘);
readln(str2);
readln;
goto o;
end;
2 : begin
clrscr;
writeln(‘Masukan String yang ingin di hitung panjangnya: ‘);
readln(a);
if a = 1 then
begin
writeln(‘Panjang String 1: ‘,length(str1));
end
else
if a = 2 then
begin
writeln(‘Panjang String 2: ‘,length(str2));
end
else
begin
writeln (‘Maaf string yang di maksud tidak tersedia’);
end;
readln;
clrscr;
goto o;
end;
3: begin
clrscr;
n:writeln(‘Untuk String 1 ke string 2 (y/n) : ‘);
readln (z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(str1,str2));
readln;
goto o;
end
else if z = ‘n’ then
begin
writeln(‘Untuk String 2 ke string 1 (y/n): ‘);
readln(z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(str2,str1));
readln;
goto o;
end
else
writeln(‘Ingin Kembali ke Menu utama ? (y/n) :’);
readln(z);
if z = ‘y’ then
begin
clrscr;
goto o;
end
else
goto n;
end;
end;
4: begin
clrscr;
writeln(‘Masukan nomor string yang akan di sisipkan :’);
readln(b);
writeln(‘Masukan nomor string sebagai penyisip: ‘);
readln(c);
writeln(‘Masukan posisi String untuk di sisipkan: ‘);
readln(d);
if b = 1 then
begin
write(‘Hasilnya : ‘);
insert(str1,str2,d);
writeln(str2);
readln;
goto o;
end
else if b = 2 then
begin
write(‘Hasilnya : ‘ );
insert(str2,str1,d);
writeln(str1)
readln;
clrscr;
goto o;
end;
end;
5: begin
end;
end;
end.
