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.