Prosedur Standar Dalam Operasi String

Posted by KarimGanas on 13.01 in
Prosedur standar dalam operasi string
1.  Delete :
Digunakan untuk melakuka abolisi terhadap substring dalam string yang dimulai dari posisi x sebanyak n karakter

              DELETE(STRING :X :N);




Contoh : menghapus substring dalam string
Program delete_string;
Uses
Var awal : string;
Begin
Clrscr;
Awal : = ‘Program Pascal’;
DELETE (awal 2,3);
Writeln (‘string awal = ,’awal);
Readln;
End.

2.  Insert
Berfungsi untuk menyisi[kan substring 1 ke dalam substring 2 mulai posisi abjad x

             Insert (string 1, string 2, n);



Contoh : menyisipkan sebuah string ke dalam string lain
Program insert_substring;
Uses crt;
Var s : string;
Begin
Clrscr;
S : = ‘free pascal yaitu abjad gratis pascal!’;
Writeln (‘string s awal = ‘,s);
Insert (‘bukan’,s,20);
Writeln (‘string s sesudah di insert =’,s);
Readln;
End.

3.  Copy
Berfungsi untuk menyalin substring dan string yang dimulai pada posisi x sebanyak n karakter. Format penulisannya yaitu sebagai berikut :


                Copy (STRING, x, n)



Contoh : menyalin substring ke dalam string
Program cth_copy string;
Uses crt;
Var awal, tamat : string;
Begin
Clrscr;
Awal :=’1234567’;
Writeln (‘nilai string awal : ‘,awal);
Akhir : = copy (awal, 1, 2); {akhir : ‘12’}
Writeln (‘nilai tamat =’,akhir);
Akhir := copy (awal, 4,2); {s := ‘45’}
Writeln (‘nilai tamat copy, 4,2 =’,akhir);
Readln;
End.

4.  Concat
Memiliki kesamaan fungsi dengan operator penggabungan “+” menyerupai yang telah dijelaskan pada sub potongan penggabungan diatas.

                CONCAT (string1, string2, ... string N);



Contoh : menggabungkan 2 string dengan concat
Program concat_string;
Uses crt;
Var
Kata 1, kata 2, hasil : string;
Begin
Clrscr;
Kata 1 := ‘Belajar pemrograman’
Kata 2 := ‘Dengan free pascal’;
Hasil := concat (kata 1, kata 2);
Readln;
End.

5.  Pos
Mencari posisi suatu substring didalam string dengan output data berupa integer. Pos akan mengembalikan nilai indeks substring ke dalam string jikalau string mengandung yang dicari.

                  POS (substring, string);



Contoh : mencari substring dalam string
Program pos_string;
Uses crt;
Var
Kata, cari : string;
          Posisi : integer;
Begin
Clrscr;
Kata := ‘Belajar pemrograman’;
Cari := ‘aj’;
Posisi := pos (cari,kata);
Writeln (posisi);
Readln;

End.


Terimakasih yang sudah berkunjung di blog saya, share ya ke temen - temen kalian jikalau ini bermanfaat. Terimakasihh..