1. VisualBasic / Говнокод #9200

    −107

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    GraphicsWindow.Width = 640
GraphicsWindow.Height = 480

GraphicsWindow.PenColor = "Yellow" 
For i = 0 To 250
  GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i )
EndFor

GraphicsWindow.PenColor = "Orange"
For i = 0 To 250 Step 10
  GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i)
EndFor

GraphicsWindow.BrushColor = "SteelBlue"
GraphicsWindow.FillRectangle (0,0, 640 , 230)
GraphicsWindow.BrushColor = "lightGreen"
GraphicsWindow.FillTriangle(0, 480, 0, 230, 250, 230)
GraphicsWindow.FillTriangle(640, 480, 640, 230, 390, 230)

GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.FillEllipse (10, 30, 50, 50)  

GraphicsWindow.PenColor = "Yellow"
Turtle.Show()
y = 0
For i = 0 To 360 Step 30
Turtle.X =35
Turtle.Y = 55
Turtle.Angle = i
Turtle.PenUp()
Turtle.Move(25)
Turtle.PenDown()
If y = 1 Then
  Turtle.Move(10)
  y = 0
else  
  Turtle.Move(20)
  y = 1
endif
endfor

    Запостил: KotoFey1ch, 23 Января 2012

    Комментарии (4) RSS

    Добавить комментарий