Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program CircleCube;
- uses graph,crt;
- var
- gd,gm,xmid,ymid,rad : integer;
- const
- ha = 25*10000;
- begin
- clrscr;
- CursorOFF;
- gd:=detect;
- initGraph(gd,gm,'');
- cleardevice;
- rad:=round(sqrt(ha)) div 2;
- xmid:=GetMaxX div 2;
- ymid:=GetMaxY div 2;
- SetFillStyle(1,10);
- Bar(xmid-rad,ymid-rad,xmid+rad,ymid+rad);
- SetColor(4);
- SetFillStyle(1,4);
- FillEllipse(xmid,ymid,rad,rad);
- writeln('Press any key to Exit...');
- readln;
- closeGraph;
- CursorON;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement