Графика на Паскале - создать изображение Снеговика

[HECTOR.A.]

На Паскале
Пользуясь функциями модуля Graph, создать изображение Снеговика

[Serge_Bliznykov]

и в чём проблема?
на бумажке (желательно в клеточку) уже нарисовали?

Тут достаточно уметь рисовать залитые кружки (тело и глаза), прямоугольник (ведро), линии - ручки, ну и треугольник - нос.
затруднение в чём?

[HECTOR.A.]

проблема в том что я не знаю как написать код на Паскале

[XeN0N]

а уроки/лекции/учебник ?

[HECTOR.A.]

да ладно вам парни, че трудно помочь

[Serge_Bliznykov]

Да ладно, Вам что - в лом учиться то?...
Вам самому просто лень? Или Вы принципиально ничего сами делать не хотите?..

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

uses graph;
var d, m: integer;
begin
  d := detect;
  initgraph(d, m, 'C:\TP7\BGI');
  setcolor(14);
  setbkcolor(15);
  circle(570, 70, 50);
  setfillstyle(1, 14);
  floodfill(570, 70, 14);
  setcolor(11);
  circle(550, 56, 4);
  setfillstyle(1, 11);
  floodfill(550, 56, 11);
  circle(590, 56, 4);
  setfillstyle(1, 11);
  floodfill(590, 56, 11);
  setcolor(12);
  line(570, 62, 570, 70);
  line(555, 82, 585, 82);
  setcolor(6);
  rectangle(200, 400, 400, 200);
  line(400, 200, 300, 100);
  line(200, 200, 300, 100);
  setfillstyle(9, 6);
  floodfill(360, 180, 6);
  setfillstyle(9, 11);
  floodfill(201, 398, 6);
  rectangle(310, 400, 400, 240);
  setfillstyle(1, 7);
  floodfill(311, 398, 6);
  circle(360, 330, 5);
  setfillstyle(1, 6);
  floodfill(360, 330, 6);
  rectangle(230, 290, 270, 240);
  setfillstyle(1, 15);
  floodfill(231, 288, 6);
  line(250, 240, 250, 290);
  line(230, 260, 270, 260);
  readln;
  closegraph;
end.

[Stilet]

Нестор, почитай хелп паскаля там на функи модуля Graph куча примеров.
Просто позапускай их и посмотри чего они делают.