Menghitung Luas Segitiga Menggunakan Delphi

Holaa sahabat blogger, masih dihari yang sama aku mau berbagi pada kalian semua tentang  tutorial menghitung luas segitiga masih menggunakan bahasa  pemrograman pascal. Jangan bosan~bosan ngelirik blog aku yah ?? hehe :D

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 pilih File>>New>>Other>> lalu pilih Console Aplication.

2.       Ketikkan kode~kode dibawah ini. ketikketikketikketik .....\__~(˘▾˘~)

uses

  SysUtils;

var

  L :real;

  alas,tinggi :integer;

begin

  writeln('PROGRAM MENGHITUNG LUAS SEGITIGA');

  writeln('================================');

  write ('alas='); readln (alas);

  write ('tinggi='); readln (tinggi);

  L :=0.5*alas*tinggi;

  Writeln ('luas segitiga=', L:10: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.      Jalankan program, kurang lebih hasilnya seperti ini.

4.      Lalu masukkan nilai alas dan tinggi. Daaaaaaannnn hasilnya muncul xD

Jangan lupa tekan enter dulu yah??

5.      Finish. ☺

Sudah dulu untuk informasi kali ini, 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. Sayounaraaaa…