Сложные цикли и разветвления.

[Artimbulidor]

Получить таблицу значений функции U найти Umin.Переменная X изменяется от -1 до 0.6 с шагом 0.8,переменная Y изменяется от 0 до 0.6 с шагом 0.2.

[Artimbulidor]

у кого есть какие предложения по каким цыклам решать while/for/if/repeat/......????

[Artimbulidor]

program 1;
var x,y,u:real;
begin
x:=-1;
y:=0
repeat
if z>=1 then U:=cos(z)/sin(z)+sin(x)*sin(x)
else u:=absln(x)+Sqrt(abs(x-z));
writeln('x=' ,x:10:6,'y=' ,y:10:6,'u=' ,u:10:6);
x:=x+0.8;
y:=y+0.6;
дальше не знаю как .....(((

[mihali4]

На основе ваших прикидок:

var x,y,u,z:real;
begin
y:=0;
while (y<=0.8) do
begin
x:=-1;
while (x<=0.6) do
begin
if Power(x,2)>Power(y,3) then
z:=Power(x,2) else
z:=Power(y,3);
if z>=1 then U:=cos(z)/sin(z)+Power(sin(x),2) else 
u:=ln(abs(x))+Power(abs(x-z),1/3);
writeln('x=' ,x:10:6,'   y=' ,y:10:6,'   u=' ,u:10:6);
x:=x+0.8;
end;
y:=y+0.6;
end;
end;

(Ну очень давно не имел дела с учебными задачами, да и турбопаскаля у меня нет. Так что если кто из студентов найдет ошибку и подправит -хорошо)

[puporev]

Хоть и не студент, но поправлю. Все верно, кроме того, что в Паскале нет функции Power. И еще надо минимальное значение. Поэтому будет так:

var x,y,u,z,umin:real;
begin
y:=0;
while (y<=0.8) do
begin
x:=-1;umin:=100;
while (x<=0.6) do
begin
if x*x>y*y*y then
z:=x*x) else
z:=y*y*y;
if z>=1 then U:=cos(z)/sin(z)+sqr(sin(x)) else 
u:=ln(abs(x))+exp(ln(abs(x-z))/3);
writeln('x=' ,x:10:6,'   y=' ,y:10:6,'   u=' ,u:10:6);
if u<umin then umin:=u;
x:=x+0.8;
end;
y:=y+0.6;
end;
write('umin=',umin:0:6);
readln
end.