Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. program CircleCube;
  2.  
  3. uses graph,crt;
  4.  
  5. var
  6. gd,gm,xmid,ymid,rad : integer;
  7.  
  8. const
  9. ha = 25*10000;
  10.  
  11. begin
  12. clrscr;
  13. CursorOFF;
  14. gd:=detect;
  15. initGraph(gd,gm,'');
  16. cleardevice;
  17.  
  18. rad:=round(sqrt(ha)) div 2;
  19. xmid:=GetMaxX div 2;
  20. ymid:=GetMaxY div 2;
  21.  
  22. SetFillStyle(1,10);
  23. Bar(xmid-rad,ymid-rad,xmid+rad,ymid+rad);
  24.  
  25. SetColor(4);
  26. SetFillStyle(1,4);
  27. FillEllipse(xmid,ymid,rad,rad);
  28.  
  29. writeln('Press any key to Exit...');
  30. readln;
  31. closeGraph;
  32. CursorON;
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement