Вывести на экран квадратные окна 8х8 в виде шахматной доски. Каждое нажатие клавиши клавиатуры вызывает смену цвета окон

[zzz6]

Вывести на экран квадратные окна 8х8 в виде шахматной доски. Каждое нажатие клавиши клавиатуры вызывает смену цвета окон.
C графикой всегда туго.. помогите..

[l1pton17]

какой язык программирования и какая среда?

[zzz6]

Сообщение от l1pton17

какой язык программирования и какая среда?

Паскаль АBC

[Serge_Bliznykov]

квадратные окна 8х8 в виде шахматной доски.

А что такое "квадратные окна"?! как могут быть окна в виде шахматной доски?!
и в чём размер 8x8 - в пикселях? не маловато будет?

p.s. либо растолкуйте, что Вам надо, либо, хотя бы, эскиз сделайте...


_____________________
рискну интуитивно угадать, Вам что-то такое нужно?

uses CRT, GraphABC;
const n = 22;
var i, j : integer;
  Delta : integer;
  ColorEmpty, ColorFill : integer;
  Colors: array [1..n] of integer;
  key : char;
begin
  SetPenStyle(psClear);
  Colors[1]:=clWhite;
  Colors[2]:=clLightGray;
  Colors[3]:=clGray;
  Colors[4]:=clDarkGray;
  Colors[5]:=clBlack;
  Colors[6]:=clRed;
  Colors[7]:=clGreen;
  Colors[8]:=clBlue;
  Colors[9]:=clYellow;
  Colors[10]:=clAqua;
  Colors[11]:=clFuchsia;
  Colors[12]:=clPurple;
  Colors[13]:=clBrown;
  Colors[14]:=clMaroon;
  Colors[15]:=clMoneyGreen;
  Colors[16]:=clSkyBlue;
  Colors[17]:=clCream;
  Colors[18]:=clOlive;
  Colors[19]:=clTeal;
  Colors[20]:=clLime;
  Colors[21]:=clSilver;
  Colors[22]:=clNavy;

  Delta :=  WindowHeight div 8;
  SetWindowSize(Delta * 8, Delta * 8);

  ColorEmpty := clWhite;
  ColorFill := clBlack;
  SetBrushStyle( bsSolid);
  Randomize;

  repeat
    ClearWindow;
    for i := 0 to 7 do
      for j:=0 to 7 do begin
        if odd(i+j)
          then SetBrushColor( ColorFill )
          else SetBrushColor( ColorEmpty );
       Rectangle(j*Delta,i*Delta,(j+1)*Delta,(i+1)*Delta);
    end;
    key := Readkey;
    if key<>#27 then begin
      ColorFill := Colors[Random(22)+1];
      repeat
         ColorEmpty := Colors[Random(22)+1];
      until ColorEmpty <> ColorFill;
    end;
  until key = #27;

end.

[zzz6]

Сообщение от Serge_Bliznykov

А что такое "квадратные окна"?! как могут быть окна в виде шахматной доски?!
и в чём размер 8x8 - в пикселях? не маловато будет?

p.s. либо растолкуйте, что Вам надо, либо, хотя бы, эскиз сделайте...


_____________________
рискну интуитивно угадать, Вам что-то такое нужно?

uses CRT, GraphABC;
.....
  until key = #27;
end.

то что надо было...
вот еще один вариант

program fff;
uses crt,graphABC;
const n=7;
procedure Kletka(x,y,a,c:integer);
begin
setpencolor(c);
rectangle(x,y,x+a,y+a);
floodfill(x+5,y+5,c);
end;
var h,i,j,c,r,g,b:integer;
    s:char;
begin
hidecursor;
h:=50;
setwindowsize(8*h,9*h);
textout(3*h,20,'Выход Esc');
r:=80; g:=160; c:=240;
repeat
for i:=0 to n do
for j:=0 to n do
 begin
  c:=RGB(random(r)-r div 2,random(g)-g div 2,random(b)-b div 2);
  Kletka(i*h,j*h+h,h,c);
 end;
 s:=readkey;
 if s=#27 then exit
 else
  begin
   r:=r+20;
   g:=g+20;
   b:=b+20;
  end;
until s=#27;
end.

________
1) Код нужно ОБЯЗАТЕЛЬНО оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) старайтесь избегать излишнего цитирования! Просьба удалять лишний (не влиящий на ваш ответ) текст из цитируемого вами сообщения!

Модератор.

[Serge_Bliznykov]

ну, не знаю, что-то доска, покрытая квадратами разного цвета не ассоциируется у меня именно с шахматной доской (как в моём примере). Впрочем, хозяин - барин, лишь бы Вам (и вашему преподавателю) это нравилось

[An1ka]

Сообщение от Serge_Bliznykov

А что такое "квадратные окна"?!

Наверное, в виде квадрата, когда ширина окна равна высоте