Question

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

Задача №1
U= max{1-cos(Px2)-y; tg(3√xy2-1/3√x)} если x/y2<1;

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;

xy-x2-y2 если x/y≥1
При 1≤x≤3 hx=1.3 
2≤y≤4 hx=1.5

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

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..