Основы программирования на языке Turbo Pascal. Беляева И.В. - 201 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

201
FTTextInRect {текст в прямоугольнике}
);
Для определения полей нашей записи будем использовать тип TColor,
который определим так:
TColor = 0..15; {Цвет}
Теперь создадим тип нашей записи:
TRect = record {Запись, хранящая информацию о прямоугольнике}
{Фиксированная часть записи}
Left,Top,Width,Height:Word; {координаты прямоугольника}
ClBorder:TColor; {Цвет рамки}
{Вариантная часть записи}
case fig:FigureType of {тип прямоугольника – поле-признак}
{ниже перечислены три альтернативные группы полей}
FTRect: (); {пустой прямоугольник не имеет
дополнительных полей}
FTFillRect: {заполненный прямоугольник имеет
два дополнительных поля}
(ClFill:TColor; {цвет заполнения}
StyleFill:Byte {стиль заполнения}
);
FTTextInRect: {текст в
прямоугольнике имеет
два дополнительных поля}
(ClText:TColor; {цвет текста}
Str:String[20] {текст}
);
end;
Напишем процедуру ввода вариантной записи с клавиатуры.
{Чтение записи Rect типа TRect с клавиатуры}
procedure ReadRect(var Rect:TRect);
var
case_type :Byte; {переменная для выбора типа}
begin
With Rect do

Страницы