Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

Div, Mod, сложение, вычитание в Pascal.

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

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

Разветвляющийся вычислительный процесс.

Если вычислительный процесс зависит от определенных условий и реализуется по одному из нескольких заранее предусмотренных направлений, он называется разветвляющимся вычислительным процессом, а каждое ...

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

Процедура MoveRel (x,y) перемещает текущий указатель на расстояние x и y.
Процедура OutText (‘’) выводит текст на экран в графическом режиме. Текст заключается в кавычки и круглые скобки.

 Процедура MoveRel и OutText.





Program Graphika6;
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(100,100);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
ReadLn;
CloseGraph;
End.



В строке №19 ставим текущий указатель в точке с координатами (100,100).

В строке №20 записываем процедуру OutText. Эта процедура выводит на экран текст, который указывается в скобках и кавычках после слова OutText. На экране текст будет выводиться в том месте, где установлен текущий указатель. Причем текущий указатель перемещается на конец текста. Итак, в строке №20 выводим текст («PASCAL»). Соответственно текст у нас выводится на экране с координатами (100,100).

В строке №21 записываем процедуру MoveRel(200,200). Теперь текущий указатель переместится на 200 пикселей по оси X и на 200 пикселей по оси Y т.е. в точку (300,300).

В строке №22 выводим тот же текст. Теперь он выведется на экране в точке с координатами (300,300).
То же самое происходит в строках №23 и №24. Текст выводится уже с координатами (500,500).

moverel outtext

moverel outtext.


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

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

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


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

Защитный код
Обновить

   ГлавнаяПаскальГрафика в ПаскальГрафика в Паскаль.