Курсовая работа: Приложения технологии языка программирования Паскаль в прикладной механике

Заметим, что функции Ord, Succ и Pred могут применяться к любым порядковым типам, и, в частности, к ограниченным.

Для вывода текста на экран используются две процедуры:

1. OutText(s: string). Эта процедура выводит строку s начиная с текущей позиции, то есть левый верхний угол выводимой строки находится в текущей позиции (по умолчанию это так). Текущая позиция задаётся, например, с помощью MoveTo .

2. OutTextXY ( x , y : integer ; s : string ). Используется для вывода строки в конкретной позиции.

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

Пример:

var r: integer;

s: string;

Str(r,s);

OutTextXY(100,200,’ Результат =’+s);

Турбо Паскаль позволяет использовать несколько различных шрифтов для вывода текста. Кроме того, можно менять направление вывода текста, а также размер символов. В этих целях используется процедура SetTextStyle(Font, Direction, CharSize: word ). Перечислим возможные константы и значения для параметров этой процедуры.

Font (шрифт):

DefaultFont (шрифт 8x8 (по умолчанию)

TriplexFont (полужирный шрифт);

SmallFont (тонкий шрифт);

SansSerifFont (шрифт без засечек);

GothicFont (готический шрифт);

Direction (ориентация и направление вывода символов):

0 (привычный вывод слева направо

1 (снизу вверх (надпись «положена на бок»)

2 (слева направо, но «лежачими» буквами.

Size (размер шрифта (целые числа от 0 до 10).

Другая возможность при работе с текстом (это выравнивание его относительно задаваемых координат вывода. Для этого используется процедура SetTextJustify(horiz,wert: word). Horiz указывет как текст расположен относительно заданной позиции по горизонтали, а vert (по вертикали. Возможные константы:

для horiz:

LeftText (указанная позиция является левым краем строки);

CenterText (позиция является серединой выводимой строки);

RightText (правым краем строки);

для vert:

BottomText (позиция находится на нижнем крае изображения);