помогите плз а то меня отчислят(

[Broneslav]

http://imageshost.ru/links/38b1546b9...b9ebf0e94b429d

[puporev]

Ничего ведь сложного нет. Ввести дополнительные переменные, установить область определения, провести несложные математические преобразования и все. Тут программированием и не пахнет. Не учите математику ни фига, а потом на форум программистов за помощью. А чего не к математикам?
Поскольку формула пропечатана не до конца однозначно, возможно я что-то неправильно понял. Если что, сами легко поправите, важен принцип.

uses crt;
var x,y,f1,f2,z,u1,v1,u2,v2:real;
begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
if(x+y=0)or(x-y=0)then writeln('Z ne opredeleno!')
else
  begin
   u1:=exp(1.5/abs(x+y));
   v1:=exp(2/(abs(x)+abs(y)));
   u2:=ln(abs(x+y))/ln(2);
   v2:=ln(abs(x-y))/ln(2);
   if u1+v1>0 then f1:=sqrt(u1*u1+v1*v1)
   else if u1+v1<0 then f1:=1/(u1+v1)
   else if u1+v1=0 then f1:=u1*v1;
   if u2+v2>0 then f2:=sqrt(u2*u2+v2*v2)
   else if u2+v2<0 then f2:=1/(u2+v2)
   else if u2+v2=0 then f2:=u2*v2;
   Z:=f1/(1-f2);
   writeln('Z=',Z:0:4);
 end;
readln
end.

[Broneslav]

спасибо огромное!!!!!! ) я просто совсем плохо разбираюсь)) спасибо))