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

Помогите составить в ку Бейсике снеговика и грозовик
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы