Selasa, 01 Maret 2011

Struktur Organisasi Data mencari panjang string,menggabungkan string & menyisipkan string

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

0 komentar:

Posting Komentar