Задачи в Pascal

[Ванек64]

1.Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.
2.Даны x,y,z. Вычислить a,b,если


3+exp(y-1)

A=-------------------------
1+x*x|y-tgz|


B=1+|y-x|2 +(y-x)3 /2+|y-x|/3

[Mad_Cat]

1)

sa:=a/2+b/2
sg:=sqrt(abs(a*b));

2)

a:=3+exp(y-1)/(1+sqr(x)*abs(y-sin(x)/cos(x)));
b:=1+(abs(y-x))*2+(y-x)*3/2+(abs(y-x))/3;

[Mad_Cat]

//////дубль

[Ванек64]

спасибо большего пока не надо

[Ванек64]

1.Дано действительно число а.Вычислить f(a),если
-х-1,прих<=-1,
f(x)= х+1,при -1<x<=0,
-х+1,при 0<x<=1,
х-1,при х>1,
2.Пусть х,у, координаты точки и
u=x-y,если (х,у) принадлежит D,
u=xy+7,в противном случае;
область D есть промежуток между кругом х*х+(y-1)*(y-1)=1 и парабола у=1-х*х. Определить u

[andrewpalkin]

Сообщение от Ванек64

1.Дано действительно число а.Вычислить f(a),если
-х-1,прих<=-1,
f(x)= х+1,при -1<x<=0,
-х+1,при 0<x<=1,
х-1,при х>1,
2.Пусть х,у, координаты точки и
u=x-y,если (х,у) принадлежит D,
u=xy+7,в противном случае;
область D есть промежуток между кругом х*х+(y-1)*(y-1)=1 и парабола у=1-х*х. Определить u

А что именно не получается , где код который ты уже написал ?