Нужно нарисовать четытехугольник наклоненными лини Опции

[Ксюша]

Здравствуйте, это опять я, если помните.
У меня новая проблема.

Мне дали задание, нарисовать я его смогу, но явно не так как надо, помогите пожалуйста. :p2:

Задание:

Нужно нарисовать четытехугольник наклоненными линиями ( но целыми, наклон естественно 90 ) как на рисуке, попробую показать.

Код

           100     200
      ----------------------------------> Х
     |
     |
100  |     /////////
     |     /////////
     |     /////////
     |     /////////
200  |
     |
     у

Я не пойму, это что мне каждую линию отдельно рисовать надо да ?

Спасибо зарание. :yes:

Сообщение отредактировано: Oleg_Z - 21.11.2004 17:42

[Guest]

Ксюша Ну вот сьехало все

[Altair]

Надо в циатту или в код запихивать!

[Altair]

так лучше?

[volvo]

Ксюша
Это нужно сделать в графическом режиме? Или в текстовом?

[Altair]

Уверен что в текстовом

наклон естественно 90

Что?

[Guest]

Нужно в графическом, как обычный квадрат, только без рамок и кoсыми линиями.

Не могу нарисовать, а по линии чертить самоубийство.

[Guest]

так лучше?

Олег спасобо тебе !!

А 90 это я спутала , угол линий 45 градусов ..

[volvo]

Нужно в графическом, как обычный квадрат, только без рамок и кoсыми линиями

Это делается с помощью процедуры Bar:

SetFillStyle(ltSlashFill, White);
Bar(100, 100, 200, 200);

[Guest]

Это делается с помощью процедуры Bar:

Супер, помогло, огромное спасибо !! :thanks:

[Ксюша]

Люди, я балда опять к вам бегу...=)) :p2:

А в этой задаче можно сделать так, чтобы линии рисовались одна за другой, тоесть как я поняла, нужен цикл.
Но расстояние между линиями должно быть по 10 пикселей. Если возможно, то как, помогите...

[volvo]

Ксюша
Попробуй так:

  for i := 1 to 10 do
  begin
    line(100+10*i, 100, 100, 100+10*i);
    line(200-i*10, 200, 200, 200-10*i);
  end;

[Guest]

Хитро, я бы про то что бы от 200 отнимать не додумалась...
А это разве цикл ? Мне сказали цикл надо, правда я толком то и не поняла как это циклом.

[volvo]

Если "for", или "while", или "repeat" присутствует, значит - цикл... :yes:

[Guest]

Пасиба, в школе попробую, домаПаскаль не запускается что-то. Спасибо