нарисовать дом в Паскале

[Leshiy1]

Здравствуйте! Скажите пожалуйста, как в Паскале циклом нарисовать несколько одиаковых объектов по осям X и Y.
(Нужно нарисовать дом. На доме окна 20 штук. Вдоль 5 и вниз 4)

[dampirik]

А что с наработками?

[NSvirus]

текст программы не помещается в сообщение, вложил в архив
скромный домик(про расположение окон забыл, увлекся((( )

[DeKot]

Без кода.
Алгоритм следующий : подключаешь модуль Graph; Используешь примитивы - Rectangle, Line To, (толщина линий, цвет пера, цвет кисти- само собой). Все это в простой цикл for . . . to . . .. Кол-во "домиков" задаем в переменной (i) цикла.
Если все это не понятно - парашютный спорт не для Вас.
В противном случае - на каждый конкретный вопрос будет такой же конкретный ответ.
Спрашивайте .

[Arigato]

Сообщение от Leshiy1

циклом нарисовать несколько одиаковых объектов по осям X и Y.

Можно сделать процедуру, рисующую данный объект в координатах (x,y):

procedure draw_window (x, y: Integer);

Когда будите задавать координаты для линий или прямоугольников, то прибавляйте к ним x и y соответственно.
Далее в нужном цикле просто вызываем созданную процедуру, передавая в неё нужные аргументы.

[Leshiy1]

Спасибо люди добрые

Домик-то у меня есть. Мне бы узнать как в цикле нарисовать несколько одинаковых объектов. Например, ёлочка из треугольников. Чтобы не прорисовывать каждый треугольник отдельно. Это же можно сделать в цикле. Вот мне нужно знать как сделать этот цикл.

[Arigato]

Сообщение от Leshiy1

Домик-то у меня есть. Мне бы узнать как в цикле нарисовать несколько одинаковых объектов. Например, ёлочка из треугольников. Чтобы не прорисовывать каждый треугольник отдельно. Это же можно сделать в цикле. Вот мне нужно знать как сделать этот цикл.

http://programmersforum.ru/showpost....87&postcount=5

[Serge_Bliznykov]

ёлочка из треугольников

так пойдёт?

uses
   Graph;
type
  TTriangle = array[1..3] of PointType;

const
Triangle: TTriangle  = (
  (X: 150; Y: 400),
  (X: 300; Y: 400),
  (X: 225; Y: 350));
var
   grDriver,grMode,errCode: Integer;
   i: Integer;
   TriangleMy: TTriangle;
begin
   grDriver:=Detect;{определение номера драйвера}
   InitGraph(grDriver,grMode,'..\BGI');
   {в кавычках указать путь к драйверу, например
   для Turbo Pascal,'C:\TP\BGI'. Для Free Pascal можно так и оставить}
   errCode:=GraphResult;
   if errCode=grOK then
   begin
   { режим открыт и Вы можете работать}
     TriangleMy := Triangle;
     SetColor(lightgreen);
     for i:=1 to 7 do  begin
       SetFillStyle(2+i,lightgreen);
       TriangleMy[1].y := TriangleMy[1].y - 50;
       TriangleMy[2].y := TriangleMy[2].y - 50;
       TriangleMy[3].y := TriangleMy[3].y - 50;
       FillPoly(3,TriangleMy); {Закрашенный треугольник}
    end;
    readln;
    CloseGraph;{закрывает режим графики}
   end
   else
     Writeln('Ошибка графики:',GraphErrorMsg(ErrCode));
end.

[Leshiy1]

thank you Господа! У меня получилось. Окошки рисуются циклом как надо.

Dekot, Мне понятно что такое for, to, i.