Помогите решить задачку (Паскаль)Задача №1U= max{1-cos(Px2)-y; tg(3√xy2-1/3√x)} если...

Question

Помогите решить задачку (Паскаль)

Задача №1
U= max{1-cos(Px2)-y; tg(3√xy2-1/3√x)} если x/y2<1;<br>
sin(xy-x2-y2), если x/y2≥1
При 1≤x≤3, hx=1.3
2≤y≤4, hy=1.5

Задача №2
U= min{e2*cos(Px2)-y;
ctg(xy2-1/3√x)} если x/y<1;<br>
xy-x2-y2 если x/y≥1
При 1≤x≤3 hx=1.3
2≤y≤4 hx=1.5

Лучше просто откройте изображение , там написано более понятно.

---

---

Comments

не понимаю я задания

---

Помогите исправить ошибкиProgram Cycl9;var x,y,z:real;beginx:=1;Repeaty:=2;Repeatif ((x/y)<1) then begin if (exp(2)*cos(P*sqr(x))-y);Then z:=((cos(x*sqr(y)-1/exp(en(x)/3))/sin(x*sqr(y)-1(exp(en(x)/3)); end;else z:=(x*y-sqr(x)-sqr(y));writeln('x= ', x:4:2 'y= '; y:4:2 'z= ', z:4:3);y:=y+1.3; until(y>3);x:=x+1.5; until(x>4);end.

---

что такое Р? и где его брать?

---

Program Cycl18;var x,y,z:real;beginx:=1;Repeaty:=2;Repeatif((x/y)<1) then begin if (exp(2)*cos(P*sqr(x))-y)Then begin z:=(cos(x*sqr(y)-1*(exp(en(x)/3))/sin(x))else z:=(x*y-sqr(x)-sqr(y));writeln('x= ', x:4:2 'y= ', y:4:2 'z= ',z:4:3);x:=y+1.3; until(y>3);y:=x+1.5; until(x>4);end;end;end.

---

P я так понял это постоянная переменная 3.14

Answer 1

Var
  x, y, z, t1, t2: real;

begin
  x := 1;
  repeat
    y := 2;
    repeat
      if x / y < 1 then begin
        t1 := exp(2) * cos(Pi * x * x) - y;
        t2 := 1 / tan(x * y * y - sqrt(x) / 3);
        if t1 > t2 then
          z := t1
        else
          z := t2;
      end
      else z := (x * y - x * x - y * y);
     
      writeln(' x = ', x:4:2, ' y = ', y:4:2, ' z = ', z:6:3);
      y := y + 1.3;
    until(y > 4);
    x := x + 1.5;
  until(x > 3);
end.

var
  x, y, z, t1, t2: real;

begin
  x := 1;
  repeat
    y := 2;
    repeat
      if x / y / y < 1 then begin
        t1 := 1 - cos(Pi * x * x) - y;
        t2 := tan(3 * (ln(x) / ln(3)) * y * y - (ln(x) / ln(3)) / 3);
        if t1 > t2 then
          z := t1
        else
          z := t2;
      end
      else z := sin(x * y - x * x - y * y);
     
      writeln(' x = ', x:4:2, ' y = ', y:4:2, ' z = ', z:6:3);
      y := y + 1.3;
    until(y > 4);
    x := x + 1.5;
  until(x > 3);
end..