Паскаль. даны два числа a и b. составить функцию, - вопрос №10218618 от IrinaKorolevskih 25.02.2023 23:04

Question

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

IrinaKorolevskih · Answer

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

$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.