Меню сайта

Задача №2

Выполнениеграф построений.

uses graph,crt-

var gd,gm:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

LINE (150, 100,67,100)-

LINE (67, 100,102,68)-

LINE (102, 68,150,100)-

floodfill (100, 90,15)-

delay(2000)-

clearviewport-

bar(73, 49,141,109)-

delay(2000)-

clearviewport-

LINE (73, 49,103,79)-

LINE (103, 79,92,120)-

LINE (92, 120,50,120)-

LINE (50, 120,31,79)-

LINE (31, 79,73,49)-

floodfill (90, 90,15)-

delay(2000)-

clearviewport-

LINE (73, 49,111,49)-

LINE (111, 49,132,71)-

LINE (132, 71,111,93)-

LINE (111, 93,73,93)-

LINE (73, 93,52,71)-

LINE (52, 71,73,49)-

floodfill (100, 90,15)-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 23.11.12

Меню раздела
Блок