PROGRAM MENGHITUNG LUAS SEGITIGA

Nah sekarang aku membuat program untuk menghitung luas segitiga dengan menerima input alas dan tinggi. Jadi user tinggal memasukkan alas dan tinggi maka program akan segera menghitung luas segitiga sesuai dengan rumus 1/2 x alas x tinggi.

======================================================

program Project2;

{$APPTYPE CONSOLE}


uses
  SysUtils;

var
  a,t: integer;
  L:real;
begin
writeln('PROGRAM MENGHITUNG LUAS SEGITIGA');
WRITELN;
WRITELN;
WRITE('BY I DEWA GDE ARI WAHYUDI');
writeln;
writeln;
write('=========================');
writeln;
writeln;
write('Input Alas   : '); readln(a);
writeln;
write('Input Tinggi : '); readln(t);
L:= a*t div 2;
writeln;
write('Luas Segitiga:',L:4:0);
readln;
end.

======================================================


Note:  write('Luas Segitiga:',L:4:0);

Mengapa setelah L diberi angka 4 dan 0, jadi angka 4 itu maksudnya untuk mencetak luas dengan pemberian spasi 4, 0 itu berarti tidak ada angka di belakang koma. Untuk eksperiman bisa diubah angka 4 dan 0 sesuai dengan keinginan

Ini penampakan programnya: