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

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

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Ветвления в Pascal.

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

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

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

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

Структурное программирование

Самое главное в программировании - это научиться писать четкие, логические и структурированные программы.

• Используйте осмысленные имена для переменных, процедур и функций.

• Используйте отступы ...

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


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

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

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