Senin, 06 Januari 2014
Asalamu'alaikum,bagaimana kabarnya hari ini sobat?semoga kita semua dalam keadaan sangat baik.Saya akan berbagi program pascal menghitung berat ideal,daripada kelamaan langsung saja ini input datanya:
Program menghitung_berat_ideal;
Uses WinCrt;
var
tinggi_badan:integer;
berat_badan_ideal,x,y:real;
Begin
write('masukkn tinggi_badan=');
readln(tinggi_badan);
x:=tinggi_badan-100;
y:=x*10/100;
berat_badan_ideal:=x-y;
writeln('berat badan ideal=',berat_badan_ideal:4:2);
End.
Ini hanya sekedar program biasa tanpa standar penghitungan berat ideal yang tepat,anda dapat mengubahnya sendiri sesuai keinginan anda.Terimakasih sudah berkunjung,semoga sukses.
