STRUKTUR ORGANISASI DATA 2

uses
wincrt;
const
spasi=’ ‘;
var
r,kata,kata1,kata2,kata3:string;
menu,posisi:integer;
begin
writeln(‘Tugas’);
writeln(‘Pilihan’);
writeln(’1.Mencari panjang string’);
writeln(’2.Menggabungkan string’);
writeln(’3.Menyisipkan string’);
writeln(’4.Tentang’);
write(‘Silahkan pilih menu yg telah tersedia : ‘);readln(menu);
case menu of
1:begin
clrscr;
write(‘masukkan string yg ingin disisipkan : ‘);readln(kata1);
write(‘”‘,kata1,’”‘,’ memiliki panjang string sebanyak : ‘,length(kata1),’ karakter’)
end;
2:begin
writeln(‘masukkan 2 kata yang ingin di gabungkan : ‘);
clrscr;
write(‘kata pertama adalah : ‘);readln(kata1);
write(‘kata kedua adalah : ‘);readln(kata2);
write(’2 kata yang telah anda gabungkan adalah : ‘,concat(kata1,kata2));
end;
3:begin
clrscr;
writeln(‘masukkan kata(diikuti dengan letak)yg ingin disisipkan di kata pertama yg akan anda input : ‘);
write(‘Kata pertama : ‘);readln(kata1);
write(‘Kata kedua( yg ingin anda sisipkan pada kata pertama) : ‘);readln(kata2);
write(‘Silahkan tentukan posisi dimana anda ingin menyisipkan kata kedua ke dalam kata pertama : ‘);readln(posisi);
Insert(kata2,kata1,posisi);
writeln(kata1);
end;
4:begin
clrscr;
writeln(‘Nama : Qori istiqomah’);
writeln(‘Kelas : 2ka16′);
writeln('NPM : 16109484')
writeln(‘Mata kuliah : Struktur dan Organisasi Data 2′);
end;
end;
end.