Помощь - Поиск - Пользователи - Календарь
Полная версия: Графика
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Mnogosisa_pravda_ona
17.01.2009 23:28
Хочу сделать любую настольную игру,но пока не понимаю как нарисовать игровое поле.Решил нарисовать поле с размером 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);
Mnogosisa_pravda_ona
17.01.2009 23:45
спасибо.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.