Operasi String pada Turbo Pascal

1.     Operasi String pada Turbo Pascal

1.1 Merangkai String

Pengerjaan suatu string hanya mempunyai sebuah operator, yaitu ‘ + ‘. Bila operator ini digunakan untuk penambahan nilai numeric, maka akan berfungsi menjumlahkan dua buah nilai elemen numeric, tetapi pada string operator ini digunakan untuk merangkai dua buah elemen string menjadi sebuah string. Panjang maksimum suatu string yang diijinkan oleh Pascal adalah 255 karakter.

Contoh :

program merangkai_nilai_nilai;

uses wincrt;

const

     jenis='Bahasa';

     nama='TURBO Pascal';

var

   sifat:string[12];

   kalimat:string[80];

begin

     sifat:='terstruktur';

     kalimat:=Jenis+' '+nama+' '+'merupakan '+jenis+' '+sifat;

     writeln(kalimat);

end.

1.2 Penyeleksian String

Dua buah string dikatakan sama bila nilai string yang pertama sama isi dan panjangnya dengan nilai string yang kedua. Blank dianggap nilai yang signifikan.

Contoh:

uses wincrt;

var

 NamaBahasa: string[16];

begin

 write('Bahasa apa yang anda gunakan ?');

 Readln(NamaBahasa);

 if NamaBahasa = 'Pascal' Then

  writeln('Benar !!!')

 Else

  writeln('Salah !!!');

End.

1.3 Prosedur Standar untuk Operasi String

1.3.1 Prosedur Standar Delete

Bentuk Umum :

Delete (var s : string, index : integer, count : integer);

Manipulasi String

Algoritma & Pemrogram 2A

Digunakan untuk membuang sejumlah karakter tertentu (jumlah karakter yang dibuang ditunjukkan oleh nilai integer count) mulai dari posisi tertentu (ditunjukkan oleh nilai integer index) dari suatu nilai string ditunjukkan oleh pengenal variable string var s). Jika posisi index lebih besar dari panjang string s, maka tidak ada karakter yang akan terhapus.

            Contoh:

            uses wincrt;

var

 Bahasa         : String[12];

 Urutan, Posisi : integer;

begin

 Bahasa         :='Turbo Pascal';

 For Urutan     :=1 to 12 Do

 begin

 Posisi        :=14-Urutan;

 Delete(Bahasa, Posisi, 1);

 writeln(Bahasa);

 End;

End.

1.3.2 Prosedur Standar Insert

Bentuk Umum :

Insert ( source : string , var s : string , index : integer );

Digunakan untuk menyisipkan suatu string (ditunjukkan oleh nilai string source), ke nilai string yang lainnya (ditunjukkan oleh nilai string var s) mulai dari posisi yang ditunjukkan oleh nilai integer index.

            Contoh:

Uses wincrt;

Var

            Nama               : string[14];

Begin

            Nama:='Ety Kurniasih';

            Writeln(Nama);

            Insert('.',Nama,4);

            Writeln(Nama);

End.

1.4 Fungsi standar untuk operasi string

            Bentuk Umum :

Copy (s : string ; index : integer ; count : integer ) : string;

Digunakan untuk menyalin sejumlah karakter (jumlah karakter yang disalin ditunjukkan oleh nilai count) mulai dari posisi yang ditunjukkan oleh nilai integer index dari nilai string yang ditunjukkan oleh s.

Contoh:

uses wincrt;

var

            Karakter       :String[15];

begin

 Karakter :='ABCDEFGHIJKLMNO';

 writeln(Karakter);

            writeln(copy(karakter,5,3));

            writeln(copy(karakter,3,10));

End.