Pascal:Manipulasi String Format Number

Fungsi CONCAT

• Untuk menggabungkan 2 atau beberapa variabel string.
• Sintaks:

 CONCAT(s1 [,s2,...,sn]: String): 
 
 STRING;

contoh:

CONCAT('ABC','DEF') { ABCDEF }

Fungsi COPY

• Mengambil satu(1) atau beberapa karakter dari sebuah string.
• Sintaks: COPY(S,Index,Count) : String;

Keterangan:

• S = String Sumber (string).
• Index = posisi awal kita akan mengambil beberapa karakter (integer)
• Count = banyaknya karakter yang akan diambil (integer). COPY(“Semarang”,3,4) → mara

Prosedur DELETE

• Menghapus sebagian karakter dari sebuah string.
• Sintaks: DELETE(S,Index,Count);

Keterangan:

• S = String Sumber (string).
• Index = posisi awal kita akan mengambil beberapa karakter (integer)
• Count = banyaknya karakter yang akan dihapus (integer).

Delete(“Semarang”,3,4) → Seng

Prosedur INSERT

• Menyisipkan satu(1) atau beberapa karakter ke dalam sebuah string.
• Sintaks:

INSERT(Source,var S,Index);

Keterangan:

• Source = sumber string untuk disisipi (string)
• var S = string tujuan yang akan disisipi oleh string Source (string)
• Index = posisi mulai (integer).

Insert(“Semarang”,“Atlas”,8) → SemarangAltas

Contoh Program

 program Fungsi_String;
 uses CRT;
 Const
  x ='kang';
  y ='tain';
 var
  a,b,c,p,z : String;
 Begin
  Clrscr;
  z:='Semarang Atlas';
  p:='Kota Semarang';
  delete(z,5,,4);
  a:=concat(x,y);
  b:=Copy(p,1,4);
  writeln(z);
  writeln(a);
  writeln(b);
  insert('ku',p,5);
  writeln(p);
  readln;
 end.

Output

 Sema Atlas
 kangtain
 Kota
 Kotaku Semarang

Prosedur STR

• Merubah nilai numerik ke dalam nilai string.
• Sintaks:

STR(N,S);

Keterangan:

• N = data tipe integer,
• S = data tipe string.

STR(50,data) → var data membawa

• nilai 50 bertipe String

Fungsi CHR

• Memberikan kode ASCII.
• Sintaks:

CHR(N);

Keterangan:

• N = variabel bertipe Numeric.
• CHR(3) → Menhasilkan Lambang “♥“

Prosedur VAL

• Merubah nilai string ke dalam nilai numerik.
• Sintaks:

VAL(S,N,P);

Keterangan:

• S = nilai string,
• N = nilai real,
• P = posisi salah.
• Nilai string harus berisi angka, plus atau minus, bila tidak berarti kesalahan dan letak
• kesalahannya ditunjukkan oleh variabel posisi salah.

Jika benar, maka nilai variabel tsb = 0 (nol). Val(“500”,1,3) → 500 (numeric)

Round (Bilangan Pecahan)

• Untuk membulatkan bilangan pecahan , jika pecahan di atas 50 di bulatkan ke atas, jika kurang dari 50 di hilangkan pecahannya.
• Sintaks:

Round(S);

Keterangan:

• S = variabel bertipe pecahaan.

 Round(70.67) → 71
 Round(70.47) → 70

Contoh Program

 program Fungsi_String;
 uses CRT;
 var
  x,y,b : String;
  z,a,i,p,q : integer; 
 
 Begin
  clrscr
  x:='A-15';
  y:=copy(x,3,2);
  val(y,z,i);
  a:=z*3;
  b:=chr(3);
  writeln(a);
  writeln(b);
  p:=Round(75.65);
  q:=Round(75.46);
  writeln(p);
  writeln(q);
  readln;
 end.

Output

 45
 ♥
 76
 75

Exit dan Halt

Untuk memaksa keluar dari sebuah aplikasi program yang sedang dijalankan dalam pascal

Fungsi LENGTH

• Memberikan nilai panjang dari suatu string (jumlah karakterdalam string).
• Sintaks:

LENGTH(S);

Keterangan:

• S = string
• LENGTH(S) menghasilkan nilai integer.

Legth(“Semarang Atlas”) → 14

Fungsi POS

• Mencari posisi sebuah bagian string (substring) didalam sebuah string.
• Sintaks:

POS(Substr,S); {menghasilkan nilai Byte}

Keterangan:

• Substr = substring yang akan dicari posisinya di dalam sebuah string S. Bila
• Bernilai 0 berarti nilai string yang dicari tidak ada.

Pos(“Semarang Atlas”, a) → 4,6, 13

Fungsi UPCASE

• Memberikan huruf kapital dari argumen.
• Sintaks:

UPCASE(S);

Keterangan:

• S = variabel bertipe karakter.

Upcase(“Semarang Atlas”) → SEMARANG ATLAS

Fungsi Randomize

• Untuk menampilkan secara acak sebuah Angka.
• Syntac:

Randomize(N);

Keterangan:

• N = variabel bertipe Integer.

Randomize (9) → hasilnya angka berapa tidak pasti (antara 0-9)