Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

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

Рекурсивные вычислительные процессы.

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

ФАЙЛЫ ЗАПИСЕЙ

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

Процедура 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.


Добавить комментарий

   ГлавнаяПаскальГрафика в ПаскальФункции GetX и GetY.