fork download
copy 
  1. program CircleSquare;
  2. {
  3. 	Задача:
  4. 	- 77 из "Turbo Pascal в задачах и примерах"
  5. 	- автор сборника Никита Культин
  6. 	- цена сборника 100 руб. в 2004 году
  7. 	Решение:
  8. 	- автор Дмитрий С. Кузнецов
  9. }
  10. const
  11. 	PI = 3.1415926;
  12. var
  13. 	radiusCircle	:real;
  14. 	radiusHole		:real;
  15. 	squareCircle	:real;
  16. begin
  17. writeln('Вычисление площади кольца.');
  18. writeln('Введите исходные данные :');
  19. writeln('  Радиус кольца (см) -> ');
  20. readln(radiusCircle);
  21.  
  22. writeln('  Радиус отверстия (см) -> ');
  23. readln(radiusHole);
  24.  
  25. if radiusCircle < radiusHole then
  26.   writeln('Ошибка! Радиус отверстия не может быть больше радиус кольца.')
  27. else
  28.   begin
  29.   squareCircle := PI * (radiusCircle * radiusCircle - radiusHole * radiusHole);
  30.   writeln('Радиус отверстия : ', squareCircle:6:3, ' кв.см.')
  31.   end
  32. end.
  33.  
Success #stdin #stdout 0s 5296KB
comments (?)
stdin
copy 
12.35
8.78
stdout
copy 
Вычисление площади кольца.
Введите исходные данные :
  Радиус кольца (см) -> 
  Радиус отверстия (см) -> 
Радиус отверстия : 236.983 кв.см.
https://ideone.com/zhSqTy
language:
Pascal (fpc 3.0.4)
created:
4 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!