Tugas Struktur & Organisasi Data 2

--Script Berupa Coding yang telah dicoba di Turbo Pascal IDE--

uses crt;
var a,b,c,g : string[100];
d,e : integer;
pilihan : byte;
begin
clrscr;
writeln('--------------------');
writeln('Menu Operator String');
writeln('--------------------');
writeln('1. Menggabungkan String');
writeln('2. Menyisipkan String');
writeln('3. Menghitung jumlah Panjang String');
writeln('4. Biodata');
writeln('5. Exit');
writeln('Masukkan Pilihan Anda');
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln('Masukan kata Pertama : ');
readln(a);
writeln('Masukan kata Kedua : ');
readln(b);
writeln('Hasil Penggabungan : ', concat(a,' ',b));
readln;
end;
2 : begin
clrscr;
writeln('Masukan Kata yang anda inginkan : ');
writeln('Kata ke-1 : ');
readln(a);
writeln('Kata ke-2 -yang akan disisipkan pada kata ke-1- : ');
readln(b);
writeln('Silahkan posisi yang akan anda sisipkan Kata ke-2 kedalam Kata ke-1 : ');
readln(d);
insert(b,a,d);
writeln(a);
readln;
end;
3 : begin
clrscr;
writeln('Masukan kata yang akan diketahui jumlah stringnya : ');
readln(a);
writeln;
writeln(' ',a,' ', 'Memiliki jumlah String sebanyak : ', length(a),' ','karakter');
writeln;
writeln('Spasi Termasuk Karakter');
readln;
end;
4 : begin
clrscr;
writeln('-----Biodata Saya-----');
writeln('Nama : Satrio wisnu Wardono');
writeln('NPM / Kelas : 15109393 / 2KA16');
writeln('Materi : Struktur & Organisasi Data 2');
writeln('Dosen : Lily Wulandari');
readln;
end;
5 : begin
end;
end;
end.

Insya Allah Berhasil....


Beriku Hasil Print Screennya...
Coding

Menu serta Hasil Outputnya...