fork download
copy 
  1. PROGRAM excercise3_2
  2.  
  3. REAL :: w, h, BMI
  4.  
  5. READ *, w, h
  6.  
  7. BMI = w / ( h ** 2 )
  8. PRINT *, BMI
  9.  
  10. IF ( BMI >= 25 ) THEN
  11.           PRINT *, '肥満'
  12. ELsE IF ( BMI <= 18.5 ) THEn
  13.        PRINT *, '痩せすぎ'
  14. ElSE 
  15.        PRINT *, '普通'
  16. END IF
  17.  
  18. END PROGRAM excercise3_2
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
75, 1.85
stdout
copy 
   21.9138050    
 普通
https://ideone.com/d3IoVN
language:
Fortran (gfortran 8.3)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!