графики для биоритмов Опции

[sergey_180]

Перенесено из форума FAQ

помогите , пожалуйста, дополнить программу по определению биоритмов(из учебника Фаронова). Нужно графически показать поведение 3-х синусоид, каждая из которых соответствует определенному биоритму , на заданном интервале. Обязательно нужна легенда. Зараннее спасибо

[volvo]

function ScaleX( x: real ): integer;
const
  MinX = 2 * 3.14159 / 33 * days;(вот тут и появляется ошибка)

Заметь, ты пытаешься изменить значение константы !!! Не даст тебе Паскаль этого сделать... Одно дело, когда ты пишешь:

Const
  MinX = 180 * Pi; 

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

function ScaleX( x: real ): integer;
Var MinX, MaxX: Real; { определяешь как переменные }
begin
  { и сначала вычисляешь... }
  MinX = 2 * 3.14159 / 33 * days;  { ошибки быть НЕ должно... }
  MaxX = 2 * 3.14159 / 28 * ( days + interval );

  { ... а потом используешь }
  ScaleX := round( ( x - MinX ) / ( MaxX - MinX ) * GetMaxX );
end;