Program “Upper” – SulhanSetiawan.com

Kita akan membuat sebuah aplikasi yang akan mengubah file text sehingga isinya berubah menjadi Upper Case (semuanya dalam huruf kapital).

Programnya adalah sebagai berikut:

program Upper;
{$APPTYPE CONSOLE}
var c:char;
begin
  while not EOF do
  begin
    read(c);
    if(c&gt;='a')and(c&lt;='z')then c:=Char(ord(c)-32);
    write(c);
  end;   
end.

program Upper;

{$APPTYPE CONSOLE}

var c:char;

begin

while not EOF do

begin

read(c);

if(c>='a')and(c<='z')then c:=Char(ord(c)-32);

write(c);

end;

end.

Program tersebut akan membaca karakter demi karakter dari masukannya, kemudian jika karakter yang dibaca merupakan huruf biasa (a-z) maka karakter tersebut akan diubah menjadi huruf kapital. Nilai ordinal untuk huruf a adalah 97, sedangkan nilai ordinal untuk huruf A adalah 65. Jadi untuk merubah huruf biasa menjadi huruf kapital, caranya adalah dengan mengurangi nilai ordinalnya dengan 32 (97 – 65 = 32).

Perulangan dilakukan dengan while dengan ekpresi pembatasnya adalah not EOF (EOF = End Of File).

Untuk menggunakan program ini, caranya adalah seperti contoh berikut:

C:\Source&gt;Upper&lt;input.txt&gt;output.txt

1	C:\Source>Upper<input.txt>output.txt

Dimana input.txt adalah file text sumber dan output.txt adalah file yang telah diubah menjadi upper case.

Pipe

Pipe adalah cara untuk menjalankan program secara berurutan. Keluaran dari program pertama diberikan kepada program kedua sebagai masukkannya. Demikian seterusnya. Pipe menggunakan tanda garis vertikal (|) yang biasanya menjadi satu tombol dengan backslash (\).

Dengan pipe dan program Upper yang sudah kita buat, kita bisa melihat daftar file dalam upper case seperti contoh berikut:

C:\Source&gt;dir/b|Upper
MS-DOS PROMPT.PIF
COMMAND PROMPT.LNK
OUTPUT.TXT
UPPER.DPR
HARILAHIR.DPR
UPPER.DOF
UPPER.CFG
UPPER.EXE
INPUT.TXT

C:\Source&gt;

C:\Source>dir/b|Upper

MS-DOS PROMPT.PIF

COMMAND PROMPT.LNK

OUTPUT.TXT

UPPER.DPR

HARILAHIR.DPR

UPPER.DOF

UPPER.CFG

UPPER.EXE

INPUT.TXT

C:\Source>

Jika tanpa pipe dan Upper, tampilannya adalah seperti:

C:\Source&gt;dir/b
MS-DOS Prompt.pif
Command Prompt.lnk
output.txt
Upper.dpr
HariLahir.dpr
Upper.dof
Upper.cfg
Upper.exe
input.txt

C:\Source&gt;

C:\Source>dir/b

MS-DOS Prompt.pif

Command Prompt.lnk

output.txt

Upper.dpr

HariLahir.dpr

Upper.dof

Upper.cfg

Upper.exe

input.txt

C:\Source>

Path

Penggunaan program Upper seperti pada contoh penggunaan pipe di atas hanya bisa digunakan dari direktori dimana program Upper tersebut ada. Anda tidak bisa menggunakannya seperti:

C:\&gt;dir/b|Upper

1	C:\>dir/b\|Upper

Anda akan mendapatkan pesan kesalahan jika melakukannya. Hal ini terjadi karena program Upper berada pada direktori C:\Source>.

Agar program Upper bisa dipanggil dari direktori manapun, maka Anda bisa memberikan informasi keberadaan program Upper dengan mengisi variabel path. Contohnya adalah sebagai berikut:

C:\&gt;set path="C:\Source"

1	C:\>set path="C:\Source"

Sekarang Anda bisa menggunakan Upper dari mana saja. Misalnya:

C:\&gt;dir/b|Upper
WINDOWS
CONFIG.SYS
MY DOCUMENTS
AUTOEXEC.BAT
CONFIG.BAK
PROGRAM FILES
AUTOEXEC.BAK
SCANDISK.LOG
DATACD
COMPATID.TXT

C:\&gt;

C:\>dir/b|Upper

WINDOWS

CONFIG.SYS

MY DOCUMENTS

AUTOEXEC.BAT

CONFIG.BAK

PROGRAM FILES

AUTOEXEC.BAK

SCANDISK.LOG

DATACD

COMPATID.TXT

C:\>

Variabel path boleh diisi dengan informasi keberadaan file lebih dari satu. Setiap informasi dipisahkan menggunakan titik koma. Sebagai contoh:

C:\&gt;set path=C:\WINDOWS;C:\DATACD

1	C:\>set path=C:\WINDOWS;C:\DATACD

Kita juga bisa menambahkan informasi tambahan tanpa menghapus informasi yang sudah ada. Caranya adalah seperti contoh berikut:

C:\&gt;set path=%path%;"C:\Source"

1	C:\>set path=%path%;"C:\Source"

Secara umum, untuk mendapatkan nilai dari sebuah variabel di dalam console adalah dengan mengapit nama variabel tersebut dengan tanda %.

Pipe

Path

Batalkan balasan