1 курс, зачет

[Wawancher]

Здравствуйте дорогие форумчане, помогите кто чем сможите...


http://s53.radikal.ru/i141/1212/30/ce71d42ec2f7.jpg

[Sciv]

Function Max(x,y: real): real;
begin
  if x>y then Max:=x else Max:=y;
end;

var x,y,U: real;
begin
  x:=1;
  Repeat
    y:=2;
    While y<=4 do begin
      if x/sqr(y)>=0.2 then U:=sin(x*y-x*x-y*y)
      else U:=Max(exp(1)*Cos(Pi*x),Sin(Exp(1/3*Ln(x*y*y))-1/sqrt(x))/Cos(Exp(1/3*Ln(x*y*y))-1/sqrt(x)));
      WriteLn('x=',x:2:2,'; y=',y:2:2,'; U=',U:2:2);
      if y= 4 then break;
      y:=y+1.5;
      if y>4 then y:=4;
    end;
    if x=3 then break;
    x:=x+1.3;
    if x>3 then x:=3;
  Until (x>3);
  ReadLn;
end.