Хочу сделать любую настольную игру,но пока не понимаю как нарисовать игровое поле.Решил нарисовать поле с размером 8Х8 с помощью rectangle,первая строка получилось,а вторая рисует после 1 нарисованной строки.как сделать нормально?
Код
uses graph; var gd,gm,i,k:integer; begin gd:=detect; Initgraph(gd,gm,''); k:=0 for i :=1 to 9 do begin setcolor(3); ink(k,38); rectangle(38,38,k,76); end; for i :=1 to 9 do begin setcolor(3); ink(k,38); rectangle(38,76,k,114); end; readln; closegraph end.
Автор: volvo 17.01.2009 23:36
Цитата
как сделать нормально?
Вот так:
setcolor(3); for j := 1 to 8 do for i := 1 to 8 do rectangle(38*(i-1), 38*(j-1), 38*i, 38*j);