"Program Menghitung keliling jajaran genjang"
Program
menghitung_keliling_jajaran_genjang;
Uses
WinCrt;
Var
sisi_horizontal,sisi_miring:real;
keliling_jajaran_genjang:real;
Begin
writeln('masukkan
nilai sisi_horizontal ,sisi_miring=');
readln(sisi_horizontal,sisi_miring);
keliling_jajaran_genjang:=2*(sisi_horizontal+sisi_miring);
writeln('keliling=',keliling_jajaran_genjang:4:2);
end.
Program
menghitung_luas_jajaran_genjang;
Uses
WinCrt;
Var
alas,tinggi:real;
luas_jajaran_genjang:real;
Begin
writeln('masukkan
nilai alas,tinggi=');
readln(alas,tinggi);
luas_jajaran_genjang:=alas*tinggi;
writeln('luas=',luas_jajaran_genjang:4:2);
end.
Terimakasih
sudah berkunjung,semoga program ini bermanfaat untuk kita.
Jika ada yang tidak bisa dijalankan mohon saling melengkapi.. ^_^
