GotoXY в Pascal.

Процедура GotoXY используется в Pascal для перевода курсора в нужную позицию на экране. Для этой процедуры указываются координаты. После указания процедуры GotoXY в коде программы сообщение будет выводиться на экран в тех координатах, которые мы ...

Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Логические операции с целыми числами.

Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.

Циклы и массивы

Линейные процессы вычислений.

Простейший алгоритм представляет собой цепочку блоков (операторов) от начального блока до конечного. Каждый блок должен быть выполнен один единственный раз. Это линейный алгоритм. Он отражает ...

Стандартные функции в Паскаль.

Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с помощью встроенных (иногда говорят — стандартных) функций и процедур.

Процедура MoveTo (x,y) служит для перемещения текущего указателя в точку с координатами (x,y). Процедура LineTo (x,y) рисует линию, в которой координатами начала линии будут координаты текущего указателя, а координатами конца – координаты (x,y).

 Процедуры MoveTo и LineTo.




Program Graphika4;
Uses Graph;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
MoveTo(200, 200);
LineTo(GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.



В строке №3 - №16 записываем шаблонную процедуру запуска графического режима.

В строке №19 записываем процедуру MoveTo и указываем для нее координаты (200,200). Эта процедура перемещает текущий указатель в точку с заданными координатами. По умолчанию текущий указатель стоит в точке с координатами (0,0). При использовании процедуры MoveTo текущий указатель перемещается в точку с координатами (200, 200). Этот указатель – то же самое, что курсор в текстовом режиме, только курсор мы видим, а указатель – нет.

В строке №20 записываем процедуру LineTo и указываем для нее максимальные координаты. Таким образом, у нас выведется на экран линия, у которой начальными координатами будут координаты текущего указателя (200,200), а координатами конца будут координаты (GetMaxX, GetMaxY). Координаты (GetMaxX, GetMaxY) определяют максимальные координаты для данного монитора. Например, если у Вас монитор 1366?768, то GetMaxX будет равен 1366, а GetMaxY – 768.

move to line to

move to line to.


Дополнение к материалу.

  • Рисование линий с помощью процедуры LineTo не является правильным с точки зрения грамотного программирования. Для рисования линий лучше использовать процедуру Line. Процедуру LineTo целесообразно использовать, когда координаты начала линии совпадают с координатами текущего указателя.
  • Если при использовании процедуры LineTo не использовать процедуру MoveTo, то начальными координатами линии будут координаты (0,0).

Предыдущая статья : Функции GetmaxX и GetmaxY.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура LineRel.


   ГлавнаяПаскальГрафика в ПаскальПроцедуры MoveTo и LineTo.