{* Задача 437 *}

Unit ZADACH437;
Interface
Implementation
Begin
 writeln('

Вычислить значение табличной функции U и параметров x, y:

Max (e·sin(x²) - √y; ctg (³√x·y²), если > 1

U =

Cos(x·y²), если = 1

при 1≤x≤3, h_x = 1, 3

при 2≤y≤4, h_y = 1, 5

');
End.

Program zadach437;

Uses zadach437.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  u  : real;
  u1 : real;
  u2 : real;
  x  : real;
  y  : real;
  xn : real;
  yn : real;
  xk : real;
  yk : real;
  hy : real;
  hx : real;
Begin
  writeln (‘введи xn, xk, hx’);
  readln (xn, xk, hx);
  writeln (‘введи yn, yk, hy’);
  readln (yn, yk, hy);
  x := xn;
  Repeat   y := yn;
    Repeat
      If x / (sqr(y)) > 1 Then
      Begin
        u1 := exp(1) * sin(sqr(x)) - sqrt(y);
        u2 := cos(exp(ln(x * sqr(y)) / 3)) / (sin(exp(ln(x * sqr(y)) / 3)));
        If u1 > u2 Then
          u := u1
        Else u := u2;
      End;
      Else u := cos(x * sqr(y));
        writeln (‘число u = ‘ , u : 8 : 2, ‘при x = ‘ , x : 5 : 2, ‘при y = ‘ , y : 5 : 2);
  y := y + hy
  Until y > yk;
  x := x + hx
  Until x > xk;
End.