Затухающае колебание пружина

[gred]

Затухающие колебание пружины - сори за ошибки
Помогите исправить этот код

program sinus;
uses Crt, Graph;
{$I InitGr.inc}
const
  A = 1;         { амплитуда }
  F = 1000;      { частота }
  T = 1/F;       { период }
  M = 5;         { количество периодов }
  Xmax = M * T;  { наибольшее значение Х. Xmax=x2-x1=M*T-0=M*T }
  Ymax = 2;      { наибольшее значение Y. Ymax=y2-y1=1-(-1)=2 }
  cx = 10;       { Х-координата начала отсчёта }
  cy = 240;      { Y-координата начала отсчёта }
  sx = (640-cx) / Xmax;  { масштабирование по оси X }
  sy = (480-cy) / Ymax;  { масштабирование по оси Y }

{*** Преобразование матем. коор. X в граф. коор. X ***} function CoordX(X: Extended): Integer; var
  RezX: LongInt;
begin
  RezX := Trunc(X * sx) + cx;
  if RezX > $FFFF then
    RezX := Integer(RezX);
  if RezX < cx then
    RezX := cx
  else if RezX > 640 then
    RezX := 640;
  CoordX := RezX
end;

{*** Преобразование матем. коор. Y в граф. коор. Y ***} function CoordY(Y: Extended): Integer; var
  RezY: LongInt;
begin
  RezY := cy - Trunc(Y * sy);
  if RezY > $FFFF then
    RezY := Integer(RezY);
  if RezY < 0 then
    RezY := 0
  else if RezY > 480 then
    RezY := 480;
  CoordY := RezY
end;
{############################################################################}
var
  X,Y, step: Extended;
gd,gm:integer;
begin
InitGraph(gd,gm,'с\tp\bgi');
  graphInit;
  SetColor(13);
  MoveTo(cx, cy);
  step := Xmax / (640-cx);
  X := step;
  while X <= Xmax do
  begin
    { Y = A*sin(wt + fi);        w = 2*Pi/T = 2*Pi*F;        F = 1/T
      где: A - амплитуда; w - круговая частота; T - период; F - частота;
      wt + fi - фаза колебаний; fi - фаза в начальный момент времени (t=0) }
    Y := A*Sin(2*Pi*F*X);
    LineTo(CoordX(X), CoordY(Y));
    X := X + step
  end;
  SetColor(15);
  Line(cx,cy,       640,cy);
  Line(cx,0,        cx,480);
  repeat until KeyPressed;
  CloseGraph
end.

[puporev]

Первое, что бросилось в глаза.
var
X,Y, step: Extended;
gd,gm:integer;
begin
InitGraph(gd,gm,'d\tp\bgi');//создаем путь к файлу(у вас свой)
SetColor(13);
MoveTo(cx, cy);
step := Xmax / (640-cx);
X := step;
while X <= Xmax do
begin
{ Y = A*sin(wt + fi); w = 2*Pi/T = 2*Pi*F; F = 1/T
где: A - амплитуда; w - круговая частота; T - период; F - частота;
wt + fi - фаза колебаний; fi - фаза в начальный момент времени (t=0) }
Y := A*Sin(2*Pi*F*X);
LineTo(CoordX(X), CoordY(Y));
X := X + step
end;
SetColor(15);
Line(cx,cy, 640,cy);
Line(cx,0, cx,480);
repeat until KeyPressed;
CloseGraph
end.
Теги кода не поставил, потому что с ними не работают теги шрифта.

[gred]

RezX := Trunc(X * sx) + cx;

тут пишет ошибку

[puporev]

Попробуйте вместо Trunc(X * sx) + cx;
написать round(X * sx) + cx;

[pil69]

А какая необходимость X объявлять как Extended?

[gred]

А какой тип надо? если не Extended

[puporev]

Естественно Integer, т.к. в графике работают только целые числа, поскольку часть пиксела нельзя изобразить.