синусоида, построение графика Опции

[compiler]

данная тема была открыта сначало в теор. вопросах, однако вышла за пределы того раздела, за что была закрыта (переместиь отказалались по неизвестным мне причинам).
задача построить синусоиду с заданным периодом
неработающая программа

{$N+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
     grMode : Integer;
	w:real;
   x,y:real;{extended;}
       i:integer;
Begin
w:=23.6884;
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);                 {TP не компилирует из за этих двух строчек}
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);                  {***}

x:=lgr;
while x<=pgr do
begin
{ readln(x);}
 if x<>2 then begin  y:=(sin(2*3/w)*x);     {ИМХО, ошибка тут}
{ writeln(y:1:8);}
 putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
 x:=x+shag;
end;
readkey;
closegraph;
end.

заранее благодарен
премеч FP компилирует, а TP-нет.

Сообщение отредактировано: compiler - 22.02.2007 19:57