View source for Pascal:Menghitung luas segi tiga

*Algoritma <code>Luas_Segi_Tiga</code>
**Algoritma menerima masukan Alas dan Tinggi segi tiga
**Menghitung luasnya
**Cetak luasnya ke piranti keluaran (Layar)

*Deklarasi:
**Alas = <code>Int</code> (tipe data bilangan bulat)
**Tinggi = <code>Int</code> (tipe data bilangan bulat)
**Luas = <code>Real</code> (tipe data bilangan pecahan)

*Deskripsi:
**Baca variabel Alas
**Baca variabel Tinggi
**Hitung luas Segi 3 = <code>(0.5 * Alas * Tinggi)</code> atau
**Hitung luas Segi 3 = <code>(Alas * Tinggi )/2</code> atau
**Tampilkan luas ke layar
**Selesai

==Program==
<syntaxhighlight lang="pascal" line="1">
program Hitung_Luas_Segi_Tiga;
uses crt;
var
 Alas, Tinggi : integer;
 luas         : real;

begin
 clrscr;
 write('Masukkan berapa alasnya = ');readln(alas);
 write('Masukkan berapa tingginya = ');readln(tinggi);
 luas :0.5 * alas * tinggi;
 writeln('Jadi luas segitiga adalah = ',luas:4:2);
 readln
end.
</syntaxhighlight>

==Terkait==
*[[Pascal]]
*[[Pascal:Menghitung luas segi empat]]

[[Category:Pascal]][[Category:Pemograman]]