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

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

Задание:

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


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

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

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

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

так лучше?

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

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


Что?

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

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

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

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

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

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

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

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

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

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

  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;

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

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

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