Question

Из железной полосы длиной l метров нужно изготовить обруч. на соединение концов уходит d метров полосы. разработать схему алгоритма для вычисления радиуса r обруча. протестировать алгоритм для а) l=5.8, d=0.2, б) l=3.25, d=0.1

Answer 1

$L=D+ \pi r^{2}$
$\pi r^{2} =L-D$
$r^{2} = \frac{L-D}{ \pi }$
$r = \sqrt{ \frac{L-D}{ \pi } }$
function r(l, d: real):real;
begin
  result:=sqrt((l-d)/pi);
end;
var l, d: real;
begin
  l:=5.8;
 d:=0.2;
  writeln('L = ', l, ' D = ', d, ' r = ', r(l, d));
  l:=3.25; d:=0.1;
  writeln('L = ', l, ' D = ', d, ' r = ', r(l, d));
end.