Untitled

mail@pastecode.io avatar
unknown
plain_text
2 months ago
690 B
7
Indexable
Never
program HitungLuasSegitiga;

procedure HitungLuas(alas, tinggi: real); => jelasin itu prosedur
var
  luas: real; => type data real bla bla
begin
  luas := 0.5 * alas * tinggi; // Rumus luas segitiga melaku
  writeln('Luas Segitiga adalah: ', luas:0:2); // Menampilkan hasil luas segitiga dengan dua angka di belakang koma
end;

var
  alas, tinggi: real;

begin
  writeln('Masukkan Alas Segitiga: ');
  readln(alas);//menerima inputan lalu masukin nilai ke variabel alas
  
  writeln('Masukkan Tinggi Segitiga: ');
  readln(tinggi);//menerima inputan lalu masukin nilai ke variabel tinggi
  
  HitungLuas(alas, tinggi); // Memanggil prosedur HitungLuas dengan parameter alas dan tinggi
end.
Leave a Comment