паскаль

где ошибка?

program lab3;
uses crt;
Var x,v,m,k,g:real;
i:integer;
Const b=1.12;h=0.5;

function tg(x:real):real;
Begin
tg:=sin(x-pi/4)/cos(x-pi/4);
end;

Function Y(t:real):real;
Begin
if (x>-1)and (x<1) then Y:=tg(x)+sqrt(sqr(x)+4.7)
else if (x>=1) and (x<2.2) then Y:=((ln(x+6.7))/ln(5))-exp((-x+2*b)*ln(2))
else if (x>=-2.5) and (x<=-1) then Y:=arctan(x)+abs(x*x*x-1.35);
end;

function koren3(t:real):real;
Begin
If t>0 then koren3:=exp(ln(t)/3)
else if t<0 then koren3:=-exp(ln(abs(t))/3)
else koren3:=0
End;

Begin{main programm};
m:=koren3(2*Y(x)+cos(b+Y(x)));
k:=ln(abs(Y(x)-b)+1.2);
g:=sqrt(sqr(Y(x)+b)+3.1);
V:=m/k+g;
x:=-2.5;
writeln(' x',' Y(x)',' V');
For i:=1 to 10 do begin
writeln(' ',x:5:2,' ',Y(x):5:2,' ',V:4:2);
x:=x+h
end;
End.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.