Question

Даю 50 баллов помогиье нарисовать в Qbasic гусиници и мышку и напишите координаты ! буду очень блогодарен !

Answer 1

SCREEN 7
PAINT (0, 0)
CIRCLE (50, 50), 20, 0
PAINT (50, 50), 2, 0
LINE (160, 60)-(180, 45), 0
LINE (180, 45)-(170, 65), 0
LINE (170, 65)-(160, 60), 0
PAINT (165, 60), 2, 0
FOR i = 1 TO 3
CIRCLE (35 + 20 * 2 * i, 75), 20, 0
PAINT (35 + 20 * 2 * i, 75), 2, 0
NEXT i
FOR i = -1 TO 1 STEP 2
CIRCLE (50 + i * 5, 45), 5, 0
PAINT (50 + i * 5, 45), 11, 0
PSET (50 + i * 5, 45), 0
NEXT i
LINE (40, 55)-(60, 60), 12, BF
LINE (48, 48)-(52, 52), 12, BF
LINE (29, 20)-(50, 32), 0
LINE (50, 32)-(70, 20), 0