Question

Паскаль. Даны два числа a и b. Составить функцию, вычисляющую периметр ромба, диагоналями которого являются числа a и b.

Answer 1

Существует формула для вычисления периметра ромба через диагонали:

$P=4\sqrt{(\frac{d_1}{2})^2+(\frac{d_2}{2})^2 }$, где d1,d2 - диагонали ромба.

Составляем программу:

function p(a,b: real): real;

begin

p:=4*sqrt((a/2)*(a/2)+(b/2)*(b/2));

end;

var a,b: real;

begin

readln(a,b);

write('периметр: ',p(a,b));

end.