Вычислить таблицу значений V и x,y в Паскале и найти max

[motvey77777]

b5vlnzAF03Y.jpg

[Вадим Мошев]

А вы не пробовали текст задачи в гугл-транслейт забить? Он решает задачи. Вот смотрите скриншот

Tr1.jpg

[newerow1989]

uses Math;

function fV(x,y:real):real;

   function max(a,b:real):real;
   begin
      If a>b then
         Result:=a else
         Result:=b;
   end;

begin
   If x+y<=2 then
      Result:=max(Power(Abs(sin(x)),y),Power(y+x,1/5)) else
      Result:=x*x+y*y;
end;

var x,y,v:real;
begin
   Write('x = ');Readln(x);
   Write('y = ');Readln(y);
   v:=fV(x,y);
   Writeln('v = ',v:7:5);
   Readln;
end.