pascal - menghitung luas segitiga

silahkan buka program pascal anda atau sejenisnya..
lalu ikuti contoh di bawah:..


program luas_segitiga;
uses crt;
var
luas:real;
alas,tinggi:integer;
begin
clrscr;
write('masukkan alas:');
readln(alas);
write('masukkan tinggi:');
readln(tinggi);
luas:=1/2*alas*tinggi;
writeln('luas segitiga adalah:',luas:2:1);
writeln('---------------------------------');
write('by muhammad irfan ibnu');
readln;
end.
catatan:
terserah anda mau menambahkan garis dan nama,kalau anda tidak mau menambahkan tdk usah di tulis "writeln('----------------'); dan write(by muhammad irfan ibnu');".....

• setelah melakukan tindakan di atas dalam free pascal tekan ctrl+f9.

hasilnya:

 

ingat!! postingan ini hanya contoh ..masih banyak lagi program yang bisa anda buat..

selamat mencoba, dan berkreasi..

sekian dulu postinga dari saya, mudah-mudahan ini bermanfaat bagi anda,kalau ada saran atau kritikan yang anda mau sampaikan silahkan ! sudah tersedia di kotak koment..

wassalam,terima kasih..