Шахматная доска.

@vadim77 · Регистрация: 24.08.2010

Студворк — интернет-сервис помощи студентам

Написать программу, которая выводит на экран изображение шахматной доски.

@Puporev · 27.08.2010, 15:36

Вот по простому...

Pascal

uses crt,graph;
{рисование одной клетки}
procedure Kletka(x1,y1,c:integer;d:integer);
begin
Setcolor(c);
rectangle(x1,y1,x1+d,y1+d);
Setfillstyle(1,c);
Bar(x1,y1,x1+d,y1+d);
end;
var gd,gm,x1,y1,x2,y2,d1,i,j:integer;
begin
initgraph(gd,gm,'');
d1:=round((getmaxY-60)/8);{размер клеток}
{обрамление доски}
Setcolor(4);
Rectangle(1,1,8*d1+50,8*d1+60);
Setfillstyle(1,4);
Bar(1,1,8*d1+50,8*d1+60);
{клетки}
x1:=30;y1:=20;
for i:=0 to 7 do
  begin
    for j:=0 to 7 do
    if odd(i+j) then Kletka(x1+d1*i,y1+d1*j,15,d1)
    else Kletka(x1+d1*i,y1+d1*j,6,d1);
  end;
{подписи координат клеток}
Setcolor(0);
for i:=0 to 7 do
outtextxy(30+d1*i+d1 div 2,460,chr(ord(i+97)));
for i:=7 downto 0 do
outtextxy(20,440-d1*i-d1 div 2,chr(ord(i+49)));
readln;
closegraph
end.

@vadim77 · 28.08.2010, 15:19 **[ТС]**

спасибо)

Добавлено через 23 часа 37 минут
пишет ошибку в 30 строчке : Type mismatch.

@Puporev · 28.08.2010, 16:27

vadim77, Если вы что-то напакостили в коде, то это ваши проблемы, сидите и разбирайтесь, у меня ошибок нет.

@pk4 · 29.08.2010, 19:32

в коде всё правильно - я себе код скопировал и заработало)))))

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
		1
	Шахматная доска. 27.08.2010, 15:09. Показов 2239. Ответов 4 Метки нет (Все метки) Написать программу, которая выводит на экран изображение шахматной доски. 0

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
	28.08.2010, 15:19 [ТС]	3
	спасибо) Добавлено через 23 часа 37 минут пишет ошибку в 30 строчке : Type mismatch. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	28.08.2010, 16:27	4
	vadim77, Если вы что-то напакостили в коде, то это ваши проблемы, сидите и разбирайтесь, у меня ошибок нет. 0

@pk4 0 / 0 / 0 Регистрация: 15.07.2010 Сообщений: 5
	29.08.2010, 19:32	5
	в коде всё правильно - я себе код скопировал и заработало))))) 0

Опции темы