Предмет: Информатика,
автор: Жозефина12
qbasic написать программу много четырёхугольников
Ответы
Автор ответа:
0
SCREEN 7
h = 10
FOR k = 1 TO 10
x1 = 160 - 10*k
x2 = 160 + 10*k
y1 = 40 + h*k
y2 = y1 + h
LINE (x1, y1)-( x2, y2), 1, B
NEXT k
h = 10
FOR k = 1 TO 10
x1 = 160 - 10*k
x2 = 160 + 10*k
y1 = 40 + h*k
y2 = y1 + h
LINE (x1, y1)-( x2, y2), 1, B
NEXT k
Похожие вопросы
Предмет: Немецкий язык,
автор: Аноним
Предмет: Биология,
автор: Аноним
Предмет: Английский язык,
автор: murashkinaevelina
Предмет: Обществознание,
автор: belozerova97
Предмет: Математика,
автор: katrine2341