fork download
copy 
  1. program calc_sqrt
  2.     implicit none
  3.     real :: x, y
  4.  
  5.     print *, '実数を入力してください：'
  6.     read *, x
  7.  
  8.     if (x < 0.0) then
  9.         print *, '負の数の平方根は定義されていません。'
  10.     else
  11.         y = sqrt(x)
  12.         print *, '平方根は：', y
  13.     end if
  14. end program calc_sqrt
  15.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
25
stdout
copy 
 実数を入力してください：
 平方根は：   5.00000000
https://ideone.com/m6jKJN
language:
Fortran (gfortran 8.3)
created:
2 days 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!