Sabtu, 04 Januari 2014
Asalamu'alaikum,bagaimana kabarnya sobat?saya akan berbagi program pascal untuk menghitung luas dan volume balok.Daripada ngomong panjang lebar langsung saja ,berikut input programnya:
Program Menghitung luas balok
Program menghitung_luas_balok;
Uses WinCrt;
Var
panjang,lebar,tinggi:real;
luas_balok:real;
Begin
Writeln('masukkan nilai panjang,lebar,tinggi=');
Readln(panjang,lebar,tinggi);
luas_balok:=(panjang*lebar+panjang*tinggi+lebar*tinggi);
Writeln('luas_balok=',luas_balok:4:2);
End.
Program Menghitung volume balok
Program menghitung_volume_balok;
Uses WinCrt;
Var
panjang,lebar,tinggi:real;
volume_balok:real;
Begin
Readln(panjang,lebar,tinggi);
volume_balok:=panjang*lebar*tinggi;
Writeln('volume_balok=',volume_balok:4:2);
End.
Terimakasih atas kunjungannya sobat,baca juga program pascal menghitung hambatan.
semoga bermanfaat ,salam SUKSES!!!
