Program Menghitung Luas dan Keliling Jajaran Genjang

"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.. ^_^