- Back to Home »
- Program Menghitung Luas Persegi Panjang Menggunakan Delphi
Posted by : Unknown
Minggu, 04 Januari 2015
Pada kesempatan kali ini aku akan membagikan tutorial tentang cara membuat program untuk menghitung luas persegi
panjang dengan menggunakan bahasa pemrograman delphi sehingga kita tidak perlu repot-repot lagi menghitung secara manual , cukup dengan memasukkan data dan tunggu hasilnya.
Sedikit info tentang Delphi yang sebelumnya lupa aku jelaskan
"Borland Delphi atau biasa disebut Delphi saja, merupakan sarana pemrograman aplikasi visual dengan bahasa pemrograman Pascal. Delphi merupakan generasi penerus dari Turbo Pascal yang beroperasi dibawa Sistem Operasi Widows .
Delphi terdapat 2 macam struktur yaitu struktur projrk dan struktur unit program Delphi:
1. Struktur Projek
Pada suatu projek yang anada bangun, terdapat sebuah file program utama yang berisi kode program untuk pengelolaan unit – unit. Kode program utama ini biasa juga disebut kode projek dan disimpan dalam file berekstensi .DPR.
2. Struktur Unit
Sebuah unit berisitipe-tipe, konstanmta-konstanta, variabel dan rutin (fungsi dari prosedur). Setiap unit didefinisikan dalaqm file .PAS yang menangani unit tersebut."
Oke, langsung saja kita mulai ε(•̃⌣•̃)з
Berikut langkah~langkahnya:
Sedikit info tentang Delphi yang sebelumnya lupa aku jelaskan
"Borland Delphi atau biasa disebut Delphi saja, merupakan sarana pemrograman aplikasi visual dengan bahasa pemrograman Pascal. Delphi merupakan generasi penerus dari Turbo Pascal yang beroperasi dibawa Sistem Operasi Widows .
Delphi terdapat 2 macam struktur yaitu struktur projrk dan struktur unit program Delphi:
1. Struktur Projek
Pada suatu projek yang anada bangun, terdapat sebuah file program utama yang berisi kode program untuk pengelolaan unit – unit. Kode program utama ini biasa juga disebut kode projek dan disimpan dalam file berekstensi .DPR.
2. Struktur Unit
Sebuah unit berisitipe-tipe, konstanmta-konstanta, variabel dan rutin (fungsi dari prosedur). Setiap unit didefinisikan dalaqm file .PAS yang menangani unit tersebut."
Oke, langsung saja kita mulai ε(•̃⌣•̃)з
Berikut langkah~langkahnya:
1. Pertama buka dulu aplikasi pemrograman delphi, kalo aku pake delphi yang 2010 guys sama aja sih sebenernya karna aku cuma punya versi ini jadi dipake aja haha xD
2. Pilih File >> New >> Other. Seperti pada gambar di bawah ini.
3. Kemudian pilih Console Application.
4. Masukkan kode~kode dibawah ini.
uses
SysUtils;
var
var
panjang,lebar,luas :integer;
begin
writeln(PROGRAM MENGHITUNG LUAS PERSEGI PANJANG');
writeln('================================');
write(‘masukkan panjang = '); readln(panjang);
write('masukkan lebar= '); readln(lebar);
luas:=panhjang*lebar;
writeln('luas=’,luas);
readln;
end.
writeln('================================');
write(‘masukkan panjang = '); readln(panjang);
write('masukkan lebar= '); readln(lebar);
luas:=panhjang*lebar;
writeln('luas=’,luas);
readln;
end.
5. Kemudian pilih button play
6. Hasilnya akan muncul seperti gambar dibawah ini. Lalu masukkan Panjang dan lebarnya.
7. Aku kasih contoh panjangnya 25 dan lebar 30 aja yah?? Hasilnya muncul setelah di klik enter seperti gambar dibawah ini.
8. Selesai.
Bagaimana, cukup mudah bukan dalam membuat suatu program , agar lebih masih dan lancar latihlah terus logika serta sering-seringlah mencoba membuat suatu program dengan Delphi. Tapi kelemahan dari Delphi ialah Setiap komponen yang dimasukkan dalam form tampilan, akan diikutsertakan kode deklarasi dan inisialisasinya dalam list code. Sehingga apabila terjadi perubahan komponen, penamaan maupun kesalahan penulisan kode, program tidak mau membetulkan otomatis. Hemm jadi kalian harus teliti sama kode~kodenya. Tertarik mencobanya?
SELAMAT MENCOBA YAA!!!!!!!!!!!!
Text Widget
Blog Archive
-
▼
2015
(23)
-
▼
Januari
(13)
- Menghitung Luas Segitiga Menggunakan Delphi
- Mengubah Ekspresi Matematika ke dalam Bahasa Delph...
- Menghitung Volume Tabung Menggunakan Delphi
- Program Menghitung Luas Persegi Panjang Menggunaka...
- Pengulangan Angka Kuadrat Menggunakan Repeat Until
- Menjumlahkan Deret Menggunakan Repeat Until
- Mengurutkan Angka Ganjil Menggunkan Repeat Until
- Larik / Array pada Delphi
- Menampilkan Matriks Berpola Menggunakan Array
- Fungs Logika IF
- Procedure Pada Delphi
- PERULANGAN / LOOPING Repeat Until
- PERULANGAN / LOOPING For To Do
-
▼
Januari
(13)