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.
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
Posting Komentar