Saturday, June 29, 2013

Program hitung berat badan ideal Menggunakan Pascal

program hitung_berat_badan_ideal;
uses wincrt;

     var
     tb : integer;
     bb_id, x, y : real;

     const
          const1=100;
          const2=0.1;

begin
write('Masukkan tinggi badan anda: ');
readln(tb);

writeln(''); 
  x := tb - const1;
  y := x * const2;
  bb_id := x - y;
writeln('==================================================== ');
writeln('Berat badan ideal anda adalah ',round(bb_id),' kg');
writeln('===================================================== ');
readln;
end. 

0 comments: