fork(128) download
copy 
  1. Program Aire_Triangle;
  2. Var a, b, c, Surf, P : Real;
  3. Begin
  4. Writeln ('Donner 3 réels positifs :'); 
  5. Readln (a, b, c); 
  6. IF (a+b=c) Or (a+c=b) Or (b+c=a) Then Writeln ('Il ne s''agit pas d''un triangle')
  7. Else 
  8. Begin
  9. P := (a+b+c)/2;
  10. Surf := sqrt (P*(P-a)*(P-b)*(P-c));
  11. End;
  12. Writeln ('Aire de triangle = ', Surf:4:2);
  13. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
10
15
15
stdout
copy 
Donner 3 réels positifs :
Aire de triangle = 70.71
https://ideone.com/Jl75nr
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
secret

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!