program anschnitt;
var
 i:Integer;
 w,u,umax:Real;
begin
 umax:=230*sqrt(2);
 writeln('ZW   -ZW    ZW%    Ueff    P%    Uschn');
 for i:=0 to 180 do begin
  w:=pi/180*i;
  u:=sqrt(1/2/pi*(pi-w+0.5*sin(2*w)));
  writeln(i:3,i-180:5,i/1.8:6:1,'%',u*umax:8:1,u*u*200:6:1,'%',
    umax*sin(w)/sqrt(2):8:1);
 end;
end.