Шахматная доска, Нарисовать шахматную доску Опции

[Ludmilka]

Народ, помогите пожалуйста! Вообще не знаю как делать, а сдавать завтра! Напишите пожалуйста программу, очень буду благодарна!

[Ozzя]

program Chess;
uses
  Graph;
const
  Size = 20;
var
  grDriver, grMode, x, y: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, 'c:/bp/bgi');
  SetFillStyle(SolidFill, Blue);
  FloodFill(1, 1, Black);
  SetColor(Red);
  for y := 1 to 8 do
    for x := 1 to 8 do begin
      if Odd(x + y) then
        SetFillStyle(SolidFill, White)
      else
        SetFillStyle(SolidFill, Black);
      Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
      FloodFill(x * Size + 1, y * Size + 1, Red);
    end;
  ReadLn;
  CloseGraph;
end.

Кхмм, буковки с цифирками забыл. Ну, сама добавишь.

Сообщение отредактировано: Ozzя - 6.04.2007 7:20

[TarasBer]

Ozzя, зачем флудфил? Для рисования закрашенного прямоугольника есть Bar.

[Гость]

Ozzя, зачем флудфил? Для рисования закрашенного прямоугольника есть Bar.

А я помню?
Программа писана лет 15 назад
Ну, заменить

Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
FloodFill(x * Size + 1, y * Size + 1, Red);

На

Bar(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);