Selasa, 19 Februari 2013

pengertian string selasa:19-02-2013

FUNGSI-FUNGSI STRING PADA PASCAL

PENDAHULUAN

Pascal adalah sebuah bahasa pemograman tempo dulu. Mungkin itu saja yang dapat

saya definiskan, karena saya yakin pembaca lebih tahu mengenai definisi lengkap dari

Pascal. Saya ingin berbagi ilmu walaupun cuma sedikit tentang pemograman dengan

Pascal.

Melalui tulisan ini, saya mencoba untuk mengulas program, prosedur dan fungsi

menarik yang bisa Anda coba dan terapkan dalam pemograman Pascal.

Beberapa yang dapat saya sampaikan, diantaranya:

1. Fungsi-fungsi String

FUNGSI-FUNGSI STRING

Berikut ini adalah fungsi-fungsi untuk memanipulasi data String. Jalankan aplikasi

Pascal Anda, ketikkan kode berikut:

PROGRAM MANIPULASISTRING;

USES CRT;

a. Lower Case

Fungsi ini akan mengubah string yang diinputkan menjadi Lower Case (huruf kecil).

Ketikkan fungsi berikut ini:

b. Upper Case

Fungsi ini akan mengubah string yang diinputkan menjadi Upper Case (huruf besar).

Ketikkan fungsi berikut ini:

c. Proper Case

Fungsi ini akan mengubah string yang diinputkan menjadi Proper Case (huruf besar

untuk huruf awal setiap kata). Ketikkan fungsi berikut ini:

FUNCTION LCASE(S:STRING):STRING;

VAR I:INTEGER;

BEGIN

FOR I:= 1 TO LENGTH(S) DO

IF (S[I] >= 'A') AND (S[I] <= 'Z') THEN

INC(S[I], 32);

LCASE := S;

END;

FUNCTION UCASE(S:STRING):STRING;

VAR I:INTEGER;

BEGIN

FOR I:= 1 TO LENGTH(S) DO

IF (S[I] >= 'a') AND (S[I] <= 'z') THEN

DEC(S[I], 32);

UCASE := S;

END;

Untuk mencoba fungsi-fungsi di atas, ketikkan program utama sebagai berikut:

{program utama}

BEGIN

CLRSCR;

WRITE(LCASE('Created By vian sastra '));

WRITE(UCASE('Created By vian sastra '));

WRITE(PCASE('Created By vian sastra '));

READLN;

END.

Lihatlah tampilan pada layar monitor Anda!

Baris pertama, tiap kata ditulis dengan huruf kecil, baris ke-2 tiap kata ditulis dengan

huruf besar, dan baris ke-3, tiap kata hanya huruf awal saja yang ditulis dengan huruf

besar.

FUNCTION PCASE(S:STRING):STRING;

VAR I, J:INTEGER;

BEGIN

IF (S[1] >= 'a') AND

(S[1] <= 'z') THEN

DEC(S[1], 32);

FOR I:= 2 TO LENGTH(S) DO

IF (S[I] >= 'A') AND

(S[I] <= 'Z') THEN

INC(S[I], 32);

FOR I:= 2 TO (LENGTH(S)-1) DO

IF (S[I] = ' ') THEN

BEGIN

J := I;

IF (S[J + 1] >= 'a') AND

(S[J + 1] <= 'z') THEN

DEC(S[J + 1], 32);

END;

PCASE := S;

END;

0 komentar:

Poskan Komentar