Untitled
unknown
plain_text
a year ago
690 B
23
Indexable
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.
Editor is loading...
Leave a Comment