Script Program untuk Menghitung Luas Segitiga

Program ini dapat digunakan untuk menghitung luas segitiga dengan cara memasukkan alas dan tinggi segitiga. Setelah diproses maka akan muncul luas segitiga yang kita inginkan. Script ini merupakan script sederhana yang bertujuan untuk melatih kemampuan kita dalam menganalogikan sesuatu.

Program PasMath;
Uses Crt;
Const Phi = 3.14;
Var
  pjg,lbr,jari,alas,tinggi : real;
  luas,kel : real;
  pilih : integer;
Begin

             ClrScr; alas := 0; tinggi := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS SEGITIGA');
             Gotoxy(13,4); Write('========================');
             Gotoxy(13,6); Write('Alas segitiga    = '); Readln(alas);
             Gotoxy(13,7); Write('Tinggi segitiga  = '); Readln(tinggi);
             luas := 0.5 * alas * tinggi;
             Gotoxy(13,9); Write('Luas segitiga    = ', luas:9:2);
             Readkey;
End.

Selamat Mencoba, Semoga Bermanfaat :)