Алгоритмы и программы. Афанасьева Т. В - 197 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

197
line(10,10,10,470); {вычерчивет границы рамки }
line(10,470,630,470); {вычерчивет границы рамки }
line(30,30,610,30); {вычерчивет границы рамки }
line(30,460,610,460); {вычерчивет границы рамки }
line(30,460,610,460); {вычерчивет границы рамки }
line(30,30,30,460); {вычерчивет границы рамки }
line(610,30,610,460); {вычерчивет границы рамки }
setfillstyle(9,7);
floodfill(20,25,15);
setlinestyle(0,0,1);
rectangle(45,45,595,445); {построение прямоугольника}
setfillstyle(1,8); {задает стандартный орнамент и цвет
заполнения фигур}
floodfill(85,34,15); {Закрашивает область,ограниченную
непрерывной линией,}
setfillpattern(p,15); {текущим орнаментом и цветом заполнения}
bar(45,45,595,445); {построение прямоугольника}
setcolor(12); {установка
цвета}
settextstyle(1,0,12); {установка шрифта}
outtextxy(55,170,'Pmd–11'); {вывод текста}
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(150,435,'Procedure SetFillPattern'); {вывод текста}
READLN;
end.
Пример вывода текста на экран
{Процедура SetTextStyle}
uses graph,crt,font;
var
driver,mode:integer;
c,g,r:byte;
k:char;
s:string;
begin
driver:=vga; {драйвер}
mode:=vgahi; {режим графики}
initgraph(driver,mode,''); {инициализация графики}
if graphresult<>0 then {проверка инициализации графики}
halt(1); {прекращение выполнения программы}
settextstyle(4,0,2);
setcolor(14); {задание цвета}

Страницы