Wiki

Pascal:Manipulasi String Format Number: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
 
(8 intermediate revisions by the same user not shown)
Line 3: Line 3:
*Sintaks:  
*Sintaks:  


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


'''contoh:'''
'''contoh:'''


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


==Fungsi COPY==
==Fungsi COPY==
*Mengambil satu(1) atau beberapa karakter dari sebuah string.
*Mengambil satu(1) atau beberapa karakter dari sebuah string.
*Sintaks: <code>COPY(S,Index,Count) : String;</code>
*Sintaks: <code>COPY(S,Index,Count) : String;</code>
'''Keterangan:'''
'''Keterangan:'''
*<code>S</code> = String Sumber (string).
*<code>S</code> = String Sumber (string).
*<code>Index</code> = posisi awal kita akan mengambil beberapa karakter (integer)
*<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
*<code>Count</code> = banyaknya karakter yang akan diambil (integer). <code>COPY(“Semarang”,3,4)</code> → mara
==Prosedur DELETE==
==Prosedur DELETE==
*Menghapus sebagian karakter dari sebuah string.
*Menghapus sebagian karakter dari sebuah string.
Line 26: Line 33:
*<code>Count</code> = banyaknya karakter yang akan dihapus (integer).
*<code>Count</code> = banyaknya karakter yang akan dihapus (integer).
<code>Delete(“Semarang”,3,4)</code> → Seng
<code>Delete(“Semarang”,3,4)</code> → Seng
==Prosedur INSERT==
==Prosedur INSERT==
*Menyisipkan satu(1) atau beberapa karakter ke dalam sebuah string.
*Menyisipkan satu(1) atau beberapa karakter ke dalam sebuah string.
*Sintaks:
*Sintaks:


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


'''Keterangan:'''
'''Keterangan:'''
Line 37: Line 47:
*'''Index''' = posisi mulai (integer).
*'''Index''' = posisi mulai (integer).
<code>Insert(“Semarang”,“Atlas”,8)</code> → SemarangAltas
<code>Insert(“Semarang”,“Atlas”,8)</code> → SemarangAltas
===Contoh Program===
===Contoh Program===


<syntaxhighlight lang="pascal">
  program Fungsi_String;
  program Fungsi_String;
  uses CRT;
  uses CRT;
Line 60: Line 72:
   readln;
   readln;
  end.
  end.
</syntaxhighlight>
====Output====
====Output====
<syntaxhighlight lang="pascal">
  Sema Atlas
  Sema Atlas
  kangtain
  kangtain
  Kota
  Kota
  Kotaku Semarang
  Kotaku Semarang
</syntaxhighlight>


==Prosedur STR==
==Prosedur STR==
Line 70: Line 87:
*Sintaks:
*Sintaks:


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


'''Keterangan:'''
'''Keterangan:'''
Line 76: Line 95:
*<code>S</code> = data tipe string.
*<code>S</code> = data tipe string.


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


*nilai 50 bertipe String
*nilai 50 bertipe String
Line 84: Line 105:
*Sintaks:
*Sintaks:


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


'''Keterangan:'''
'''Keterangan:'''
Line 94: Line 117:
*Sintaks:
*Sintaks:


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


'''Keterangan:'''
'''Keterangan:'''
Line 102: Line 127:
*Nilai string harus berisi angka, plus atau minus, bila tidak berarti kesalahan dan letak
*Nilai string harus berisi angka, plus atau minus, bila tidak berarti kesalahan dan letak
*kesalahannya ditunjukkan oleh variabel posisi salah.  
*kesalahannya ditunjukkan oleh variabel posisi salah.  
Jika benar, maka nilai variabel tsb = 0 (nol). Val(“500”,1,3) → 500 (numeric)
Jika benar, maka nilai variabel tsb = <code>0 (nol)</code>. <code>Val(“500”,1,3) → 500 (numeric)</code>


==Round (Bilangan Pecahan)==
==Round (Bilangan Pecahan)==
*Untuk membulatkan bilangan pecahan , jika pecahan di atas 50 di bulatkan ke atas, jika kurang dari 50 di hilangkan pecahannya.
*Untuk membulatkan bilangan pecahan , jika pecahan di atas 50 di bulatkan ke atas, jika kurang dari 50 di hilangkan pecahannya.
*Sintaks:
*Sintaks:
{{Code|Pascal}}
 
Round(S);
<syntaxhighlight lang="pascal">
Round(S);
</syntaxhighlight>


'''Keterangan:'''
'''Keterangan:'''
*<code>S</code> = variabel bertipe pecahaan.
*<code>S</code> = variabel bertipe pecahaan.
{{Code|Pascal}}
 
<syntaxhighlight lang="pascal">
  Round(70.67) → 71
  Round(70.67) → 71
  Round(70.47) → 70
  Round(70.47) → 70
</syntaxhighlight>
===Contoh Program===
===Contoh Program===
{{Code|Pascal}}
 
<syntaxhighlight lang="pascal">
  program Fungsi_String;
  program Fungsi_String;
  uses CRT;
  uses CRT;
Line 138: Line 169:
   readln;
   readln;
  end.
  end.
</syntaxhighlight>
====Output====
====Output====
<syntaxhighlight lang="bash">
  45
  45
  ♥
  ♥
  76
  76
  75
  75
</syntaxhighlight>


==Exit dan Halt==
==Exit dan Halt==
Untuk memaksa keluar dari sebuah aplikasi program yang sedang dijalankan dalam pascal
Untuk memaksa keluar dari sebuah aplikasi program yang sedang dijalankan dalam pascal
==Fungsi LENGTH==
==Fungsi LENGTH==
*Memberikan nilai panjang dari suatu string (jumlah karakterdalam string).
*Memberikan nilai panjang dari suatu string (jumlah karakterdalam string).
*Sintaks:
*Sintaks:
{{Code|Pascal}}
 
LENGTH(S);
<syntaxhighlight lang="pascal">
LENGTH(S);
</syntaxhighlight>


'''Keterangan:'''
'''Keterangan:'''
*S = string
*S = string
*LENGTH(S) menghasilkan nilai integer.
*LENGTH(S) menghasilkan nilai integer.
{{Code|Pascal}}
 
Legth(“Semarang Atlas”) → 14
<syntaxhighlight lang="pascal">
Legth(“Semarang Atlas”) → 14
</syntaxhighlight>


==Fungsi POS==
==Fungsi POS==
*Mencari posisi sebuah bagian string (substring) didalam sebuah string.
*Mencari posisi sebuah bagian string (substring) didalam sebuah string.
*Sintaks:
*Sintaks:
{{Code|Pascal}}
 
POS(Substr,S); {menghasilkan nilai Byte}
<syntaxhighlight lang="pascal">
POS(Substr,S); {menghasilkan nilai Byte}
</syntaxhighlight>


'''Keterangan:'''
'''Keterangan:'''
*Substr = substring yang akan dicari posisinya di dalam sebuah string S. Bila
*Substr = substring yang akan dicari posisinya di dalam sebuah string S. Bila
*Bernilai 0 berarti nilai string yang dicari tidak ada.
*Bernilai 0 berarti nilai string yang dicari tidak ada.
{{Code|Pascal}}
 
Pos(“Semarang Atlas”, a) → 4,6, 13
<syntaxhighlight lang="pascal">
Pos(“Semarang Atlas”, a) → 4,6, 13
</syntaxhighlight>


==Fungsi UPCASE==
==Fungsi UPCASE==
*Memberikan huruf kapital dari argumen.
*Memberikan huruf kapital dari argumen.
*Sintaks:
*Sintaks:
{{Code|Pascal}}
 
UPCASE(S);
<syntaxhighlight lang="pascal">
UPCASE(S);
</syntaxhighlight>


'''Keterangan:'''
'''Keterangan:'''
*S = variabel bertipe karakter.
*<code>S</code> = variabel bertipe karakter.
{{Code|Pascal}}
 
Upcase(“Semarang Atlas”) → SEMARANG ATLAS
<syntaxhighlight lang="pascal">
Upcase(“Semarang Atlas”) → SEMARANG ATLAS
</syntaxhighlight>


==Fungsi Randomize==
==Fungsi Randomize==
*Untuk menampilkan secara acak sebuah Angka.
*Untuk menampilkan secara acak sebuah Angka.
*Syntac:
*Syntac:
{{Code|Pascal}}
 
Randomize(N);
<syntaxhighlight lang="pascal">
Randomize(N);
</syntaxhighlight>


'''Keterangan:'''
'''Keterangan:'''
*N = variabel bertipe Integer.
*N = variabel bertipe Integer.
{{Code|Pascal}}
Randomize (9) → hasilnya angka berapa tidak pasti (antara 0-9)


<syntaxhighlight lang="pascal">
Randomize (9) → hasilnya angka berapa tidak pasti (antara 0-9)
</syntaxhighlight>
[[Category:Pascal]]
[[Category:Pascal]]
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Logika dan Algoritma Pemograman]]
[[Category:Logika dan Algoritma Pemograman]]
Retrieved from "https://kangtain.com/wiki/index.php/Pascal:Manipulasi_String_Format_Number"