- 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