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

[sergey_180]

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

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

[volvo]

:no: Не пойдет... Приведи кусок кода (2-3 строки), где происходит ошибка, и типы всех переменных в ошибочном выражении, иначе получается опять гадание на кофейной гуще...

[sergey_180]

function ScreenY( y: integer ): integer;
begin
  ScreenY := round( GetMaxY / 2 ) - y;
end;
function ScaleX( x: real ): integer;
const
  MinX = 2 * 3.14159 / 33 * days; {вот тут и появляется ошибка}
  MaxX = 2 * 3.14159 / 28 * ( days + interval );
begin
  ScaleX := round( ( x - MinX ) / ( MaxX - MinX ) * GetMaxX );
end;

X-типа real
interval-константа(например interval = 30)

Сообщение отредактировано: volvo - 24.09.2005 16:00