lab3.pas

program lab3; {табуляция функции}
uses crt;
type arg=0..30;
var x:arg;y:real;
Begin
Clrscr;
   for x:=0 to 30 do begin
   case x of
   1..9: y:=exp(2*x-1)+cos(x);
   10..20: if x mod 2=0 then y:=ln(abs(x-5))+exp(1/3*ln(5*x)) else y:=exp(-2.5*ln(x))*sin(2*x+1);
   else y:=ln(2*x+1)
   end; {case}
   writeln('x=',x:3,'y=',y:6:2)
 end
End.