fork download
copy 
  1. program VolumeCalculator;
  2.  
  3. var
  4.  side, height, radius, baseSide, baseHeight: real;
  5.  volume: real;
  6.  choice: integer;
  7.  
  8. begin
  9.  writeln('Выберите фигуру для расчёта объёма:');
  10.  writeln('1 — Куб');
  11.  writeln('2 — Пирамида');
  12.  writeln('3 — Конус');
  13.  writeln('4 — Сфера');
  14.  readln(choice);
  15.  
  16.  case choice of
  17.  1: begin
  18.  write('Введите длину ребра куба: ');
  19.  readln(side);
  20.  volume:= side * side * side;
  21.  writeln('Объём куба: ', volume:0:2);
  22.  end;
  23.  
  24.  2: begin
  25.  write('Введите длину стороны основания пирамиды: ');
  26.  readln(baseSide);
  27.  write('Введите высоту пирамиды: ');
  28.  readln(height);
  29.  volume:= (baseSide * baseSide * height) / 3;
  30.  writeln('Объём пирамиды: ', volume:0:2);
  31.  end;
  32.  
  33.  3: begin
  34.  write('Введите радиус основания конуса: ');
  35.  readln(radius);
  36.  write('Введите высоту конуса: ');
  37.  readln(height);
  38.  volume:= (pi * radius * radius * height) / 3;
  39.  writeln('Объём конуса: ', volume:0:2);
  40.  end;
  41.  
  42.  4: begin
  43.  write('Введите радиус сферы: ');
  44.  readln(radius);
  45.  volume:= (4 * pi * radius * radius * radius) / 3;
  46.  writeln('Объём сферы: ', volume:0:2);
  47.  end
  48.  else
  49.  writeln('Неверный выбор!');
  50.  end;
  51. end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Выберите фигуру для расчёта объёма:
1 — Куб
2 — Пирамида
3 — Конус
4 — Сфера
Неверный выбор!
https://ideone.com/exyZPn
language:
Pascal (fpc 3.0.4)
created:
15 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!