fork download
copy 
  1. program Heron
  2. implicit none
  3.     real :: a, b, c, s, area
  4.     read *, a, b, c
  5.     if ((a.gt.0.0).and.(b.gt.0.0).and.(c.gt.0.0).and.(a+b.gt.c).and.(a+c.gt.b).and.(b+c.gt.a)) then
  6.         s=(a+b+c)/2
  7.         area=sqrt(s*(s-a)*(s-b)*(s-c))
  8.         print "(a, f0.7)", "area = ", area
  9.     else
  10.         print "(a)", "This isn't a triangle!"
  11.     end if
  12. end program Heron
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
5
12
13
stdout
copy 
area = 30.0000000
https://ideone.com/69JoXN
language:
Fortran (gfortran 8.3)
created:
18 hours 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!