Small BasicНУжно чтобы при изменении n=9 на n=10 (с нечётного на чётное) осталось шахматное поле а не становились одни полосыGraphicsWindow.Width=800GraphicsWindow.Height=800n=9raz= math.Floor(GraphicsWindow.Width /n )GraphicsWindow.Show()GraphicsWindow.BrushColor="#000000"For x=0 To n-1 step 1 For y=0 to n-1 Step 1 if GraphicsWindow.BrushColor="#FF0000" Then GraphicsWindow.BrushColor="#000000" Else GraphicsWindow.Brushcolor="#FF0000" EndIf GraphicsWindow.FillRectangle(x*raz,y*raz,raz-2,raz-2)endfor EndFor
Small BasicНУжно чтобы при изменении n=9 на n=10 (с нечётного на чётное) осталось шахматное поле а не становились одни полосыGraphicsWindow.Width=800GraphicsWindow.Height=800n=9raz= math.Floor(GraphicsWindow.Width /n )GraphicsWindow.Show()GraphicsWindow.BrushColor="#000000"For x=0 To n-1 step 1 For y=0 to n-1 Step 1 if GraphicsWindow.BrushColor="#FF0000" Then GraphicsWindow.BrushColor="#000000" Else GraphicsWindow.Brushcolor="#FF0000" EndIf GraphicsWindow.FillRectangle(x*raz,y*raz,raz-2,raz-2)endfor EndFor
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Для того чтобы при изменении значения переменной n с 9 на 10 оставалось шахматное поле, вам нужно изменить размер ячейки разделения (раз) в зависимости от значения n. Попробуйте следующий код:
GraphicsWindow.Width = 800GraphicsWindow.Height = 800
n = 10
raz = Math.Floor(GraphicsWindow.Width / n)
GraphicsWindow.Show()
GraphicsWindow.BrushColor = "#000000"
For x = 0 To n - 1 Step 1
For y = 0 To n - 1 Step 1
if (x + y) % 2 = 0 Then
GraphicsWindow.BrushColor = "#FF0000"
Else
GraphicsWindow.BrushColor = "#000000"
EndIf
GraphicsWindow.FillRectangle(x * raz, y * raz, raz - 2, raz - 2)
EndFor
EndFor
Этот код будет создавать шахматное поле с красными и черными клетками, даже если значение переменной n изменится с 9 на 10.