Menampilkan berat ideal

Begin
Clrscr;
writeln ( ' program menentukan berat ideal ' ) ;
write ( ' input TB ;  ) ; readln (TB) ;
write ( '  input BB ; ') ; readln ( BB ) ;
Berat Badan ideal : TB - 100 * 0.1 ;
write ( ' berat ideal : : BL :0:0 ) ;
If ( BB < = b1 = 2 0 and ( BB > + B1 - 2 ) then 
              keterangan : = " ideal ;
Else
  keterangan   : = ' Tidak ideal ' ;
write ( ' brat badan anda ; keterangan , ' 1 ' ) ;
readln ;
end.

Komentar

Postingan populer dari blog ini

Eliminasi Gauss, Gauss Jordan, dan Gauss Seidel

Algoritma Membuat Kopi