Помогите составить в ку Бейсике снеговика и грозовик

0 голосов
93 просмотров

Помогите составить в ку Бейсике снеговика и грозовик


Информатика (12 баллов) | 93 просмотров
Дан 1 ответ
0 голосов

SCREEN 7
center = 50
radius = 10
qr = .017
FOR i = 1 TO 3
CIRCLE (50, center), radius, 15
center = center + radius * 2
radius = radius + 5
NEXT i
FOR i = -1 TO 1 STEP 2
LINE (50 + i * 10, 70)-(50 + i * 40, 70), 15
PSET (50 + i * 2, 45)
LINE (50, 50 + i * 2)-(60, 50), 12
NEXT i
CIRCLE (50, 50), 7, 15, 210 * qr, 330 * qr

(314 баллов)