рисунки в Pascal ABC

[Rainer082]

Помогите пожалуйста решить эту задачу, предпоследняя практическая до зачета, проболел, не понял тему, на отчисление иду((
Изобразить на экране ЭВМ следующий рисунок:

[Serge_Bliznykov]

Так и чем же Вам помочь?! За Вас нарисовать?! Это нудно и муторно.
И несложно - я думаю, что Вы вполне справитесь самостоятельно.

подсказки.
1) Рисовать нужно графическими примитивами (линиями, элипсами, полигонами и т.д.)
2) для рисования удобно либо предварительно нарисовать этот рисунок на миллиметровке и дальше считать по клеточкам размеры этих самых граф.примитивов (центр, радиусы, длины и т.д.),
либо можно воспользовать спец.графическими редакторами, которые по нарисованному рисунку напишут Вам готовый код (см. тему Рисунки это наша сущность


p.s. возможно, что в вашем случае Вас спасёт Фриланс (заказать готовую программу за небольшое вознаграждение), думаю, что в разделе Фриланс Вас встретят с распростёртыми объятиями

[VIK_aka_TOR]

а разве не эта была у вас последней ??? вы уж определитесь... штампуете свои "последние"..

[Serge_Bliznykov]

VIK_aka_TOR, эта работа у него, вроде как "предпоследняя практическая до зачета"

[Sciv]

предпоследняя практическая до зачета

или до военкомата. зависит от результата.

[Rainer082]

точно говоришь)) Спасибо за советы, буду сидеть и делать))

[Serge_Bliznykov]

буду сидеть и делать))

вот. правильно. и когда при этом у Вас возникнет конкретный затык (это вдруг! на всякий случай! на самом деле, в данной задаче я не вижу трудностей, где этот самый затык может случиться) - тогда Вы сюда в тему приведёте свои наработки (исходный код), напишите, что не получается, и Вам обязательно помогут!

[Станислав_Михайлов]

Program StasMikhailov_Minsk_Gymn27;
uses GraphABC;
begin
setwindowsize(640,480);
setpencolor(clblack);
rectangle(39,441,49,451);
rectangle(48,432,58,442);
rectangle(57,423,67,433);
rectangle(66,414,76,424);
rectangle(75,405,85,415);
rectangle(84,396,94,406);
rectangle(93,387,103,397);
rectangle(102,378,112,388);
begin
setpencolor(clBlack);
rectangle(30,441,40,451);
rectangle(39,432,49,442);
rectangle(48,423,58,433);
rectangle(57,414,67,424);
rectangle(66,405,76,415);
rectangle(75,396,85,406);
rectangle(84,387,94,397);
rectangle(93,378,103,388);
rectangle(102,369,112,379);
begin
setpencolor(clBlack);
rectangle(30,432,40,442);
rectangle(39,423,49,433);
rectangle(48,414,58,424);
rectangle(57,405,67,415);
rectangle(66,396,76,406);
rectangle(75,387,85,397);
rectangle(84,378,94,388);
rectangle(93,369,103,379);
rectangle(102,360,112,370);
rectangle(111,369,121,379);
begin
setpencolor(clBlack);
rectangle(120,351,130,361);
rectangle(129,342,139,352);
rectangle(129,351,139,361);
rectangle(120,342,130,352);
begin
floodfill(32,448,clbrown);
floodfill(40,439,clbrown);
floodfill(30,435,clbrown);
floodfill(50,430,clbrown);
floodfill(60,421,clbrown);
floodfill(70,410,clbrown);
floodfill(80,400,clbrown);
floodfill(90,390,clbrown);
floodfill(100,380,clbrown);
floodfill(110,370,clbrown);
floodfill(120,360,clbrown);
floodfill(130,350,clbrown);
floodfill(121,359,clBrown);
begin
floodfill(40,448,clblack);
floodfill(50,439,clBlack);
floodfill(80,410,clblack);
floodfill(90,400,clBlack);
floodfill(100,390,clblack);
floodfill(110,380,clBlack);
floodfill(120,370,clblack);
floodfill(130,360,clBlack);
floodfill(60,430,clblack);
floodfill(70,420,clBlack);
floodfill(130,359,clBlack);
floodfill(119,376,clblack);
begin
floodfill(31,433,clblack);
floodfill(40,424,clBlack);
floodfill(50,415,clblack);
floodfill(60,406,clBlack);
floodfill(70,397,clblack);
floodfill(79,388,clblack);
floodfill(89,379,clBlack);
floodfill(99,370,clBlack);
floodfill(110,361,clblack);
floodfill(128,343,clBlack);
begin
rectangle(120,360,130,370);
rectangle(111,360,121,370);
rectangle(111,351,121,361);
rectangle(111,342,121,352);
rectangle(129,360,139,370);
rectangle(120,369,130,379);
rectangle(129,369,139,379);
rectangle(138,369,148,379);
rectangle(120,378,130,388);
rectangle(120,387,130,397);
rectangle(120,396,130,406);
rectangle(120,405,130,415);
rectangle(129,414,139,424);
rectangle(138,405,148,415);
rectangle(138,396,148,406);
rectangle(138,387,148,397);
rectangle(138,378,148,388);
rectangle(129,405,139,415);
rectangle(129,396,139,406);
rectangle(129,387,139,397);
begin
rectangle(102,351,112,361);
rectangle(93,351,103,361);
rectangle(84,351,94,361);
rectangle(75,351,85,361);
rectangle(66,342,76,352);
rectangle(75,333,85,343);
rectangle(84,333,94,343);
rectangle(93,333,103,343);
rectangle(102,333,112,343);
rectangle(75,342,85,352);
rectangle(84,342,94,352);
rectangle(93,342,103,352);
begin
floodfill(67,343,clTeal);
floodfill(76,352,clTeal);
floodfill(76,334,clTeal);
floodfill(85,334,clTeal);
floodfill(94,334,clTeal);
floodfill(103,334,clTeal);
floodfill(114,345,clTeal);
floodfill(85,352,clTeal);
floodfill(94,352,clTeal);
floodfill(139,413,clTeal);
floodfill(139,377,clTeal);
floodfill(139,388,clTeal);
floodfill(139,385,clTeal);
floodfill(139,399,clTeal);
floodfill(126,399,clTeal);
floodfill(130,416,clTeal);
floodfill(126,395,clTeal);
floodfill(126,411,clTeal);
floodfill(126,385,clTeal);
floodfill(130,367,clTeal);
begin
floodfill(121,363,clSkyBlue);
floodfill(132,376,clSkyBlue);
floodfill(121,376,clSkyBlue);
floodfill(132,386,clSkyBlue);
floodfill(132,389,clSkyblue);
floodfill(132,397,clSkyblue);
floodfill(132,406,clSkyblue);
floodfill(89,348,clSkyblue);
floodfill(78,348,clSkyBlue);
floodfill(96,348,clSkyBlue);
floodfill(104,348,clSkyblue);
floodfill(104,358,clSkyBlue);
floodfill(114,358,clSkyblue);
floodfill(114,364,clSkyblue);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Станислав_Михайлов, простите, а какое отношение ваш рисунок имеет к тому рисунку, который в первом сообщении (человечек)?
и что это вообще на вашем рисунке?

[p51x]

и зачем столько бегин/эндов?