asd / корзина / лекции по TP / Lecture_Pascal / graph / LAB2

 program lab2;
 uses crt;
 var x,v,d,a:real;
 const xn=-2.2;xk=2.5;h=0.4;
 function y:real;
 begin
 if abs(x)<1 then y:=arctan(x/sqrt(1-sqr(x)))+sqrt(sqr(x)+4.7)
             else if x>=1 then y:=(ln(x+6.7))/ln(5)
                          else y:=arctan(x)+sqr(x)-1.035
 end;
 function sqrt5(x:real):real;{ўлзЁб«Ґ­ЁҐ Їпв®Ј® Є®а­п}
 begin
 if x=0 then sqrt5:=0
        else if x>0 then sqrt5:=exp((ln(x))/5)
                    else sqrt5:=-exp((ln(abs(x)))/5)
 end;
 BEGIN;
 clrscr;
 x:=xn;writeln('     x       y      v     ');
 repeat d:=y;{®Ўа йҐ­ЁҐ Є дг­ЄжЁЁ y}
 a:=exp((2*x*ln(abs(y)+1.2)*ln(3)));
 v:=(sqrt5(2*y+sqr(cos(x*y))))*a;
 writeln(x:8:2,y:7:2,v:7:2);
 x:=x+h;
 until x>xk;
 END.