fork download
copy 
  1. program HeronFormula;
  2.  
  3. uses crt;
  4.  
  5. var
  6.   a, b, c, p, s: Real;
  7.  
  8. begin
  9.   clrscr;
  10.  
  11.   // Ввод сторон треугольника
  12.   Write('Введите длину стороны a: ');
  13.   ReadLn(a);
  14.   Write('Введите длину стороны b: ');
  15.   ReadLn(b);
  16.   Write('Введите длину стороны c: ');
  17.   ReadLn(c);
  18.  
  19.   // Вычисление полупериметра
  20.   p := (a + b + c) / 2;
  21.  
  22.   // Вычисление площади по формуле Герона
  23.   s := sqrt(p * (p - a) * (p - b) * (p - c));
  24.  
  25.   // Вывод результата
  26.   WriteLn('Площадь треугольника: ', s:0:2);
  27.  
  28.   ReadLn;
  29. end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
3
6
9
stdout
copy 
Введите длину стороны a: Введите длину сторо
ны b: Введите длину стороны c: Площадь треуго�
�ьника: 0.00
https://ideone.com/msBi0L
language:
Pascal (fpc 3.0.4)
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!