You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
515 B
Plaintext
31 lines
515 B
Plaintext
6 years ago
|
program points;
|
||
|
|
|
||
|
|
uses
|
||
|
|
crt,
|
||
|
|
Graph;
|
||
|
|
|
||
|
|
var
|
||
|
|
gdriver,
|
||
|
|
gmode,
|
||
|
|
xsize,
|
||
|
|
ysize,
|
||
|
|
width,
|
||
|
|
i, j, k : Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
DetectGraph(gdriver, gmode);
|
||
|
|
InitGraph(gdriver, gmode, '');
|
||
|
|
SetColor(green);
|
||
|
|
xsize := GetMaxX;
|
||
|
|
ysize := GetMaxY;
|
||
|
|
width := Round(xsize/GetMaxColor());
|
||
|
|
MoveTo(Round(xsize/2), Round(ysize/2));
|
||
|
|
for i := 0 to Round(xsize/width) do
|
||
|
|
for k := 0 to width do
|
||
|
|
for j := 0 to ysize do
|
||
|
|
begin
|
||
|
|
PutPixel((i*width)+k, j, i);
|
||
|
|
end;
|
||
|
|
ReadKey();
|
||
|
|
CloseGraph();
|
||
|
|
end.
|