Помогите пожалуйста, График функции в Паскале Опции

[Neuropunka]

построить график функции y=e^sinx при х<0 в паскале что-то у меня вообще не чего не выходит. Парни выручайте нужно очень срочно.

[Lapp]

Почему SetColor распался на части? строка 23
И закрой скобку в той строке, которую изменяла (с экспонентой).

[Neuropunka]

[quote name='Lapp' date='4.06.2011 3:20' post='156109']
Почему SetColor распался на части? строка 23
И закрой скобку в той строке, которую изменяла (с экспонентой).
Procedure Coord (CoordYBeg, CoordYEnd, CoordHMin, CoordHMax: Real);
Var GradX, GradYX: Real;
X, Y: Integer;
Color: Word;
Begin
Color:=GetColor;
SetColor (7);
GradX :=GetMaxX/(CoordYEnd-CoordYBeg);
GradYX:=GetMaxY/(CoordHMax-CoordHMin);
If (CoordYEnd>0) And (CoordYBeg<0) Then
Y:=Round(GradX*(0-CoordYBeg));
If CoordYEnd<0 Then Y:=GetMaxY;
If CoordYBeg>0 Then Y:=1;
If (CoordHMin<0) And (CoordHMax>0) Then
X:=Round(GradYX*(CoordHMax));
If CoordHMin>0 Then X:=GetMaxY;
If CoordHMax<0 Then X:=1 ;
Не извесный индификатор GetColor;