Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина...

Question

Пусть элементами круга
являются радиус (первый элемент), диаметр (второй элемент) и длина окружности
(третий элемент). Составить программу, которая по номеру элемента запрашивала
бы его соответствующее значение и вычисляла бы площадь круга.
Решение на паскале!

Answer 1

var
  a: real;
  k: byte;

begin
  writeln('1 - l okp.');
  writeln('2 - r okp.');
  writeln('3 - d okp.');
  readln(k);
  readln(a);
  write('S = ');
  case k of
    1: writeln(sqr(a) / (4 * Pi):0:2);
    2: writeln(Pi * sqr(a):0:2);
    3: writeln(Pi * sqr(a / 2):0:2);
    else writeln('?');
  end;
end.