pascal abc - вычислить значение по формуле

[Levonchik]

задание:ввести с клавиатуры x,y,z и вычислить u,v,t,если:
сами функции во вложенной фотографии,на всякий случай напишу:
u=1-ctg(z-(z^3/y^2+z^2))
v=e^-x^2+e^y^2
следующая функция в виде системы,после запятой условия:
t=log по основанию 10 числа (v+u) , u^2+v^2>=y^2+z^2
arcsin (u^2+v^2) , u^2+v^2<y^2+z^2

заранее спасибо

[TinMan]

Сообщение от Levonchik

задание:
...
заранее спасибо

Я не понял, Левончик.. Тебе типа это сделать штоле? За тебя? Штоб ты сдал?..

Если есть конкретный вопрос по программированию - неясно что-то, или не получается - давай его суды, поможем.

[Levonchik]

программу я пытался сделать сам,в следствие чего было множество ошибок,хотел сверить с тем что получится у тебя,если поможешь,и исправить эти ошибки.вот как то так:

program function:uvt;
var x,y,z,u,v,t,:real;
begin
x:=readln(x);
y:=readln(y);
z:=readln(z);
u:=1-cos(2-(exp(3)*ln(2))/(exp(2)*ln(y)-exp(2)*ln(2)/sin(2-(exp(3)*ln(2))/(exp(2)ln(y)-exp(2)*ln(2));
v:=exp(exp(2)*ln(-x))*ln(exp())+exp(exp(2)*ln(y))*ln(exp());
if (exp(2)*ln(u)+exp(2)*ln(v))<(exp(2)*ln(y)+exp(2)*ln(y)+exp(2)*ln(2))
then
t=arctan((exp(2)*ln(u)+exp(2)*ln(v))/sqrt(1-sqr(exp(2)*ln(u)+exp(2)*ln(v));
writeln(u);writeln(v);writeln(t);
if(exp(2)*ln(u)+exp(2)*ln(v))>=(exp(2)*ln(y)+exp(2)*ln(2))
then
t=ln(v+u)/ln(10);
writeln(u);writeln(v);writeln(t);
end.

[domovou]

program uvt;
var x,y,z,u,v,t:real;
begin
readln(x);
readln(y);
readln(z);
u:=1-cos(2-(exp(3)*ln(2)))/(exp(2)*ln(y)-exp(2)*ln(2))/sin(2-(exp(3)*ln(2)))/(exp(2)*ln(y)-exp(2)*ln(2));
v:=exp(exp(2)*ln(-x))*ln(exp(1))+exp(exp(2)*ln(y))*ln(exp(1));
if (exp(2)*ln(u)+exp(2)*ln(v))<(exp(2)*ln(y)+exp(2)*ln(y)+exp(2)*ln(2))
then
t:=arctan((exp(2)*ln(u)+exp(2)*ln(v)))/sqrt(1-sqr(exp(2)*ln(u)+exp(2)*ln(v)));
writeln(u);writeln(v);writeln(t);
if(exp(2)*ln(u)+exp(2)*ln(v))>=(exp(2)*ln(y)+exp(2)*ln(2))
then
t:=ln(v+u)/ln(10);
writeln(u);writeln(v);writeln(t);
end.

[Levonchik]

domovou,спасибо огромное,но при запуске программы,т.е при вводе переменных,выдаёт:ошибка:неверная вещественная операция(строка 8)

[VIK_aka_TOR]

v:=exp(exp(2)*ln(-x))*ln(exp(1))+exp(exp(2)*ln(y))*ln(exp(1));

из отрицательный логарифма не существует...

[domovou]

Сообщение от VIK_aka_TOR

из отрицательный логарифма не существует...

Проглядел)
Levonchik, удалите минус в логарифме

v:=exp(exp(2)*ln(x))*ln(exp(1))+exp(exp(2)*ln(y))*ln(exp(1));

[Levonchik]

спасибо большое всем кто помог,очень выручили