Подпрограмма рисования слона - QBasic
Формулировка задачи:
Составить подпрограмму рисования слона.
Решение задачи: «Подпрограмма рисования слона»
textual
Листинг программы
- 'AUTHOR=VELVET1545@MAIL.RU++89083857555
- 'CODENAME=WORK00B5.BAS
- 'USERNAME=SLONIC2
- 'MAKETIME=27052011/14.32
- 'REMAKETIME=01062011/15.00 [258 - 264]
- SCREEN 9'or 12
- I = 2
- 258 n8 = 8: VR = 0
- 259 var% = 1''or var=2 or luboi nomer cveta nprmr 7 or 8
- 260 ''registrbi palitrbi cerez portbi vvoda\vbivoda
- 261 OUT &H3C8, VR
- 262 OUT &H3C9, &HFE
- 263 OUT &H3C9, &H1F
- 264 OUT &H3C9, &H8F
- J: U$ = INKEY$
- CLS
- J = INT(RND * 444)
- K = INT(RND * 155)
- GOSUB DRWSLONIC
- SLEEP 1
- IF U$ = "" THEN GOTO J
- SLEEP 99
- SYSTEM
- DRWSLONIC:
- CIRCLE (61 + J, 87 + K), 87 - 36, I, 0, 6.28, 1
- PAINT (61 + J, 87 + K), n8, 2
- CIRCLE (118 + J, 69 + K), 67 - 31, I, 0, 6.28, 1
- PAINT (118 + J, 87 + K), 7, 2
- CIRCLE (152 + J, 67 + K), 67 - 31, I, 0, 6.28, 1
- PAINT (162 + J, 67 + K), n8, 2
- LINE (16 + J, 72 + K)-(8 + J, 82 + K), I
- LINE (8 + J, 82 + K)-(7 + J, 92 + K), I
- LINE (7 + J, 92 + K)-(2 + J, 101 + K), I
- FOR XX = 1 TO 8
- CIRCLE (171 + J, 57 + K), XX, 0, 0, 6.28, 1
- NEXT XX
- LINE (166 + J, 45 + K)-(174 + J, 46 + K), 1
- LINE (175 + J, 53 + K)-(173 + J, 63 + K), 1
- CIRCLE (161 + J, 100 + K), 20, I, 4.7, 1.6, 1
- CIRCLE (163 + J, 118 + K), 20, I, 1.6, 4.7, 1
- LINE (161 + J, 80 + K)-(161 + J, 138 + K), I
- PAINT (161 + 5 + J, 100 + 15 + K), 7, 2
- PAINT (163 - 5 + J, 118 - 15 + K), 7, 2
- CIRCLE (44 + J, 133 + K), 25, I, 0, 6.28, 1
- CIRCLE (99 + J, 130 + K), 25, I, 0, 6.28, 1
- PAINT (44 + 5 + J, 133 + 15 + K), 7, 2
- PAINT (99 - 5 + J, 130 + 15 + K), 7, 2
- CIRCLE (44 + J, 158 + K), 25, I, 6.1, 3.35, 1
- CIRCLE (99 + J, 158 + K), 25, I, 6.1, 3.35, 1
- LINE (20 + J, 163 + K)-(67 + J, 163 + K), I
- LINE (74 + J, 163 + K)-(122 + J, 163 + K), I
- PAINT (44 + J, 158 + 3 + K), n8, 2
- CIRCLE (99 + J, 158 + 3 + K), 1
- PAINT (99 + J, 158 + 3 + K), n8, 2
- RETURN
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д