Логические операции с целыми числами.

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

Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

Использование Var, Integer, Readln.

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

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

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Программирование циклов. Оператор безусловного перехода.

Цикл — это последовательность операторов, которая может выполняться более одного раза. В языке Паскаль разработано три механизма для конструирования циклов, использующих операторы FOR, WHILE, REPEAT.

...

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


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

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

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