program DATA;
uses crt;
var
nama,concat1, spasi, kalimat, sifat, substr, hasil,hasil1 : string[40];
index,count : integer;
loc : integer;
jawab,jawab2,jwb1,jwb2,jwb3,jwb4 : char;
urutan,posisi : integer;
pil : integer;
delete1,delete2 : integer;
lat1,lat2,lat3,lat4,lat5,str6 : string;
str1,str2,str3,str4,str5 : integer;
pil1, pil2, pil3, pil4, pil5 : integer;
komb1, komb2, komb3, komb4, komb5 : string;
komb1i, komb2i, komb3i, komb4i, komb5i : integer;
begin
repeat
writeln('************************');
writeln('|=========MENU=========|');
writeln('| 1. Delete |');
writeln('| 2. Insert |');
writeln('| 3. Concat |');
writeln('| 4. Length |');
writeln('| 5. Substring |');
writeln('| 6. kombinasi |');
writeln('|======================|');
writeln;
writeln;
write('Masukkan Pilihan Anda :'); readln(pil);
case pil of
1: begin
clrscr;
writeln('Delete digunakan untuk membuang sejumlah karakter tertentu');
readln;
write('Masukkan Kata 1 :');
readln(nama);
write('Karakter ke Berapa yang mau di Hapus ?');
readln(delete1);
write('Sepanjang ?');
readln(delete2);
delete(nama,delete1,delete2);
writeln(nama);
readln;
end;
2: begin
clrscr;
writeln ('Insert digunakan untuk menyisipkan suatu string ke nilai string yang lainnya mulai dari posisi tertentu');
readln;
writeln;
write('Masukkan String 1 :');
readln(nama);
write('Masukkan String 2 :');
readln(kalimat);
write('Pada Posisi ke Berapa String 1 Akan di Sisipkan ke String 2 :'); readln(loc);
insert(nama,kalimat,loc);
writeln;
writeln('String Baru :',kalimat);
readln;
end;
3: begin
clrscr;
writeln ('Concat(S1,S2) yakni concatenation (produk/penyambungan dua buah string)');
readln;
write('Masukkan Kata 1:');
readln(nama);
write('Masukkan Kata 2:');
readln(kalimat);
begin
writeln (concat('',nama,'',kalimat));
write('Ingin Menggunakan Jeda/Spasi ? [y/t]');
readln(jawab2);
if (jawab2='y') then
begin
spasi := ' ';
concat1 := concat(nama,spasi,kalimat);
writeln(concat1);
readln;
end;
clrscr;
end;
end;
4: begin
clrscr;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
write('Masukkan Kata 1 :');
readln(nama);
writeln('Panjang Kata Anda Adalah ',' ',length(nama),'karakter');
readln;
end;
5: begin
clrscr;
writeln ('Substr adalah operasi untuk membuat string baru dengan mengambil beberapa karakter berurutan dari suatu string');
readln;
write('Masukkan Kalimat :');
readln(substr);
write('Posisi Berapa Yang Mau di Cetak ?');
readln(str1);
write('Sepanjang?');
readln(str2);
writeln('Hasil');
hasil := copy(substr,str1,str2);
writeln(hasil);
readln;
end;
6:begin
clrscr;
writeln ('|======== MENU ========|');
writeln ('|1. Concat |');
writeln ('|======================|');
write (' Pilih kombinasi :');
readln(pil1);
if(pil1=1) then
begin
clrscr;
writeln;
writeln ('Concat(S1,S2) yakni concatenation (produk/penyambungan dua buah string)');
readln;
write('Masukkan kata 1 :');
readln(komb1);
writeln;
write('Masukkan kata 2 :');
readln(komb2);
writeln;
komb3 := concat(komb1,komb2);
writeln('Hasilnya = ',komb3);
readln;
clrscr;
writeln('Ingin dikombinasikan lagi dengan :');
writeln;
writeln ('|======== MENU ========|');
writeln ('| 1. Length |');
writeln ('| 2. Insert |');
writeln ('|======================|');
write('Masukkan pilihan : ');
readln(pil2);
if(pil2=1) then
begin
clrscr;
writeln;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
write('Hasil panjang karakter dari kata/kalimat ',komb3,' adalah : ',length(komb3));
readln;
end else if(pil2=2) then
begin
clrscr;
writeln;
writeln ('Insert digunakan untuk menyisipkan suatu string ke nilai string yang lainnya mulai dari posisi tertentu');
readln;
write('Masukkan kata/kalimat yang ingin disisipkan : ');
readln(komb4);
writeln;
write('Pada posisi ke- : ');
readln(komb1i);
writeln;
insert(komb4,komb3,komb1i);
writeln('Hasilnya : ',komb3);
readln;
writeln('Ingin dikombinasikan dengan lagi dengan : ');
writeln('1. Length');
writeln('2. Substring');
writeln('3. Delete');
write('Masukkan pilihan : ');
readln(pil3);
if(pil3=1) then
begin
clrscr;
writeln;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
write('Hasil panjang karakter dari kata/kalimat ',komb3,' adalah : ',length(komb3));
readln;
end else if(pil3=2) then
begin
clrscr;
writeln;
writeln ('Substr adalah operasi membuat string baru');
readln;
write('Karakter keberapa yang ingin dicetak dari kalimat ',komb3,' : ');
readln(komb2i);
writeln;
write('Sepanjang : ');
readln(komb3i);
writeln;
komb5 := copy(komb3,komb2i,komb3i);
writeln('Hasilnya : ',komb5);
readln;
writeln('Ingin dikombinasikan lagi dengan : ');
writeln('1. Length');
writeln('2. Delete');
write('Masukkan pilihan : ');
readln(pil4);
if(pil4=1) then
begin
clrscr;
writeln;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
writeln('Panjang karakter dari kata/kalimat ',komb5,' adalah : ',length(komb5));
readln;
end else if(pil4=2) then
begin
clrscr;
writeln;
writeln('Delete digunakan untuk membuang sejumlah karakter tertentu');
readln;
write('Karakter keberapa yang ingin dihapus dari kalimat ',komb5,' : ');
readln(komb4i);
write('Sepanjang : ');
readln(komb5i);
delete(komb5,komb4i,komb5i);
writeln;
writeln('Hasilnya : ',komb5);
readln;
write('Ingin dikombinasikan dengan Length ? [y/t] : ');
readln(jwb1);
if(jwb1='y') then
begin
clrscr;
writeln;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
writeln('Panjang karakter dari kata/kalimat ',komb5,' adalah : ',length(komb5));
readln;
end else if(pil3=3) then
begin
clrscr;
writeln;
writeln('Delete digunakan untuk membuang sejumlah karakter tertentu');
readln;
write('Karakter keberapa yang ingin dihapus dari kalimat ',komb4,' : ');
readln(komb2i);
write('Sepanjang : ');
readln(komb3i);
delete(komb4,komb2i,komb3i);
writeln;
writeln('Hasilnya : ',komb4);
readln;
write('Ingin dikombinasikan dengan Length ? [y/t] : ');
readln(jwb1);
if(jwb1='y') then
begin
clrscr;
writeln;
writeln ('Length yakni operasi untuk menghitung length atau panjang string ');
readln;
writeln('Panjang karakter dari kata/kalimat ',komb4,' adalah : ',length(komb4));
readln;
end;
end;
end;
end;
end;
end;
end;
end;
clrscr;
writeln('Apakah Anda Ingin Kembali ke Menu? (y/t)'); readln(jawab);
clrscr;
until (jawab='t');
writeln('Terima Kasih (^-^)');
readln;
end.
0 komentar:
Posting Komentar