1. Список говнокодов пользователя KotoFey1ch

    Всего: 2

  2. 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)

  3. VisualBasic / Говнокод #9199

    −106

    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
    Turtle.Show()
Turtle.Move (200)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnLeft()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(200)

Turtle.PenUp()
Turtle.MoveTo(500, 0)
Turtle.MoveTo(500, 250)
Turtle.PenDown()
Turtle.Angle = 0
Turtle.Move(180)
Turtle.PenUp()
Turtle.Move(10)
Turtle.PenDown()
Turtle.Move(3)

    KotoFey1ch, 23 Января 2012

    Комментарии (19)