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 :)
