Operasi String PASCAL

Yang ini sebenarnya program tambahan, habis program-program sebelumnya kan kebanyakan bermain logika matematik (tentang angka melulu). Ehh... dipikir-pikir, operasi tentang string kok gak ada? Tenaaannggg.... sekarang udah ada kok :p 1: var nama : string; 2: urutan, posisi: integer; 3: begin 4: nama:='Dijas Keren'; 5: writeln('Yang ini delete'); 6: for urutan:=1 to 11 do 7: begin 8: posisi:= 13 - urutan; 9: delete(nama, posisi, 1); 10: writeln(nama); 11: end; 12: writeln; 13: nama:='DijasKeren'; 14: writeln('Yang ini insert'); 15: writeln('Sebelum di Insert : ', nama); 16: insert('-', nama, 6); 17: writeln('Setelah di Insert : ', nama); 18: readln; 19: end. Outputnya seperti di bawah ini Yang ini delete Dijas Keren Dijas Kere Dijas Ker Dijas Ke Dijas K Dijas Dijas Dija Dij Di D Yang ini insert Sebelum di Insert : DijasKeren Setelah di Insert : Dijas-Keren Jadi isi penggunaan delete itu => delete(string, posisinya, jumlah yang di hapus). Sedangkan insert => insert(yang mau disisipkan, string, posisinya). Gampang kan? Dengan ini bisa dibuat kayak Program 5 loh (tentang bintang). Bagaimana jika suatu saat kamu pengen ngerubah string jadi numerik atau numerik jadi string? str(angkanya:desimal yang diambil, variabel string tempat hasilnya disimpan) prosedur ini untuk mengubah numerik ke string val(string, variabel numerik tempat hasilnya disimpan, posisi salah) prosedur ini untuk mengubah string ke numerik. Khusus posisi salah, yang dideteksi adalah posisi salah yang pertama (walaupun ada 5 biji yang salah, yang ke tangkap yang pertama) Concat(string, string, string) : string Yang ini untuk menggabungkan string, ini fungsi loohh.. jadi hasil penggabungannya ditampung di Concat Ini program terakhir tentang operasi string, program pembalik kata 1: program pembalik_kata; 2: var kata,hasil,tmp:string; i:integer; 3: begin 4: write('Kata : ');readln(kata); 5: hasil:=''; 6: for i :=length(kata) downto 1 do 7: begin 8: tmp:=copy(kata,i,1); 9: hasil:=hasil+tmp; 10: end; 11: write('Dibalik ',hasil); 12: readln; 13: end. Di program ini ada dua fungsi operasi string baru yang digunakan. length(string) : integer Fungsi ini untuk menghitung panjang atau jumlah karakter. copy(string, posisinya, jumlah yang akan diambil) Fungsi ini untuk mengambil sejumlah huruf dari sting yang dimasukkan Pos(string/huruf yang akan dicari posisinya, string awal):byte Fungsi ini untuk mengetahui posisi dari string/huruf dari kata/kalimat yang dimaksud. Bila bernilai nol berarti nilai string yang dicari tidak ada.