Даю 50 баллов помогиье нарисовать в Qbasic гусиници и мышку и напишите координаты ! буду очень блогодарен !
Answers & Comments
arkadiy3
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
Answers & Comments
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