fork download
copy 
  1. program GeometricFigures;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7.   choice: Integer;
  8.   a, b, r: Real;
  9.   area: Real;
  10.  
  11. begin
  12.   WriteLn('Выберите фигуру:');
  13.   WriteLn('1 - Прямоугольник');
  14.   WriteLn('2 - Треугольник');
  15.   WriteLn('3 - Круг');
  16.   Write('Введите номер выбора: ');
  17.   ReadLn(choice);
  18.  
  19.   case choice of
  20.     1:
  21.       begin
  22.         Write('Введите длину стороны a: ');
  23.         ReadLn(a);
  24.         Write('Введите длину стороны b: ');
  25.         ReadLn(b);
  26.         area := a * b;
  27.         WriteLn('Площадь прямоугольника: ', area:0:2);
  28.       end;
  29.     2:
  30.       begin
  31.         Write('Введите длину основания: ');
  32.         ReadLn(a);
  33.         Write('Введите высоту: ');
  34.         ReadLn(b);
  35.         area := 0.5 * a * b;
  36.         WriteLn('Площадь треугольника: ', area:0:2);
  37.       end;
  38.     3:
  39.       begin
  40.         Write('Введите радиус круга: ');
  41.         ReadLn(r);
  42.         area := Pi * r * r;
  43.         WriteLn('Площадь круга: ', area:0:2);
  44.       end;
  45.   else
  46.     WriteLn('Некорректный выбор.');
  47.   end;
  48. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
3 4
5 6 7
9
stdout
copy 
Выберите фигуру:
1 - Прямоугольник
2 - Треугольник
3 - Круг
Введите номер выбора: Введите радиус круга: Площадь круга: 78.54
https://ideone.com/uBX6dw
language:
Pascal (fpc 3.0.4)
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!