Скачиваний:
288
Добавлен:
04.03.2014
Размер:
745 б
Скачать
program f1;
uses crt,
Graph;
const
Triangle : array[1..4] of PointType =
((x: 50; y: 100),
(x: 100; y: 100),
(x: 150; y: 150),
(x: 50; y: 100));
var
Gd, Gm,i : Integer;
begin
Gd := Detect; InitGraph(Gd, Gm, 'e:\pas');
if GraphResult <> grOk then Halt(1);

DrawPoly(SizeOf(Triangle) div
SizeOf(PointType), Triangle);
setwritemode(xorput);
repeat
for i:=0 to 20 do
if not keypressed then
begin

ReadLn;
CloseGraph;
end.


uses graph;
var gd,gm,d,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5:integer;
begin
gm:=detect;
initgraph(gm,gd,'e:\pas');
drawpoly(5,x1);

line(25,25,700,700);
readln;
closegraph;readln;

end.
Соседние файлы в папке Alex