Подпрограмма рисования слона - QBasic

Узнай цену своей работы

Формулировка задачи:

Составить подпрограмму рисования слона.

Решение задачи: «Подпрограмма рисования слона»

textual
Листинг программы
  1. 'AUTHOR=VELVET1545@MAIL.RU++89083857555
  2. 'CODENAME=WORK00B5.BAS
  3. 'USERNAME=SLONIC2
  4. 'MAKETIME=27052011/14.32
  5. 'REMAKETIME=01062011/15.00 [258 - 264]
  6.  
  7. SCREEN 9'or 12
  8. I = 2
  9.  
  10. 258 n8 = 8: VR = 0
  11. 259 var% = 1''or var=2 or luboi nomer cveta nprmr 7 or 8
  12. 260 ''registrbi palitrbi cerez portbi vvoda\vbivoda
  13. 261 OUT &H3C8, VR
  14. 262 OUT &H3C9, &HFE
  15. 263 OUT &H3C9, &H1F
  16. 264 OUT &H3C9, &H8F
  17.  
  18. J: U$ = INKEY$
  19. CLS
  20. J = INT(RND * 444)
  21. K = INT(RND * 155)
  22. GOSUB DRWSLONIC
  23. SLEEP 1
  24. IF U$ = "" THEN GOTO J
  25.  
  26.  
  27. SLEEP 99
  28. SYSTEM
  29.  
  30. DRWSLONIC:
  31.  
  32. CIRCLE (61 + J, 87 + K), 87 - 36, I, 0, 6.28, 1
  33. PAINT (61 + J, 87 + K), n8, 2
  34.  
  35. CIRCLE (118 + J, 69 + K), 67 - 31, I, 0, 6.28, 1
  36. PAINT (118 + J, 87 + K), 7, 2
  37.  
  38. CIRCLE (152 + J, 67 + K), 67 - 31, I, 0, 6.28, 1
  39. PAINT (162 + J, 67 + K), n8, 2
  40.  
  41. LINE (16 + J, 72 + K)-(8 + J, 82 + K), I
  42. LINE (8 + J, 82 + K)-(7 + J, 92 + K), I
  43. LINE (7 + J, 92 + K)-(2 + J, 101 + K), I
  44.  
  45. FOR XX = 1 TO 8
  46. CIRCLE (171 + J, 57 + K), XX, 0, 0, 6.28, 1
  47. NEXT XX
  48.  
  49. LINE (166 + J, 45 + K)-(174 + J, 46 + K), 1
  50. LINE (175 + J, 53 + K)-(173 + J, 63 + K), 1
  51.  
  52. CIRCLE (161 + J, 100 + K), 20, I, 4.7, 1.6, 1
  53. CIRCLE (163 + J, 118 + K), 20, I, 1.6, 4.7, 1
  54. LINE (161 + J, 80 + K)-(161 + J, 138 + K), I
  55. PAINT (161 + 5 + J, 100 + 15 + K), 7, 2
  56. PAINT (163 - 5 + J, 118 - 15 + K), 7, 2
  57.  
  58.  
  59. CIRCLE (44 + J, 133 + K), 25, I, 0, 6.28, 1
  60. CIRCLE (99 + J, 130 + K), 25, I, 0, 6.28, 1
  61. PAINT (44 + 5 + J, 133 + 15 + K), 7, 2
  62. PAINT (99 - 5 + J, 130 + 15 + K), 7, 2
  63.  
  64. CIRCLE (44 + J, 158 + K), 25, I, 6.1, 3.35, 1
  65. CIRCLE (99 + J, 158 + K), 25, I, 6.1, 3.35, 1
  66. LINE (20 + J, 163 + K)-(67 + J, 163 + K), I
  67. LINE (74 + J, 163 + K)-(122 + J, 163 + K), I
  68.  
  69. PAINT (44 + J, 158 + 3 + K), n8, 2
  70. CIRCLE (99 + J, 158 + 3 + K), 1
  71. PAINT (99 + J, 158 + 3 + K), n8, 2
  72.  
  73. RETURN

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы