Sahabat programming pada Tutorial Turbo Pascal 7.0 Modul 6 kali ini kita akan membahas mengenai type data apa yang terdapat di dalam pemrograman turbo pascal 7.0.
String pada Pascal
Sebenarnya string adalah suatu array dari char, maksudnya anda dapat mengambil masing-masing character dari suatu string dengan memperlakukannya sebagai elemen dari array.
Contoh :
Var
Nama : String;
Begin
Nama := 'Hello World';
Writeln(Nama[1]);
Writeln(Nama[8]);
Nama[6] := 'K';
Writeln(Nama);
End.
Maka Nama[1] adalah huruf 'H', dan Nama[7] adalah huruf 'W'. Sedangkan Nama[6] := 'K'; akan menyebabkan string nama berubah menjadi 'Hello World'.
Sebenarnya kita dapat juga mendeklarasikan string dengan :
Var
Nama : String;
Alamat : String[40];
Dalam hal ini variabel Nama dapat menampung maksimal 255 character, sedangkan untuk variabel Alamat dapat menampung maksimal 40 character. Jadi kita dapat mendeklarasikan variabel string dengan panjang tertentu, berapa panjang maksimal yang diperbolehkan ?
Sebenarnya kalau kita tidak menentukan panjang string ketika deklarasi, maka otomatis pascal menyediakan 255 character untuk string kita, dalam hal ini merupakan panjang maksimal yang diperbolehkan untuk suatu type data string.
Kita dapat memesan variabel array string
Contoh :
NamaSiwa : Array[1..10] Of String[30];
Fungsi Length dan Pos
Length dan Pos adalah fungsi bantu yang disediakan oleh Pascal untuk melakukan pengolahan data string, Adapun fungsi bantu untuk string adalah sebagai berikut :
Length, mendapatkan panjang string
Syntax : length(s)
Contoh : :
n:=length(s);
Misalnya s:='Apa kabar ?'; n akan berisi 11.
Copy, mendapatkan bagian dari suatu string.
Syntax : copy(s,from,howmuch)
Contoh : :
st:=copy(s,5,5);
Menggambil 5 character mulai posisi ke 5
Misalnya s:='Apa kabar ?'; st akan berisi 'kabar'.
Pos, mengambil posisi substring dari suatu string.
Syntax : Pos(substr,s)
Contoh : : n:=pos('kabar','Apa kabar ?'); { n:=5; }
Jika substring tidak ditemukan, maka akan mengembalikan 0.
Val, mengkonversi string menjadi numerik.
Syntax : val(strvar,numvar,errorcode)
strvar adalah suatu variabel string yang akan di konversi
numvar adalah variabel integer atau real
errorcode adalah variabel integer yang akan berisi nilai kesalahan, jika berisi 0 sukses.
Contoh : :
Var
s : string;
e : integer;
r : real;
Begin
Write('Enter a number : '); readln(s);
val(s,r,e);
if e<>0 then
writeln('Error at position : ',e);
else
writeln('That was : ',r:4:3);
end.
Str, mengkonversi numerik menjadi string.
Syntax : (numvar,strvar)
Contoh : :
var
s : string;
i : integer;
begin
write('Input an integer : '); readln(i);
str(i,s);
writeln('That was : ',s);
end.
Jika anda bekerja dengan type real, anda perlu melakukan pemformatan sebelum konversi ke string.
Contoh : :
var
s : string;
r : real;
begin
write('Input a real : '); readln(r);
str(r:4:3,s);
writeln('That was : ',s);
end.
Concat, mengabung dua string atau lebih
Syntax : concat(s1,s2,...,sn)
Contoh : st:=concat(s1,s2);
Jika s1 adalah 'Hello', dan s2 adalah 'World', maka st menjadi 'HelloWorld' Sebenarnya kita juga dapat menggunakan operator + untuk mengabung string.
Contoh : st:=s1 + s2; {adalah sama dengan st:=concat(s1,s2);}
Insert, menyisip suatu string kedalam string lain dari posisi tertentu
Syntax : insert(source,target,index)
Contoh : :
var
s1, s2 : string;
begin
s1:='not ';
s2:='I do love you';
insert(s1,s2,6);
writeln(s2); { I do not love you }
end.
Delete, menghapus sejumlah character dari string mulai posisi ke i
Syntax : delete(s,i,n);
Contoh ::
var
s : string;
begin
s:='I am not responsible for that !';
delete(s,6,3);
writeln(s); { I am responsible for that }
Tidak ada komentar:
Posting Komentar