Курсовая (Основы програмирования и алгоритмические языки)

    Program Ku-ku;
      uses_crt; 
      const_x=-0,85, y=1,25;
      var_z,f:real;
    begin
      z:=sqrt(abs(20*x)/(exp(x)+exp(y));
      f:=exp(y)+sqrt(abs(x)+abs(y))xexp(e) 
         или exp(y)+(exp([COLOR="#0000ff"]3*ln[/COLOR](sqr(abs(x)+abs(y)))xexp(e)
      writeln_(`z=`,z);
      writeln_(`f=`,f);
    end.

        Program Bu-ga-ga-ga;
          uses_crt;
          var_x,f:real;
        begin
          writeln_(`vvedi_x=`);
          if_x<0;
            then_f:=-sqrt(3*ln(sqr(2*ln(sin(x)))+exp(4*ln(cos))xx);
            else;
            if_x<1
              then_f:=ctg*(x+0,4);
              else_f:=ln*(2*x+0,5);
          writeln_(`f=`,Y);
        end.

program Bu-ga-ga-ga;
 uses crt;
 var x: real;
begin
 writeln ('vvedi x =');
 readln(x);
 if x<0 
  then f:=-sqrt(3*ln(sqr(2*ln(sin(x))))+exp(4*ln(cos))xx)
   else
   if x<1
    then f:=ctgx(x+0,4)
    else f:=lnx(2xx+0,5);
writeln('f=',Y);
end.

    Program Z4_V4;
      uses_crt;
      const_xn=1,3;xk=6,5;hx=0,5;a=3,2;
      var_x,f1,f2,y:real;
    Begin
      x:=xn;
      writeln_(`tablitsa_znacheniy`);
      writeln_(`*******************`);
      write_x<=xk_do
        Begin
          f1:=10xexp(3*ln)-sqr(sin(x/5)/cos(x/5));
          f2:=sqr(5xexp(2*ln)+1);
          if_x<=a
            then_y:=f1
            else_y:=f2;
          writeln_(`x=`,x:Y,`*y=`,y:Y);
          a:=x+h;
        end;
      end.

          Program_Z5_V4;
            Uses_crt;
            Var_x=-10..15;_f:real;
          Begin 
              Writeln_(‘***************’);
        Writeln_(‘*     x     *     y     *’);
        Writeln_(‘***************’):
        For_x:=-10_to_15_do
          Begin
            Case_x_of
           -2..5:_f:=exp(2*x-5);
            6,8,10,12:_f:=sqr(cos(pi*x));
            7,9,11:_f:=ln(sqr(x)+2,5)_else_f:=sin(x/30);
        end;
            if_x=11
tben_readkey;_(ojidaet_najatie_Enter)
writeln_(x:10,’*’,f:10:2);
                  and;
                  readkey;
        End.