Табулирование функции, hellp Опции

[РЕЗИНОВАЯ ЗИНА]

помоги составить программу табылирования функции

    Ln^2|x-2|+sqrt(x+3) , x<=2

y=
 
    E^(6-2x)+2cos^3(x-3), x>2

на отрезке [1,3] c шагом 0.2
чето я совсем запутался.

Сообщение отредактировано: volvo - 11.11.2005 22:20

[Guest]

program labwork2_2;
uses crt;
const
step:double=0.2;
a:double=1;
b:double=3;
eps:double=0.00001;
var
x,y:double;
BEGIN
x:=a;
while abs(b-x)>eps do
 begin

 if x<=2 then y:=sqr(ln(abs(x-2)))+sqrt(x+3);
 if x>2 then y:=Exp(6-2*x)+2*sqr(cos(x-3))*cos(x-3);
writeln(x:10,y:10);
x:=x+step;
    readln;


readkey;
END.

у меня почему выдает ошибку
вот тут: x:=a;

Сообщение отредактировано: volvo - 12.11.2005 0:40