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)