- Back to Home »
- Menghitung Luas Segitiga Menggunakan Delphi
Posted by : Unknown
Minggu, 04 Januari 2015
Holaa kawan blogger, masih dihari yang sama aku mau berbagi pada kalian semua tentang tutorial menghitung luas segitiga masih menggunakan bahasa pemrograman pascal.
Oke langsung saja, seperti biasa aku mengunakan aplikasi Delphi 2010. Langkah~langkahnya sebagai berikut.
1. Buka aplikasi Delphi terlebih dahulu. seperti biasa langkah~langkahnya masih sama yakni pilihFile>>New>>Other>>
lalu pilih Console Aplication.
2. Ketikkan kode~kode dibawah ini.
program luas_segi_tiga;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
L: real;
alas,tinggi:integer;
begin
writeln(' Menghitung luas segi tiga');
writeln('');
writeln('');
write(' alas='); readln (alas);
write(' tinggi=');readln(tinggi);
L:=0.5*alas*tinggi;
writeln(' ----------------------');
writeln(' luas segi tiga=', L:5:2);
readln;
end.
PENJELASAN
· Var: adalah variabel atau bisa dibilang merupakan nilai input data yang harus dimasukkan. Nilai dari var bisa diisi dengan angka seperti real atau integer, namun jika ingin diisi dengan huruf bisa memakai string.
· alas,tinggi :integer maksudnya ialah alas dan tinggi menggunakan type data bilangan bulat.
· writeln : digunakan sebagai label atau kalimat yang akan ditampilkan saat program dijalankan. Oh ya, anda bisa juga memodifikasi tulisan yang ada di writeln karena hal ini tidak berpengaruh terhadap pemrosesan data pada program
· L := 0.5*alas*tinggi, adalah rumus dari segitiga siku-siku dengan menghitung kedua sisinya yang saling tegak lurus.
· L:10:2 , kedua variabel diatas bisa diisi sampai 10 digit angka di depan koma dan memiliki ketilitian sampai 2 digit di belakang koma.
3. Setelah itu langsung tekan F9 atau tekan tombol kemudian program akan berjalan .
Hasilnya akan seperti ini:
.
4. Lalu masukkan nilai alas dan tinggi. Dan hasilnya muncul
Jangan lupa tekan enter dulu yah??
5. Finish.
Untuk informasi kali ini sudah dulu ya…, aku masih belajar jadi wajar kalo ada sedikit kesalahan hehe xD. Saran dari kalian sangat membatu untuk memperbaiki kekurangan untuk yang akan datang. Terimakasih sudah mampir dan semoga bermanfaat.
divine-music.info
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)