Pada postingan kali ini saya akan membuat sebuah contoh program sederhana untuk menghitung luas segitiga dengan hasil seperti berikut:
untuk source kodenya :
program luas_segitiga;
uses crt;var
luas : real;
a,t : integer;
begin
clrscr;
write(‘Masukkan Alas : ’);readln(a);
write(‘Masukkan Tinggi : ’);readln(t);
luas := ½ * a * t;
writeln(‘Luas Segitiga adalah :’,luas:2:1);readln;
end.
Selamat mencoba dan berkreasi!
Tidak ada komentar:
Posting Komentar