Pascal 7.0 График функции и таблица, Ребят, очень нужна ваша помощь Опции

[DarkMoonSide]

Дали задание, не когда прежде не работала с графикой, почитала... стало страшно дали 4 дня на выполнение работы

Нужно построить график функции y=lg(x)
и рядом с графиком выводилась табличка
что то типа
X|Y
1 3
2 3
1 4
Несколько значений функции в точках Как когда то, в школе делали таблички к графикам.

И если не трудно, можно с комментариями, посмотрела что можно с помощью графики делать- понравилось
Выручайте

[volvo]

1) комментарии в основную программу добавлены...
2)

Вот функции построения осей координат? как можно добавить что бы график был со стрелочками, точнее как сделать так, что бы из конца линии, были 2 линии по диагонале, как > или <

Чуть-чуть изменить код... Я не стал править первоначальный вариант, напишу здесь:

Было:

  setcolor(lightgreen);
  line(CenterX, CenterY, getmaxx - 10, CenterY);
  line(CenterX, 10, CenterX, getmaxy - 10);

стало:

  setcolor(lightgreen);
  line(CenterX, CenterY, getmaxx - 10, CenterY);
  { здесь все просто: точка, к которой надо "прилепить" стрелочку - это (getmaxx-10, centery).
  устанавливаем граф. курсор в нее (moveto), и с помощью linerel чертим линию относительно
  этой точки на 5 пикселей левее и на 2 выше. А потом - то же самое, но ниже оси координат...
  Со второй стрелкой - по аналогии }
  moveto(getmaxx - 10, CenterY); linerel(-5,  2);
  moveto(getmaxx - 10, CenterY); linerel(-5, -2);

  line(CenterX, 10, CenterX, getmaxy - 10);
  moveto(CenterX, 10); linerel( 2, 5);
  moveto(CenterX, 10); linerel(-2, 5);

, и чуть ниже, было:

  outtextxy(TableWidth div 2, textheight('W') + 3,
            'X      |      Y');

стало:

  outtextxy(TableWidth div 2, textheight('W') + 3,
            'X      |      Y');
  { переходим чуть ниже точки, в которую указывает стрелка OX, и печатаем там название оси }
  outtextxy(getmaxx - 10, CenterY + 15, 'X');
  { переходим чуть правее точки, в которую указывает стрелка OY, и печатаем название }
  outtextxy(CenterX + 15, 10, 'Y');

что то не могу поймать координаты, криво пишет

Это ты о чем? Все нормально по-моему: