View source for Pascal:Manipulasi String Format Number

==Fungsi CONCAT==
*Untuk menggabungkan 2 atau beberapa variabel string.
*Sintaks: 

<syntaxhighlight lang="pascal">
 CONCAT(s1 [,s2,...,sn]: String): 
 
 STRING;
</syntaxhighlight>

'''contoh:'''

<syntaxhighlight lang="pascal">
CONCAT('ABC','DEF') { ABCDEF }
</syntaxhighlight>


==Fungsi COPY==
*Mengambil satu(1) atau beberapa karakter dari sebuah string.
*Sintaks: <code>COPY(S,Index,Count) : String;</code>

'''Keterangan:'''
*<code>S</code> = String Sumber (string).
*<code>Index</code> = posisi awal kita akan mengambil beberapa karakter (integer)
*<code>Count</code> = banyaknya karakter yang akan diambil (integer). <code>COPY(“Semarang”,3,4)</code> → mara

==Prosedur DELETE==
*Menghapus sebagian karakter dari sebuah string.
*Sintaks: DELETE(S,Index,Count);
'''Keterangan:'''
*<code>S</code> = String Sumber (string).
*<code>Index</code> = posisi awal kita akan mengambil beberapa karakter (integer)
*<code>Count</code> = banyaknya karakter yang akan dihapus (integer).
<code>Delete(“Semarang”,3,4)</code> → Seng

==Prosedur INSERT==
*Menyisipkan satu(1) atau beberapa karakter ke dalam sebuah string.
*Sintaks:

<syntaxhighlight lang="pascal">
INSERT(Source,var S,Index);
</syntaxhighlight>

'''Keterangan:'''
*Source = sumber string untuk disisipi (string)
*'''var S''' = string tujuan yang akan disisipi oleh string Source (string)
*'''Index''' = posisi mulai (integer).
<code>Insert(“Semarang”,“Atlas”,8)</code> → SemarangAltas

===Contoh Program===

<syntaxhighlight lang="pascal">
 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.
</syntaxhighlight>

====Output====

 <syntaxhighlight lang="pascal">
 Sema Atlas
 kangtain
 Kota
 Kotaku Semarang
</syntaxhighlight>

==Prosedur STR==
*Merubah nilai numerik ke dalam nilai string.
*Sintaks:

<syntaxhighlight lang="pascal">
STR(N,S);
</syntaxhighlight>

'''Keterangan:'''
*<code>N</code> = data tipe integer,
*<code>S</code> = data tipe string.

<syntaxhighlight lang="pascal">
STR(50,data) → var data membawa
</syntaxhighlight>

*nilai 50 bertipe String

==Fungsi CHR==
*Memberikan kode ASCII.
*Sintaks:

<syntaxhighlight lang="pascal">
CHR(N);
</syntaxhighlight>

'''Keterangan:'''
*N = variabel bertipe Numeric.
*<code>CHR(3)</code> → Menhasilkan Lambang “♥“

==Prosedur VAL==
*Merubah nilai string ke dalam nilai numerik.
*Sintaks:

<syntaxhighlight lang="pascal">
VAL(S,N,P);
</syntaxhighlight>

'''Keterangan:'''
*<code>S</code> = nilai string,
*<code>N</code> = nilai real,
*<code>P</code> = 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 = <code>0 (nol)</code>. <code>Val(“500”,1,3) → 500 (numeric)</code>

==Round (Bilangan Pecahan)==
*Untuk membulatkan bilangan pecahan , jika pecahan di atas 50 di bulatkan ke atas, jika kurang dari 50 di hilangkan pecahannya.
*Sintaks:

<syntaxhighlight lang="pascal">
Round(S);
</syntaxhighlight>

'''Keterangan:'''
*<code>S</code> = variabel bertipe pecahaan.

<syntaxhighlight lang="pascal">
 Round(70.67) → 71
 Round(70.47) → 70
</syntaxhighlight>

===Contoh Program===

<syntaxhighlight lang="pascal">
 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.
</syntaxhighlight>

====Output====

<syntaxhighlight lang="bash">
 45
 ♥
 76
 75
</syntaxhighlight>

==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:

<syntaxhighlight lang="pascal">
LENGTH(S);
</syntaxhighlight>

'''Keterangan:'''
*S = string
*LENGTH(S) menghasilkan nilai integer.

<syntaxhighlight lang="pascal">
Legth(“Semarang Atlas”) → 14
</syntaxhighlight>

==Fungsi POS==
*Mencari posisi sebuah bagian string (substring) didalam sebuah string.
*Sintaks:

<syntaxhighlight lang="pascal">
POS(Substr,S); {menghasilkan nilai Byte}
</syntaxhighlight>

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

<syntaxhighlight lang="pascal">
Pos(“Semarang Atlas”, a) → 4,6, 13
</syntaxhighlight>

==Fungsi UPCASE==
*Memberikan huruf kapital dari argumen.
*Sintaks:

<syntaxhighlight lang="pascal">
UPCASE(S);
</syntaxhighlight>

'''Keterangan:'''
*<code>S</code> = variabel bertipe karakter.

<syntaxhighlight lang="pascal">
Upcase(“Semarang Atlas”) → SEMARANG ATLAS
</syntaxhighlight>

==Fungsi Randomize==
*Untuk menampilkan secara acak sebuah Angka.
*Syntac:

<syntaxhighlight lang="pascal">
Randomize(N);
</syntaxhighlight>

'''Keterangan:'''
*N = variabel bertipe Integer.

<syntaxhighlight lang="pascal">
Randomize (9) → hasilnya angka berapa tidak pasti (antara 0-9)
</syntaxhighlight>
[[Category:Pascal]]
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Logika dan Algoritma Pemograman]]