exer2-5.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program exer2_5(input,output);
const
  pi=3.1416;
var
  x,y,t,d:real;
begin
  x:=sqrt(1+sin(52.25*pi/180)/cos(52.25*pi/180));
  y:=exp(pi*x/2)+ln(abs(sin(x)*sin(x)-sin(x*x)));
  writeln('y=',y);
  readln(d);
end.