Pascal:Menghitung luas segi tiga

• Algoritma Luas_Segi_Tiga
  • Algoritma menerima masukan Alas dan Tinggi segi tiga
  • Menghitung luasnya
  • Cetak luasnya ke piranti keluaran (Layar)

• Deklarasi:
  • Alas = Int (tipe data bilangan bulat)
  • Tinggi = Int (tipe data bilangan bulat)
  • Luas = Real (tipe data bilangan pecahan)

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

Program

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.

Terkait

• Pascal
• Pascal:Menghitung luas segi empat