fork download
  1. program TriangleCalc;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils, Math;
  7.  
  8. var
  9. a, S, R_in, R_out: Real;
  10. begin
  11. Writeln('Программа расчета равностороннего треугольника');
  12. Writeln('----------------------------------------------');
  13.  
  14. Write('Введите сторону треугольника: ');
  15. Readln(a);
  16.  
  17. if a <= 0 then
  18. Writeln('Ошибка: сторона должна быть положительным числом.')
  19. else
  20. begin
  21. // Площадь равностороннего треугольника: S = a^2 * sqrt(3) / 4
  22. S := a * a * sqrt(3) / 4;
  23.  
  24. // Радиус вписанной окружности: r = a * sqrt(3) / 6
  25. R_in := a * sqrt(3) / 6;
  26.  
  27. // Радиус описанной окружности: R = a * sqrt(3) / 3
  28. R_out := a * sqrt(3) / 3;
  29.  
  30. Writeln('Результаты:');
  31. Writeln('Площадь треугольника: ', S:0:4);
  32. Writeln('Радиус вписанной окружности: ', R_in:0:4);
  33. Writeln('Радиус описанной окружности: ', R_out:0:4);
  34. end;
  35.  
  36. Writeln('Нажмите Enter для выхода...');
  37. Readln;
  38. end.
Success #stdin #stdout 0s 5300KB
stdin
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
Программа расчета равностороннего треугольника
----------------------------------------------
Введите сторону треугольника: Результаты:
Площадь треугольника: 21.2176
Радиус вписанной окружности: 2.0207
Радиус описанной окружности: 4.0415
Нажмите Enter для выхода...