Тип данных String в Pascal.

Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.

Функции LENGTH и CONCAT.

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

Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

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

Оператор варианта CASE.

Иногда его называют также оператором выбора. Это оператор CASE, который является обобщением оператора IF и позволяет сделать выбор из произвольного числа имеющихся вариантов.

Спецификация процедуры.

Процедура представляет собой программу в миниатюре, являясь в свою очередь частью основной программы или другой процедуры. Синтаксис процедуры полностью повторяет синтаксис программы.

Процедура SetTextJustify используется для выравнивания текста относительно текущего указателя или относительно заданных координат.

 Использование процедуры SetTextJustify для выравнивания текста.





Program Graphika20;
Uses Crt, Graph;
var i:integer;
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;
setcolor(3);
settextstyle (7,0,4);
moveto (getmaxx div 2, getmaxy div 2);
settextjustify (1,1);
outtext ('pascal ');
settextjustify (2,1);
outtextxy (150,150,'pascal ');
readln;
closegraph
end.



В строке №20 устанавливаем цвет для выводимых символов.

В строке №21 устанавливаем шрифт текста, направление его вывода и величину букв.

В строке №22 перемещаем текущий указатель в центр экрана. Для этого указываем координаты: getmaxx div 2 (т.е. максимальная координата по оси X, деленная пополам) и getmaxy div 2 (т.е. максимальная координата по оси Y, деленная пополам). При разрешении экрана 1366?768 текущий указатель переместится в точку с координатами 683,384.

Cтрока №23. Записываем процедуру SetTextJustify. Эта процедура выравнивает текс относительно текущего указателя. Данная процедура имеет 2 параметра. Первый параметр определяет выравнивание текста по горизонтали (в нашем примере – 1). Второй параметр определяет выравнивание текста по вертикали (в нашем примере – 1). Оба этих параметра могут принимать 3 различных значения. В таблице снизу указаны значения параметров, для процедуры SetTextJustify.

Procedura SetTextJustify, parametrih.

Таким образом, текст, который выводится в строке №24, будет выровнен посередине экрана.

В строке №25 записываем процедуру SetTextJustify и указываем для нее параметры (2,1). Т.е. текст, который выводится в строке №26, будет располагаться левее текущего указателя при горизонтальном выравнивании и посередине текущего указателя при вертикальном выравнивании.

Строка №26. Выводим на экран текст. Этот текст имеет координаты 150,150. Т.е. первая буква текста должна вывестись в этих координатах. Однако, благодаря процедуре SetTextJustify, текст будет выведен правее точки с координатами 150,150.

Procedura SetTextJustify

После запуска программы, на экран выведется 2 слова. (На скриншоте снизу пересечение стрелочек определяют положение текущего указателя и положение текста относительно текущего указателя).

Procedura SetTextJustify.


Предыдущая статья:  Русские шрифты в графическом режиме.

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

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


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

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

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