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

UptoLike

ВУЗ: 

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

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

Рубрика: 

203
end; {Procedure ... end}
Напишем процедуру вывода прямоугольника на экран:
{Показ на экране прямоугольника, задаваемого записью Rect типа TRect}
procedure ShowRect(Rect:TRect);
begin
With Rect do
begin
{рисуем рамку прямоугольника}
setcolor(ClBorder);
rectangle(Left,Top,Left+Width-1,Top+Height-1);
{в зависимости от типа фигуры выводим дополнительно:}
case fig of
FTFillRect: {заполненный прямоугольник}
begin
{делаем заливку прямоугольника}
setfillstyle(StyleFill,ClFill);
bar(Left+1,Top+1,Left+Width-2,Top+Height-2);
end;
FTTextInRect: {текст в прямоугольнике}
begin
{печатаем текст в прямоугольнике}
setcolor(ClText);
OutTextXY(Left+2,Top+2,Str);
end;
end;{case ... end}
end; {With ... end}
end; {Procedure ... end}
Теперь напишем фрагмент программы с вводом и выводом массива
вариантных записей:
var
r: array[1..10] of TRect;
n,i:Integer;
begin

Страницы