{"id":1398,"date":"2013-12-16T20:29:11","date_gmt":"2013-12-16T13:29:11","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1398"},"modified":"2013-12-17T00:11:21","modified_gmt":"2013-12-16T17:11:21","slug":"upper-program","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/upper-program\/","title":{"rendered":"Program “Upper”"},"content":{"rendered":"

<\/p>\n

<\/a><\/a><\/a><\/div>\n

Kita akan membuat sebuah aplikasi yang akan mengubah file text sehingga isinya berubah menjadi Upper Case (semuanya dalam huruf kapital).<\/p>\n

Programnya adalah sebagai berikut:<\/p>\n

program Upper;\r\n{$APPTYPE CONSOLE}\r\nvar c:char;\r\nbegin\r\n  while not EOF do\r\n  begin\r\n    read(c);\r\n    if(c>='a')and(c<='z')then c:=Char(ord(c)-32);\r\n    write(c);\r\n  end;   \r\nend.\r\n\r\n<\/pre>\n
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 \u2013 65 = 32).<\/p>\n
Perulangan dilakukan dengan while dengan ekpresi pembatasnya adalah not EOF (EOF = End Of File).
<\/p>\nUntuk menggunakan program ini, caranya adalah seperti contoh berikut:<\/p>\n
C:\\Source>Upper<input.txt>output.txt\r\n\r\n<\/pre>\n
Dimana input.txt adalah file text sumber dan output.txt adalah file yang telah diubah menjadi upper case.<\/p>\n
Pipe<\/h4>\n
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 (\\).
<\/p>\nDengan pipe dan program Upper yang sudah kita buat, kita bisa melihat daftar file dalam upper case seperti contoh berikut:<\/p>\n
C:\\Source>dir\/b|Upper\r\nMS-DOS PROMPT.PIF\r\nCOMMAND PROMPT.LNK\r\nOUTPUT.TXT\r\nUPPER.DPR\r\nHARILAHIR.DPR\r\nUPPER.DOF\r\nUPPER.CFG\r\nUPPER.EXE\r\nINPUT.TXT\r\n\r\nC:\\Source>\r\n\r\n<\/pre>\n
Jika tanpa pipe dan Upper, tampilannya adalah seperti:<\/p>\n
C:\\Source>dir\/b\r\nMS-DOS Prompt.pif\r\nCommand Prompt.lnk\r\noutput.txt\r\nUpper.dpr\r\nHariLahir.dpr\r\nUpper.dof\r\nUpper.cfg\r\nUpper.exe\r\ninput.txt\r\n\r\nC:\\Source>\r\n\r\n<\/pre>\n
Path<\/h4>\n
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:<\/p>\n
C:\\>dir\/b|Upper\r\n\r\n<\/pre>\n
Anda akan mendapatkan pesan kesalahan jika melakukannya. Hal ini terjadi karena program Upper berada pada direktori C:\\Source>.<\/code><\/p>\n
Agar program Upper bisa dipanggil dari direktori manapun, maka Anda bisa memberikan informasi keberadaan program Upper dengan mengisi variabel path. Contohnya adalah sebagai berikut:<\/p>\n
C:\\>set path=\"C:\\Source\"\r\n\r\n<\/pre>\n
Sekarang Anda bisa menggunakan Upper dari mana saja. Misalnya:<\/p>\n
C:\\>dir\/b|Upper\r\nWINDOWS\r\nCONFIG.SYS\r\nMY DOCUMENTS\r\nAUTOEXEC.BAT\r\nCONFIG.BAK\r\nPROGRAM FILES\r\nAUTOEXEC.BAK\r\nSCANDISK.LOG\r\nDATACD\r\nCOMPATID.TXT\r\n\r\nC:\\>\r\n\r\n<\/pre>\n
Variabel path boleh diisi dengan informasi keberadaan file lebih dari satu. Setiap informasi dipisahkan menggunakan titik koma. Sebagai contoh:<\/p>\n
C:\\>set path=C:\\WINDOWS;C:\\DATACD\r\n\r\n<\/pre>\n
Kita juga bisa menambahkan informasi tambahan tanpa menghapus informasi yang sudah ada. Caranya adalah seperti contoh berikut:<\/p>\n
C:\\>set path=%path%;\"C:\\Source\"\r\n\r\n<\/pre>\n
Secara umum, untuk mendapatkan nilai dari sebuah variabel di dalam console adalah dengan mengapit nama variabel tersebut dengan tanda %.<\/p>\n
<\/a><\/a><\/a><\/div>\n
<\/p>","protected":false},"excerpt":{"rendered":"
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>=’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…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1398","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1398","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1398"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1398\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1398"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1398"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1398"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}