Tipe Data pada Turbo Pascal

Turbo Pascal memiliki beberapa jenis tipe data, yaitu :

1. Tipe Sederhana :

• Tipe Ordinal

• Tipe Integer
• Tipe Shortint
• Tipe Longint
• Tipe Boolean
• Tipe Char
• Tipe Byte
• Tipe Word
• Tipe Terbilang
• Tipe Subjangkauan
• Tipe Real
• Tipe String
• Tipe Terstruktur
• Tipe Larik (array)
• Tipe Rekaman (record)
• Tipe Himpunan (set of)
• Tipe Berkas (file of)
• Tipe Pointer

Namun kali ini saya hanya akan membahas tipe data integer, shortint, longint, boolean, char, byte, word, real, dan string.
Bentuk umum pendeklarasian tipe adalah :

type pengenal = tipe;

dimana,
pengenal : nama pengenal yang menyatakan tipe data, misalnya 'angka', 'nama', 'jawaban'
tipe : tipe data yang berlaku dalam turbo pascal.
Namun, untuk menggunakan tipe data tersebut secara langsung, kita tidak perlu lagi untuk mendeklarasikannya.

1. Tipe Integer

Tipe integer adalah tipe data yang nilainya tidak mempunyai desimal (koma).
5 tipe data yang termasuk kelompok ini :

• byte      : 0..255 (1 byte)
• shortint :-128..127 (1 byte)
• integer  :-32768..32767 (2 byte)
• word     :0..65535 (2 byte)
• longint  :-2147483648..2147483647 (4 byte)

Operator - operator pada tipe integer :

+          : penjumlahan

-          : pengurangan

*          : perkalian

div       : pembagian dengan pembulatan (misal : 20 div 3 = 6 karena 6*3=18)

mod      : sisa pembagian (misal : 20 mod 3 = 2 karena 6*3=8 sisa 2)

2. Tipe Boolean

Tipe boolean hanya mempunyai 2 nilai : benar(true) dan salah(false). Tipe boolean dapat dikombinasikan dengan ekspresi not, or, xor, dan and.
And :
contoh: if buku and seragam and tas and bekal then sekolah
Statement di atas akan bernilai true jika keempat kondisinya(buku,seragam,tas,dan bekal) bernilai true. Apabila salah satunya ada yang bernilai false, maka nilainya akan menjadi false.
Or :
contoh: if senin or rabu then kursus
Statement di atas akan bernilai true jika salah satu atau kedua kondisinya bernilai true.
Xor :
Statement akan berniali true jika hanya satu kondisi yang bernilai true.
Not:
Negasi dari suatu kondisi.

3. Tipe Char

Data tipe char hanya terdiri dari 1 karakter, misal:'a', '5', '.'

4. Tipe Real

Tipe data real adalah tipe data yang menggunakan minimal 1 angka di belakang koma, misal:18,6 atau 19,0, dsb.
Tipe data real mempunyai batasan nilai 2.9x10E-39 .. 1.7x10E38 (6 byte)

Operator-operator tipe real :

+ : penjumlahan

- : pengurangan

* : perkalian

/ : pembagian

Parameter R:N:M dapat digunakan untuk mempersingkat bilangan desimal di belakang koma.
Contoh :
type angka = real;
var desimal : angka;
bil:=123.45;
write('Bilangan real 9 digit dgn 3 angka di belakang koma = ',bil:9:3);

output :
'   123.450' := (123.450) ada 9 digit dan 3 angka di belakang koma.

5. Tipe String

Tipe data string merupakan kumpulan karakter-karakter, misal:'saya pergi ke toko buku'.
Modifikasi string mungkin akan dibahas di posting selanjutnya.

Membuat Program Menghitung Kombinasi dengan Procedure - Turbo Pascal 7.1

Setelah lama vakum dari blogosphere dan bahasan pascal, akhirnya saya posting lagi. Kali ini saya akan memberikan kode pascal untuk menghitung jumlah kombinasi. Bagi yang belum tahu apa itu kombinasi, bisa baca-baca di wikipedia:kombinasi tanpa pengulangan.

Ketika urutan tidak diperhatikan akan tetapi setiap objek yang ada hanya bisa dipilih sekali maka jumlah kombinasi yang ada adalah:

Di mana n adalah jumlah objek yang bisa dipilih dan r adalah jumlah yang harus dipilih.

Sebagai contoh, kamu mempunyai 5 pensil warna dengan warna yang berbeda yaitu; merah, kuning, hijau, biru dan ungu. Kamu ingin membawanya ke sekolah. Tapi kamu hanya boleh membawa dua pensil warna. Ada berapa banyak cara untuk mengkombinasikan pensil warna yang ada? Dengan menggunakan rumus di atas maka ada 5!/(5-2)!(2)! = 10 kombinasi.

Nah, sekarang saatnya kita buat programnya. Kita dapat membuat program untuk menghitung kombinasi baik dengan prosedur mau pun function. Nah, kali ini saya coba pakai procedure. Sebelumnya, saya pernah posting artikel membuat program menghitung faktorial dengan function (di posting berikutnya akan saya coba menggunakan function untuk menghitung kombinasi yang tentunya akan lebih mudah membuatnya).

program combination;
uses crt; {atau uses wincrt;}
var m,z,n,i,b:longint;
procedure faktorial(var a:longint);
var
x:longint;
begin
x:=1;
for i := a downto 1 do
x:=x*i;
a:=x;
end;
procedure kombinasi(var l:longint);
begin
faktorial(z);
b:=n*z;
l:=m div b;
writeln('Kombinasi = ',l);
end;
begin
clrscr;
write('Berapa n? '); readln(m);
b:=m;
faktorial(m);
write('Berapa r? '); readln(n);
z:=b-n;
faktorial(n);
kombinasi(n);
readkey;
end.


Silakan dipelajari.
Happy coding ;)

N.b: Program ini sebenarnya tugas dari guru saya, baru saja selesai saya buat segera saya posting di sini :p

Mengatur Warna Latar (Background) pada Turbo Pascal

Hmm... pernah merasa bosan dengan tampilan program pascal yang warna latar nya (background) hitam polos ketika di-compile?
Kalau iya, ayo ikuti tutorial di bawah ini

Persiapan :

• Salin semua file yang ada di folder BGI dan UNITS ke folder dimana Anda menaruh file TPX.EXE
• Tekan Alt+Enter untuk berubah ke layar fullscreen
  

Terus?

1. Jangan lupa menggunakan unit graph. Unit graph digunakan dengan menambahkan 'uses graph' (tanpa tanda petik) di awal program/di bawah 'program nama_program', sebaiknya gunakan unit crt juga:
   
   

   uses crt,graph

2. Jangan lupa untuk mendeklarasikan variabel yang berupa integer untuk digunakan dengan initgraph, contoh :
   
   

   var
   gp,gm:integer;

3. Selanjutnya, di bagian program utama tambahkan 3 baris program sebagai berikut (contohnya dengan menggunakan variabel di atas) :
   
   

   gp:=detect;
   initgraph(gp,gm,'');
   setbkcolor(warna);

Keterangan warna :

Pada tahap 3 di atas sudah ada

setbkcolor(warna)

Nah kita bisa mengganti warna nya dengan ketentuan sebagai berikut :

0 = Black
1 = Blue
2 = Green
3 = Cyan
4 = Red
5 = Magenta
6 = Brown
7 = LightGray
8 = DarkGray
9 = LightBlue
10= LightGreen
11 = LightCyan
12 = LightRed
13 = LightMagenta
14 = Yellow
15 = White

Anda boleh menuliskan nomor nya maupun warna nya langsung

Membuat Tulisan

Untuk membuat tulisan pada mode grafik tidak bisa dengan menggunakan perintah write atau writeln ada perintah khusus, yaitu outtext atau outtextXY, lihat contoh program.

Contoh Program :

program warna_latar;
uses
crt,graph; {atau uses wincrt,graph;}
var
gp,gm : integer;
nama : string;
begin
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(green);
outtextXY(250,250'Nama Anda?'); readln(nama);
moveto(260,270); outtext('Hi, '+nama);
readkey;
end.

Yang di atas itu kalau kita tambahkan unit graph baru bisa jalan, tapi ada beberapa perintah sejenis yang hanya bisa digunakan dengan unit crt, yaitu :

• Untuk mengubah warna text :

textcolor(warna)

• Untuk mengubah latar text :

textbackground(warna)

Gimana, sudah paham? atau kurang jelas? Silahkan berkomentar
Akan saya jawab sebisanya

Oh, ya... tunggu dulu, ada beberapa kekurangan jika kita menggunakan unit graph, salah satu nya karakter-karakter seperti titik(.), koma(,), tanda tanya(?), dan sejenisnya tidak muncul dengan baik di layar.

*Artikel ini di-posting atas permintaan saudara Opik. Terima kasih

Experience is the best teacher, so don't give up to keep trying

Membuat Program Faktorial dengan Turbo Pascal

Sebelumnya, saya jelaskan dulu apa itu faktorial.

Faktorial biasanya ditulis dengan N!
N itu bisa berarti 1, 2, 7, 22, pokoknya angka. Jadi, faktorial 5 ditulis dengan 5!
Faktorial itu artinya mengalikan suatu bilangan dengan bilangan-bilangan sebelumnya hingga akhirnya dikalikan dengan angka 1.

Contohnya :

Faktorial dari 6 :

6*5*4*3*2*1 = 720

Jadi, sudah jelas gimana faktorial itu?

Catatan :
* artinya x (kali)

Kalau belum, coba deh diulang lagi bacanya.

Kalau sudah jelas, coba dibayangin kira-kira gimana sih algoritma nya?

Nah, kalau algoritma nya udah kebayang, Insya Allah bisa buat programnya.

Oh, ya, hampir lupa. Program ini menggunakan function.

Inilah algoritma nya :


Program Faktorial_pascal;
uses crt; {atau uses wincrt;}
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
clrscr;
writeln('Faktorial Sequence');
writeln;
write('Berapa Faktorial : ');readln(x);
writeln(x,' faktorial ','= ',faktorial(x));
writeln;
write('Tekan Sembarang Tombol untuk keluar...');
readln;
end.

Trik Menyalin Listing Program Turbo Pascal

Mungkin udah banyak yang tahu, ya? Hhi… sekadar trik tambahan buat yang belum tahu aja. Begini caranya untuk menyalin listing program tanpa perlu repot-repot nulis lagi.

1. Copy listing program yang ingin disalin ke dalam notepad
2. Simpan dengan nama "terserah-anda-mau-nama-apa-saja.pas" tanpa tanda petik
3. Buka TPX.EXE
4. Klik ‘File->Open’ atau tekan F3
5. Cari file yang Anda simpan tadi dan klik open
6. Jreeeng - jreeeeng…. udah selesai deh proses co-pas nya.

Sekarang nggak susah lagi kan kalau mau nyalin listing pogram dari internet? :-D

Struktur Program Pascal

Secara singkat, struktur program pascal terdiri dari :

1. Judul program

2. Blok program

1. Bagian deklarasi

• deklarasi variabel
• deklarasi tipe
• deklarasi konstanta
• deklarasi label
• deklarasi prosedur
• deklarasi fungsi

2. Bagian pernyataan

Penjelasan :

• Bagian judul harus diletakkan di awal program (paling atas) dan diakhiri dengan titik koma (;). Namun, sebenarnya sebuah program boleh saja jika tidak menggunakan judul, karena tidak terlalu penting, hanya agar rapi saja. Judul program itu contohnya :

      program Coba_coba;

• Deklarasi variabel biasanya digunakan di setiap program. Hampir setiap program memerlukannya. Kata var digunakan sebagai judul di bagian deklarasi variabel dan diikuti oleh satu atau lebih pengenal (identifier) yg dipisahkan oleh tanda koma (,) diikuti dengan tanda titik dua ( : ) lalu tipe data dan diakhiri dengan titik koma (;).

Contoh :

      var
   nama, alamat : string;
   umur, tanggal lahir : integer;

• Untuk deklarasi tipe, lebih baik kita mulai dari contoh nya :

type
pecahan = real;
bulat = integer;
huruf = string;
karakter = char;
logika = boolean;
var
nama : huruf;
sekolah : logika;
umur : pecahan;
predikat : karakter;

Sekarang jelas bahwa deklarasi tipe digunakan untuk membuat nama lain dari identifier, sehingga dapat memudahkan dalam mengingat tipe data saat membuat variabel. Deklarasi tipe diawali dengan kata type, simbol yang digunakan adalah tanda sama dengan (=), dan diakhiri dengan titik koma (;).

• Untuk menetapkan sesuatu yang mutlak dan tidak dapat diubah, kita dapat menggunakan deklarasi konstanta. Deklarasi konstanta diawali dengan kata Const, menggunakan tanda sama dengan (=), dan diakhiri dengan titik koma (;).

Contoh :

     const
   gaji = 200000;
   utang = 50000;

• Jika program Anda ingin loncat dari baris yang satu ke baris yang lain, maka Anda memerlukan goto dan deklarasi label untuk mewujudkannya. Pendeklarasian label diawali dengan kata label diikuti oleh identifier label dan diakhiri dengan titik koma (;).

Contoh :

     label
 pertengahan, 300, selesai;
begin
writeln('halo');
goto 300;
writeln('saya');
goto pertengahan;
writeln('pascal');
writeln('^_^');
goto selesai;
300:
writeln('nama');
pertengahan:
writeln('program');
selesai;
end.

Untuk pendeklarasian yang lain (deklarasi prosedur dan fungsi) Insya Allah akan saya muat di artikel berikutnya karena sudah lebih spesifik.

Terima kasih

Membuat Program Biodata Sederhana dengan Turbo Pascal

Tertarik sama Turbo Pascal ?
Kalau belum download silahkan di-download file nya (Turbo Pascal 7.1) disini.
Jika Anda sudah download, silakan buka folder BIN->TPX.EXE
TPX.EXE inilah yang merupakan Turbo Pascal 7.1 nya.


Jika sudah diklik, maka keluarlah Turbo Pascal yang ditunggu-tunggu itu .


Silakan dicoba listing program sederhana di bawah ini :

program biodata;
uses crt; {atau uses wincrt;}
var
nama, alamat : string;
umur         : integer;
begin
clrscr;
writeln('===========================================');
writeln('                  Biodata');
writeln('===========================================');
write('Nama     : '); readln(nama);
write('Umur     : '); readln(umur);
write('Alamat   : '); readln(alamat);
writeln('-------------------------------------------');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.');
writeln;
readkey;
end.

Program di atas adalah sebuah program biodata, langsung tulis saja di programnya *capek, nggak sih nulisnya?*. Sebenarnya ada cara yang lebih mudah untuk menyalin listing program di atas ke TPX nya, baca di sini.
Kalau sudah ditulis semua, silakan compile program tersebut untuk melihat hasilnya.
Cara meng-compile nya sebagai berikut :

1. Klik RUN
2. Klik Run

Hwhwhwh… cara yang lebih mudah yaitu hanya dengan menekan tombol Ctrl + F9.
Udah kelihatan kan hasilnya?
Nah coba dicermati dulu…. penjelasannya ada di bawah :

• ‘Uses Crt’ merupakan salah satu unit di pascal. Unit yang satu ini harus digunakan jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user).
• ‘Var’ merupakan bagian pendeklarasian variabel yang di dalamnya memuat tipe-tipe data, seperti string, integer, byte, word, char, dll. Mengenai tipe-tipe data akan dibahas di artikel selanjutnya.
• Setiap listing program utama harus diawali dengan huruf ‘begin’ dan diakhiri dengan ‘end.’ (ingat! jangan lupa titik(.) nya pada end.)
• Perintah untuk mencetak adalah ‘write’. Jadi kalau mau mencetak “Halo, saya pascal” yaitu dengan perintah :
  
  
  

  write('Halo, saya pascal')

  Tapi selain write, ada juga perintah ‘writeln’. Bedanya kalau ‘write’ setelah mencetak kursornya tetap disamping, sedangkan kalau ‘writeln’ kursornya ke bawah. Untuk contohnya dapat dicermati dari listing program tadi.
  
  
  
• Perintah ‘read’ dan ‘readln’ digunakan untuk membaca input yang dimasukkan user. Perbedaan antara keduanya sama dengan ‘write’ dan ‘writeln’.
• Jangan lupa untuk menuliskan tanda titik dua (;) di setiap akhir baris program.

Mengertikah? Atau bingugkah? O_o
Yah… wajar sih kalau Anda nggak ngerti, soalnya saya kan nggak pintar nulis
Sekian dulu… *ternyata capek juga nulisnya*

Pengenalan Program Turbo Pascal

Pascal adalah sebuah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu, sehingga pascal mempunyai banyak kelebihan-kelebihan diantaranya :

• Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar seperti : boolean, integer, real, char, string, word.
• User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
• Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function yang merupakan program kecil di dalam program) yang dapat dipergunakan berulang-ulang.
• Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Hebatnya lagi, bahasa PASCAL masih digunakan sebagai standar bahasa pemrograman TOKI (Tim Olimpiade Komptuter Indonesia) dan IOI (International Olympiad in Informatics), lho…

Contoh program Pascal yang paling sederhana yaitu :

Program program_pertamaku;
begi
end.

Nah, program diatas merupakan program paling sederhana dari bahasa Pascal.

Program program_pertamaku;

Baris program di atas merupakan bagian judul program. Setiap program tidak diharuskan menggunakannya, biasanya sih seorang programmer menggunakannya hanya agar listing programnya kelihatan rapi.
Tapi saya sangat sarankan untuk menggunakannya, kan enak kalau rapi

begin
end.

Bagian di atas merupakan bagian program utama, di sini lah programmer menuliskan perintah - perintah nya.

Jika program ini di-compile, hasilnya tidak ada apa-apa karena di bagian program utama tidak diisi apapun.

Selain bagian judul program dan program utama, bagian penting lainnya yaitu bagian deklarasi.

Karena program yang sedang kita bahas adalah program yang paling sederhana, maka tidak memerlukan deklarasi.

Namun, setahu saya semua program memerlukan bagian deklarasi, baik itu deklarasi variabel, konstanta, tipe, dan label.

Wah2.. Rumitkah? Kalau Anda menganggapnya rumit ya rumit, tapi kalau Anda menganggapnya nggak rumit ya nggak rumit. Yang pasti nggak usah dijaiin rumit, lah. Kalau kita berusaha Insya Alah bisa

Hmm…. apa saya sudah terlalu jauh ngebahas nya pada pengenalan ini, ya?

Oke, deh…. selebihnya akan saya lanjutkan di artikel2 berikutnya.