Помощь - Поиск - Пользователи - Календарь
Полная версия: Шахматная доска
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ludmilka
Народ, помогите пожалуйста! Вообще не знаю как делать, а сдавать завтра! Напишите пожалуйста программу, очень буду благодарна! give_rose.gif
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.


Кхмм, буковки с цифирками забыл. Ну, сама добавишь.
TarasBer
Ozzя, зачем флудфил? Для рисования закрашенного прямоугольника есть Bar.
Гость
Цитата(TarasBer @ 6.04.2007 12:16) *

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

А я помню? unsure.gif
Программа писана лет 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);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.