#include<iostream.h>
#include<conio.h>
main()
{
int a[5]={10,15,20,25,30};
int b[5]={10,20};
int c[5]={15,0,30};
int j;
// Menampilkan nilai dari element array
cout<<endl;
for(j=0;j<5;j++)
{
cout<<"A ["<<j<<"] = "<<a[j]<<" , B ["<<j<<"] = "<<b[j]<<" , C ["<<j<<"] = "<<c[j]<<endl;
}
getch();
}
program cobastring;
uses crt;
var
(*pendeklarasian tipe data variable*)
pil,hasil:integer;
s,s1,s2,hasilconcat,x1,x2:string;
(*string merupakan tipe data yang mengalokasikan ruang untuk 256 karakter*)
a,x:integer;
jawab: char;
begin
clrscr;
repeat
(*repeat untuk pengulangan yang akan terus di lakukan apabila kondisi yg di definisikan masih bernilai false*)
writeln('----------------MENU-----------------');
writeln('1. Mencari panjang dari sebuah string');
writeln('2. Menggabungkan isi dari 2 buah string');
writeln('3. Menyisipkan isi dari sebuah string kedalam string lain');
writeln;
writeln;
write('masukkan nomer menu yang anda pilih : ');readln(pil);
case pil of
(*catatan untuk statement case yaitu kita harus menempatkan statement tersebut di dalam blok begin*)
1: begin
writeln;
write('masukkan sebuah string: ');readln(s);
a:=length(s); (*length yaitu cara untuk mendapatkan panjang string*)
writeln('Panjang string : ',a);
readln;
end;
2: begin
writeln;
write('masukkan string 1 : ');readln(s1);
writeln;
write('masukkan string 2 : ');readln(s2);
hasilconcat:=concat(s1,s2);
(*concat yaitu fungsi utk melakukan penggabungan terhadap string-string yg menjadi parameternya*)
writeln;
writeln('string baru : ',hasilconcat);
readln;
end;
3:begin
writeln;
write('masukkan string 1 : ');readln(x1);
writeln;
write('masukkan string 2 : ');readln(x2);
writeln;
write('pada posisi ke berapa string 1 akan di sisipkan ke string 2 : ');readln(x);
insert(x1,x2,x);(*insert utk menyisippkan string 1 ke string lainya*)
writeln;
writeln('string baru : ',x2);
readln;
end;
end;
clrscr;
writeln('apakah anda ingin kembali ke menu ? (y/t)');readln(jawab);
until (jawab= 't');
end.