Помогите исправить прогу так чтобы препода удовлетворяла)))

[812]

Вобщем суть в том, что написал я прогу для построения графика заданной функции...Но, балбесина, не учёл то, что на осях координат могут отображаться не только целочисленные значения, в завиимости от Xmin,Xmax и dX...
Помогите пожалуйста исправить прогу так, чтобы она показывала на осях ВСЕ необходимые значения... (я просто не могу сообразить как правильно убрать Round(...))
Код проги рилагается.

[puporev]

Шутки шутить изволите. Если бы эту прогу написали вы, то глупости не спрашивали бы.

[alexBlack]

Сообщение от 812

Вобщем суть в том, что написал я прогу для построения графика заданной функции...Но, балбесина, не учёл то, что на осях координат могут отображаться не только целочисленные значения, в завиимости от Xmin,Xmax и dX...
Помогите пожалуйста исправить прогу так, чтобы она показывала на осях ВСЕ необходимые значения... (я просто не могу сообразить как правильно убрать Round(...))
Код проги рилагается.

Непонятно, в чем проблема. Вот Ваш код, который выводит сетку значений по X:

   For i:= Round(Xmin) to Round(Xmax) do begin
      Xd:=Xdmin+Round(Mkx*(i-Xmin));
      MoveTo(Xd,Y0-5);
      LineTo(Xd,Y0+5);    //Auaia eii?aeiao ia ine IO
      TextOut(Xd-3,Y0+5,IntToStr(i))
   end;

меняем его на такой:

   delta := dx*3;
   id := xMin;
   while id <= xMax do begin
      Xd := Xdmin+round(Mkx*(id-Xmin));
      MoveTo(Xd,Y0-5);
      LineTo(Xd,Y0+5);    //Auaia eii?aeiao ia ine I
      TextOut(Xd-3,Y0+5,floatToStr(id));
      id := id + delta;
   end;

delta, id : double;

Только значение delta нужно вычислять в зависимости от xMin, xMax и dx,
чтобы сетка была не слишком частой.

[812]

Спасибо огромное!!!Ток сейчас понял, что очень сильно тупил...