Строковые константы в Pascal.

В качестве значения строковой константы может выступать любая последовательность символов. Эта последовательность заключается в апострофы. Строковая константа отличается от символьной константы тем, что здесь в качестве значения константы можно ...

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

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

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

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

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

Алфавит языка Паскаль.

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

Вложенный арифметический цикл.

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

Процедура SetUserCharSize используется для изменения величины символов в соответствии с заданными пропорциями. Данная процедура может применяться только к векторным шрифтам.  Увеличение или уменьшение размеров символов проводится по отношению к тем размерам, которые заданы в процедуре SetTextStyle.

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




Program Graphika21;
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(3,0,4);
OutText('Pascal ');
SetUserCharSize(3, 1, 1, 1);
OutText('Pascal ');
SetUserCharSize(1, 2, 1, 1);
OutText('Pascal ');
SetUserCharSize(1, 1, 3, 1);
OutText('Pascal ');
SetUserCharSize(1, 1, 1, 2);
OutText('Pascal ');
readln;
closegraph
end.



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

В строке №22 выводим на экран сообщение (слово «pascal»).

В строке №23 записываем процедуру SetUserCharSize. Данная процедура изменяет размер букв в соответствии с заданными пропорциями. Данная процедура имеет 4 параметра. Первые 2 параметра определяют изменение величины текста по горизонтали. Например, если нам нужно увеличить текст по горизонтали  в 3 раза, то мы записываем первые 2 параметра так: 3,1 (увеличиваем текст 3 к 1). Третий и четвертый параметры определяют изменение величины текста по вертикали. В нашем примере эти параметры имеют значение 1,1. Т.е. текст не будет изменяться по вертикали. Выводим этот текст в строке №24.

В строке №25 мы уменьшаем текст по горизонтали в 2 раза. Для этого указываем в качестве первых 2-х параметров 1,2.  3-й и 4-й параметр имеют значения 1,1, т.е. текст не будет изменяться по вертикали. Выводим этот текст в строке №26.

В строке №27 увеличиваем текст по вертикали в 3 раза. Для этого указываем в качестве 3-его и 4-ого параметров значения 3,1. Первые 2 параметра имеют значения 1,1, т.е. величина текста не изменяется по горизонтали. Выводим этот текст в строке №28.

В строке №29 уменьшаем текст по вертикали в 2 раза, указав значения 1,2 в качестве 3-его и 4-го параметров. Выводим текст в строке №30.

SetUserCharSize.

SetUserCharSize..


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

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

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


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

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

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