Процедуры.

[Александра Раш]

Составьте программу с использованием процедуры –
функции. Выполните ее тестирование и отладку.
Пусть элементами круга являются радиус (1-й элемент), диаметр (2-й
элемент), длина окружности (3-й элемент). По номеру одного из
перечисленных элементов и его значению вычислить площадь круга.

[RuVarez]

Ну и какие ваши наработки?

[BDA]

uses
  crt;

const
  pi = 3.14;

var
  a: integer;
  b, s: real;

function Squarefromradius(r: real): real;
begin
  Squarefromradius := pi * r * r; 
end;

function Squarefromdiameter(d: real): real;
begin
  Squarefromdiameter := pi * d * d / 4;
end;

function Squarefromperimeter(p: real): real;
begin
  Squarefromperimeter := p * p / (4 * pi);
end;

begin
  writeln('Input type of element and value:');
  readln(a, b);
  case a of
    1: s := Squarefromradius(b);
    2: s := Squarefromdiameter(b);
    3: s := Squarefromperimeter(b);
  end;
  writeln('Square: ', s:0:3);
  readln;
end.

[Александра Раш]

)))))))))Спасибо)))

[Александра Раш]

Спасибо)))