Tugas Struktur & Organisasi Data 2

Berikut adalah Coding program pascal...menu string.

uses crt;
var a,b,c,g : string[100];
d,e : integer;
pilihan : byte;
begin
clrscr;
writeln('-----------------------------');
writeln(' Pilahan Menu String ');
writeln('-----------------------------');
writeln('1. Menggabungkan String');
writeln('2. Menyisipkan String');
writeln('3. Menghitung jumlah Panjang String');
writeln('4. Profile');
writeln('5. Exit');
writeln('Masukkan Pilihan Anda');
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln('Silahkan Input kata Pertama : ');
readln(a);
writeln('Silahkan Input kata Kedua : ');
readln(b);
writeln('Hasil Penggabungan dari kedua kata : ', concat(a,' ',b));
readln;
end;
2 : begin
clrscr;
writeln('Silahkan Input Kata yang anda inginkan : ');
writeln('Kata ke 1: ');
readln(a);
writeln('Kata ke 2, yang akan disisipkan pada kata ke 1 : ');
readln(b);
writeln('Masukan posisi Kata yang akan anda sisipkan ke kata 2 kedalam Kata ke 1 : ');
readln(d);
insert(b,a,d);
writeln(a);
readln;
end;
3 : begin
clrscr;
writeln('Silahkan Input Kata yang Akan dihitung panjang stringnya : ');
readln(a);
writeln;
writeln(' ',a,' ', 'Memiliki panjang String sebanyak : ', length(a),' ','karakter');
writeln;
writeln('Spasi Sudah Termasuk Karakter');
readln;
end;
4 : begin
clrscr;
writeln('********Profile Daku*******');
writeln('Nama : Ridwan Mardani');
writeln('NPM / Kelas : 16109519 / 2KA16');
writeln('Materi : Struktur & Organisasi Data 2');
writeln('Dosen Pengajar : Lily Wulandari');
readln;
end;
5 : begin
end;
end;
end.


berikut hasil tampilan outputnya..insyaALLAH 100% berhasil....
aminnn.