Operasi String dalam Pascal

Operasi String dalam Pascal

 

Didalam Pascal telah tersedia beberapa perintah yang berguna untuk melakukan operasi yang berhubungan dengan String.

Salah satu operasi yang ada yang akan dibahas saat ini adalah mengenai penggunaan perintah Copy.  Perintah Copy digunakan untuk menyalin data dari sebuah tipe data string

Sintak:

    Copy(String,posisi,sebanyak);

 

String adalah String yang akan dicopy

Posisi adalah dari mulai posisi keberapa string itu akan diCopy

Sebanyak, berapa banyak karakter yang akan dicopy

 

Contoh:

Lihat Source Code

1. S := 'Operasi String Pascal '; 
2. Writeln(Copy,1,7); Akan Menghasilkan Teks Operasi 
3. Writeln(Copy,16,6); Akan Menghasilkan Teks Pascal 

 

 

Berikut adalah contoh bagaimana membuat Tulisan yang ditampilkan per-karakter kelayar:

Lihat Source Code

1.   S := 'Menampilkan Tulisan Per-karakter'; 
2.   For i:=1 to length(s) do 
3.   Begin 
4.      Write(copy(s,i,1)); 
5.      Delay(100); 
6.   End; 

 

Psedeocodenya Adalah sebagai berikut:

              Cetak String S, dari karakter ke counter sebanyak 1 karakter

 

outputnya adalah, pertama akan dicetak Huruf pertama yaitu M kemudian, nilai counter I naik menjadi 2, maka selanjutnya akan dicetak Huruf Ke 2 disamping Huruf Pertama dan Seterusnya dikarenakan ada delay, maka tulisan atau teks akan ditampilkan satu persatu

 

Bagaimana kalau kita ingin menampilkan Tulisan terbalik ?.

Langkah yang mudah adalah dengan menampilkan teks tersebut dari karakter terakhir  menuju karakter pertama

Lihat Source Code

1.  for i:= length(s) downto  1 do 
2.   begin 
3.    write(copy(s,i,1)); 
4.    delay(100); 
5.   end; 

 

Nah berikut adalah latihannya:

Dengan menggunakan perintah standar copy, buat program untuk menampilkan tulisan yang berjatuhan ke bawah layar perkarakter:

 

Selamat mencoba.

 

 

 

http://edn.embarcadero.com/article/20283

Sumber