exer3-7.pas

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

program e3_7(input,output);
var
 k:integer;
 x,y,z:real;
begin
 writeln('input x,y');
 readln(x,y);
 if (x>0) and (y>0) then k:=1
 else if(x>0) and (y<0) then k:=4
      else if (x<0) and (y>0) then k:=2
           else if (x<0) and(y<0) then k:=3;
 case k of
   1:z:=ln(x)+ln(y);
   2:z:=sin(x)+sin(y);
   3:z:=exp(2*x)+exp(3*x);
   4:z:=sin(x+y)/cos(x+y)
 end;
 writeln('k=',k,'   z=',z);
 readln(z)
 end.