как записать эту формулу в паскале?

Question

Андрей Степанов · Accepted Answer

Можно по-разному. 
Если в Дельфи, то можно, например, так: 
b:=power(2,-x)*sqrt(x+sqrt(sqrt(abs(y)))) 
Если же используется стандартный паскаль, то можно написать собственную функцию возведения положительного числа в любую степень: 
function power(x,y:real):real; 
begin 
if x > 0 then power:=exp(y*ln(x)) else power:=0; 
end; 
После этого можно пользоваться записанным выше выражением.

Михаил Interstells · Answer

b := exp(-x*ln(2))*sqrt(x+exp(ln(abs(y))/4));

Иван Марков · Answer

b := abs(y); 
b := x + sqrt(sqrt(y)); 
if b < 0 then 
 begin 
 WriteLn('Корень из отрицательного числа! '); 
 Halt; 
 end; 
b := exp((-x)*ln(2)) * b;