feedburner
Enter your email address:

Delivered by FeedBurner

feedburner count

Membuat program penghitung luas persegi dengan pascal

Halo teman-teman, pasti kalian pernah denger sama yang namanya programming, atau mungkin belum pernah, hehe. yaudah sekarang gw mau ngajarain programming pake Free Pascal walaupun gw sendiri masih newbie dalam dunia pascal ini hehehe...tapi gak apa apa lah, sekedar berbagi ilmu aja mumpung besok puasa sekalian nambah pahala. to the point aja gw mau ngajarin cara membuat program untuk menghitung luas persegi (bangun datar) sekalian mengajarkan dasar-dasar pascal.
langsung aja dimulai tutorialnya: Tutorial Pascal, Tutorial Free Pascal, Tutorial FreePascal

dalam menuliskan sebuah program ada beberapa hal yang harus diperhatikan:
-uses
-var (variabel)
-awalan (begin)
-isi
-penutup (end.)

contoh program:
tampilan saat coding














tampilan saat di run

kode:

Code
uses wincrt;
var panjang, lebar, luas :integer;

begin
write ('masukkan panjang: ');
readln (panjang);
write ('masukkan lebar: ');
readln (lebar);
luas := panjang * lebar;
writeln (luas);
end.



penjelasan dasar:
uses wincrt; digunakan karena sistem operasi yang kita gunakan adalah windows CMIIW.
var adalah variabel, yang akan digunakan dalam pemrograman nantinya (contoh: panjang, lebar, luas akan digunakan dalam perhitungan nanti).
begin adalah awalan di dalam setiap program
end. akhiran untuk setiap program, untuk penutup program, harus dengan tanda titik (.) apabila bukan sebagai penutup program, maka menggunakan tanda (;)
write digunakan untuk melakukan output data [contoh: write ('masukkan panjang: ');] berarti akan muncul tulisan masukkan panjang: pada program.
read digunakan untuk melakukan input data kedalam sebuah program, contoh lihat gambar [contoh: readln (panjang);] maka apa yang gw ketik, akan di baca oleh program dan disimpan sebagai variabel panjang, karena di var dituliskan panjang.
-ln adalah untuk menambahkan jeda (seperti tombol enter)
contoh: write ('masukkan panjang');
            readln (panjang);
maka setelah di run akan muncul seperti ini

   


writeln ('masukkan panjang');
readln (panjang);
maka setelah di run akan muncul seperti ini

 perbedaannya adalah letak kursor untuk menginput data


penjelasan rumus persegi:
1. variabel

var panjang, lebar, luas :integer;

berarti apabila di readln (......); dituliskan panjang maka apa yang kita input nantinya akan dianggap sebagai variabel.

:integer;

berarti hasil dari variabelnya akan berupa angka bulat, bukan pecahan (kalo gak salah)
contoh: luas := panjang * lebar;
maka luasnya akan dalam bentuk bilangan bulat
catatan: di dalam pascal tanda kali (x) di tuliskan dengan tanda bintang (*)

2. panjang

write ('masukkan panjang');
readln (panjang);

berarti apa yang kita input akan dianggap sebagai variabel panjang

3. lebar

write ('masukkan lebar');
readln (lebar);

berarti apa yang kita input akan dianggap sebagai variabel lebar

4. luas

luas := panjang * lebar;

tanda := maksudnya adalah tanda (sama dengan)/ (=)
berarti, luas adalah panjang dikali lebar

5. hasil

luas := panjang * lebar;
writeln (luas);

berarti hasil dari perkalian antara panjang dan lebar akan dianggap sebagai variabel luas
dan  akan dituliskan oleh program sebagai variabel luas


6. penutup

begin
||       ...........
 |        ..........
\|/        ..........
end.

tanda begin harus sejajar dengan end. apabila tidak sejajar, program tidak akan berjalan, karena end. berfunsi sebagai penutup dari begin

sekian tutorial ini dari gw, semoga bermanfaat dan mohon di koreksi apabila ada kesalahan di sana-sini (maklum newbie) hehehe.

dan kalau ada yang gak ngerti langsung tanya aja di comment