TUGAS

Ini adalah program menggunakan TURBO PASCAL untuk menentukan :

1. Mencari panjang dari sebuah string (karakter)
2. Menggabungkan isi dari sebuah string (karakter)
3. Menyisipkan isi dari sebuah string ke dalam string lain

uses crt;

var pilih,c1,c2 : integer;

a,b,d : string;

begin

clrscr;

writeln('Pilih menu');

writeln('1. Mencari panjang dari sebuah string.');

writeln('2. Menggabungkan isi dari kedua string.');

writeln('3. Menyisipkan isi dari sebuah string ke dalam string lain.');

write ('Pilihan anda :'); readln(pilih);

case pilih of

1 : Begin

writeln('Tulis string yang anda ingin hitung panjangnya.');

readln(a);

c1:=length(a);

writeln('Panjang dari ',a,' adalah ',c1);

end;

2 : Begin

writeln('Tulis string pertama yang anda ingin gabungkan.');

readln(a);

writeln('Tulis string kedua yang anda ingin gabungkan.');

readln(b);

d:=concat(a,b);

writeln('Gabungan string ',a,' dan string ',b,' adalah ',d);

end;

3 : Begin

writeln('Tulis string pertama yang anda inginkan.');

readln(a);

writeln('Tulis string yang ingin disisipkan.');

readln(b);

writeln('Huruf ke berapa yang ingin disisipkan?');

readln(c1);

insert(b,a,c1);

writeln('Gabungan stringnya adalah ',a,' dan ',b);

end;

else

writeln('Menu yang dipilih salah.');

end;

writeln('Ketik apa saja untuk mengakhiri program.');

readln;

end.