Tugas Struktur Organisasi Data 2

uses crt;
var
j,k,l,m,n : integer;
pilihan : byte;
x,y,str1,str2: string[99];
z:char;
label p,q,r;
begin
clrscr;
p:writeln(‘<<>>’);
writeln(’1.Input’);
writeln(’2.Menghitung Panjang String’);
writeln(’3.Menggabungkan beberapa 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(x);
writeln(‘String 2: ‘);
readln(y);
readln;
goto p;
end;
2 : begin
clrscr;
writeln(‘Masukan String yang ingin anda hitung: ‘);
readln(a);
if j = 1 then
begin
writeln(‘Panjang String 1: ‘,length(x));
end
else
if j = 2 then
begin
writeln(‘Panjang String 2: ‘,length(y));
end
else
begin
writeln (‘Maaf string yang anda maksud tidak tersedia’);
end;
readln;
clrscr;
goto p;
end;
3: begin
clrscr;
r:writeln(‘Untuk String 1 ke string 2 (y/r) : ‘);
readln (z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(x,y));
readln;
goto p;
end
else if z = ‘r’ then
begin
writeln(‘Untuk String 2 ke string 1 (y/r): ‘);
readln(z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(y,x));
readln;
goto p;
end
else
writeln(‘Ingin Kembali ke Menu utama? (y/n) :’);
readln(z);
if z = ‘y’ then
begin
clrscr;
goto p;
end
else
goto r;
end;
end;
4: begin
clrscr;
writeln(‘Masukan nomor string yang akan di sisipkan :’);
readln(k);
writeln(‘Masukan nomor string sebagai penyisip: ‘);
readln(l);
writeln(‘Masukan posisi String untuk di sisipkan: ‘);
readln(m);
if k = 1 then
begin
write(‘Hasilnya : ‘);
insert(x,y,n);
writeln(y);
readln;
goto p;
end
else if b = 2 then
begin
write(‘Hasilnya : ‘ );
insert(y,x,n);
writeln(x);
readln;
clrscr;
goto p;
end;
end;
5: begin
end;
end;
end.