Паскаль. Помогите с задачами

[VJ-LAFL]

Доброго времени суток! Помогите с 2 задачами на паскале, условия в фотках.

Буду признателен за оказанную помощь!!!

[Хыиуду]

И в чем проблема? Только не надо говорить "Я не могу решить". В чем конкретно сложность?

[VJ-LAFL]

Program Lab_2;
uses Crt;
var x, y, z, U, yn, zn: real;
begin
x:=1;
y:=2;
z:=0.5;
y:=yn;
z:=zn;
WriteLn('U x y z');
While x<=3 do
begin
While y<=4 do
begin
While z<=1.5 do
begin
U:=-(sqrt(y*y+(4*x*x)/3))+(ln(y)/(abs(x*z)));
Write(x:5:2);
Write(y:5:2);
Write(z:5:2);
WriteLn(U:5:2);
z:=z+0.8;
end;
y:=yn;
z:=zn;
y:=y+1.3;
end;
y:=yn;
z:=zn;
x:=x+1.3;
end;
end.

Помогите во второй задаче ...не знаю как и куда вставить условие U>2.1 и найти минимальные значения U?

[drummer]

В условии, что значит hx,hy,hz?

[VJ-LAFL]

hx,hy,hz - шаг

[drummer]

и еще:
какие начальные значения?

[Хыиуду]

Не знаю, зачем тут шаги вводить в качестве переменных, когда они константы.
В начале программы:
Umin=10000000;
внутри всех циклов, как только находится U:
if (U>2.1) and (U<Umin) then Umin:=U
вот и все

[VJ-LAFL]

как задать Arcsin(x*x*x-a)?

[BBB]

как задать Arcsin(x*x*x-a)?

[syntax='Delphi']
uses Math;

function ZadatArcSin (X, A: Extended) : Extended;
begin
ZadatArcSin := ArcSin (x*x*x-a);
end;[/syntax]

[VJ-LAFL]

Мне надо для паскаля 3