Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [pascal] рисование


Автор: xF1x 21.10.2008, 13:03
Всем доброго времени суток! помогите плиз нарисовать в паскале вот эти 2 рисунка! тлько флаг который справа поровнее чуток  smile 

Автор: Thinker 21.10.2008, 13:26
Ну почему все хотят, чтобы всё делали за них????
Нарисуй сперва картинку на листике в клеточку. Потом по координатам черти в pascal. Всё строится на координатной оси, отсчёт которой с левого верхнего угла.

line(a,b,c,d); - линия   a - координата X1,  b - координата Y1,  с - координата X2,  d - координата Y2;

circle(a,b,c); - круг  a - координата X,  b - координата Y,   c - радиус;

цвет линий задаётся функцией setcolor( со знач. от 1 до 15).

Автор: xF1x 21.10.2008, 13:41
Да я в первый раз рисую вообще раньше не рисовал, да и времени просто нет не успеваю! помогите плиз раз для вас это легко!

Автор: mr.Anderson 21.10.2008, 14:44
xF1x, ты не заметил, что в каждой твоей теме все почему-то тебе незнакомо и ты все делаешь в первый раз? То, что людям на форуме это сделать легко, вовсе не значит, что всем делать нечего, как только тебе задачи решать. Попробуй хотя бы что-то сделать сам, выложи свои мысли, наработки по этому поводу. И потом тебе уже помогут доработать.

Автор: Thinker 21.10.2008, 14:47
xF1x, я тебе дал ответ. По нему можно построить флаг, кораблик, дачу, машинку, жену и детей вместе взятых. Чего ты ещё хочешь?

Автор: xF1x 21.10.2008, 15:07
mr.Anderson Thinker tckb если бывы знали какой у меня учитель по информатике вы бы таких вопросов не задавали!

Автор: THandle 21.10.2008, 15:18
Слушайте, народ, нарисуйте уж ему кто нибудь smile У меня паскаля нету.

Все равно бесполезно пытаться заставить что то сделать.

Автор: xF1x 21.10.2008, 16:29
Парни ну нарисуйте плиз! я просто физически не успеваю! Я знаю это для вас раз плюнуть!

Автор: ИванМ 21.10.2008, 17:48
Лень нам рисовать. Мы программисты а не художники smile  Если хочешь могу тебе заготовку сделать, а координаты линий и кружков сам подберешь.

Автор: mr.Anderson 21.10.2008, 18:40
Ладно. Лови. smile
Код

uses Graph;
var
  d, m: Integer;
begin
  d := VGA;
  m := VGAHI;
  InitGraph(d, m, '');

  {painting: left part}
  Line(100, 100, 50, 150);
  Line(100, 100, 150, 100);
  Line(100, 100, 100, 150);
  Line(150, 100, 150, 150);
  Line(0, 150, 250, 150);
  Line(0, 150, 0, 250);
  Line(250, 150, 250, 250);
  Line(0, 250, 250, 250);
  Circle(75, 275, 25);
  Circle(175, 275, 25);

  {painting: right part}
  Line(350, 100, 600, 100);
  Line(350, 100, 350, 300);
  Line(600, 100, 600, 300);
  Line(350, 300, 600, 300);

  {painting: cross. Vertical lines}
  Line(400, 175, 400, 225);
  Line(500, 175, 500, 225);
  Line(425, 150, 425, 175);
  Line(425, 225, 425, 250);
  Line(475, 150, 475, 175);
  Line(475, 225, 475, 250);
  {painting: cross. Horizontal lines}
  Line(400, 175, 425, 175);
  Line(400, 225, 425, 225);
  Line(425, 150, 475, 150);
  Line(475, 175, 500, 175);
  Line(475, 225, 500, 225);
  Line(425, 250, 475, 250);

  ReadLn;
  CloseGraph;
end.

Автор: Thinker 21.10.2008, 20:05
mr.Anderson, сломался!!!!  smile 

Автор: mr.Anderson 21.10.2008, 20:13
Thinker, ага... не выдержал smile

Автор: xF1x 21.10.2008, 20:42
mr.Anderson СПАСИБО ТЕБЕ ОГРОМНОЕ! только вот не пойму где цвет то? куда его вписывать?

Автор: Thinker 21.10.2008, 20:45
Цитата(Thinker @  21.10.2008,  14:26 Найти цитируемый пост)
цвет линий задаётся функцией setcolor( со знач. от 1 до 15). 

Смотрю, время задавать наиглупейшие вопросы у тебя есть!!! 

Автор: mr.Anderson 21.10.2008, 20:55
xF1x, не за что... smile

Перед рисованием линий вызови SetColor(). Когда захочешь сменить цвет, снова вызови ее. И все.

Автор: xF1x 21.10.2008, 21:03
а цвет фона?

Автор: ИванМ 21.10.2008, 22:26
SetBkColor(цвет)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)