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.
22 lines
313 B
Plaintext
22 lines
313 B
Plaintext
6 years ago
|
program ellipsegraph;
|
||
|
|
|
||
|
|
uses
|
||
|
|
crt,
|
||
|
|
Graph;
|
||
|
|
|
||
|
|
var
|
||
|
|
gdriver,
|
||
|
|
gmode,
|
||
|
|
xsize,
|
||
|
|
ysize : Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
DetectGraph(gdriver, gmode);
|
||
|
|
InitGraph(gdriver, gmode, '');
|
||
|
|
SetColor(green);
|
||
|
|
xsize := GetMaxX;
|
||
|
|
ysize := GetMaxY;
|
||
|
|
FillEllipse(Round(xsize/2), Round(ysize/2), 500, 100);
|
||
|
|
ReadKey;
|
||
|
|
CloseGraph;
|
||
|
|
end.
|