SaveText.Ru

аааааа
  1. program dom;
  2. Uses GraphABC;
  3. BEGIN
  4. SetWindowWidth(800);    
  5. SetWindowHeight(600);    
  6. SetPenWidth(3);          
  7. Rectangle(100, 300, 600,600);
  8. SetPenColor(clYellow);
  9. SetBrushColor(clBlue);      
  10. FillRect(100, 300,600,600);
  11. SetBrushColor(clWhite);      
  12. rectangle(300,400,400,500);
  13. Line(300,450,400,450);      
  14. Line(350,400,350,500);      
  15. SetPenColor(clBlack);
  16. Line(100,300,200,150);      
  17. Line(500,150,600,300);      
  18. Line(500,150,200,150);      
  19. FloodFill(400,200,clRed);
  20. Rectangle(750, 600, 600,350);
  21. FloodFill(700,400,clYellow);
  22. Circle(720,470, 15);
  23. FloodFill(720,470,clBlack);
  24. END.

Share with your friends:

Распечатать