Sabtu, 11 Januari 2014
Bismillahirahmanirrahim
Apakabar sobat?? saya akan berbagi ilmu tentang pascal yaitu program menghitung keliling dan luas 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.
