Графика Опции

[Mnogosisa_pravda_ona]

Хочу сделать любую настольную игру,но пока не понимаю как нарисовать игровое поле.Решил нарисовать поле с размером 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.

Сообщение отредактировано: Mnogosisa_pravda_ona - 17.01.2009 23:30

[volvo]

как сделать нормально?

Вот так:

  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);

[Mnogosisa_pravda_ona]

спасибо.