паскаль

program lab3;
uses crt;
Var x:real;
i:integer;
Const b=1.12;h=0.5;

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

Function Y(t:real):real;
Begin
if x>-1 then if x<1 then Y:=tan(x)+sqrt(sqr(x)+4.7)
else if x>=1 and x<2.2 then Y:=((ln(x+6.7))/ln(5))-exp((-x+2b)*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
t:=2*Y+cos(b+Y);
If t>0 then koren3:=exp(ln(t)/3)
else if t<0 then koren3:=-exp(ln(abs(t))/3)
else if t=0 then koren3:=0
End;

Begin{main programm};
if ln(abs(Yx-b)+1.2)=0 then writeln('function isnt identifed')
else V:=(koren3)/(ln(abs(Yx-b)+1.2))+sqr(sqr(y+b)+3.1)
x:=-2.5; writeln(' x Y V')
For i:1 to 10 do begin
writeln(x:4:2;Y:4:2;V:4:2);
x:=x+h
end;
End.



Какие ошибки тут?
Как правильно написать цикл?

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

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

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