Рисунок в паскале

[NamelessEndless]

Значит так.
1) Учимся пользоваться гуглом и поиском вообще
2) Представьте, что этот рисунок - апликация с первого класса. Разбейте на части: голова - овал, туловище - треугольник, ручки-ножки-другие жизненно важные части тела пусть будут линиями.
3) в паскале есть все средства для изображения такого рисунка:
- если не ошибусь, координаты экрана (начиная от верхнего левого угла) (0;0) - (640;480)
- Ellipse(x,y,BegA,EndA,rx,ry) - рисует эллипс
FillEllipse(x,y,rx,ry) - заливка эллипса
LineTo(x,y), LineRel(dx,dy) - вычерчивание линий. И т.д.

В общем, ищите, такого в инете много)

[Serge_Bliznykov]

мдя.. набросал начало..
на скорую руку...
уродец жуткий получился... но принцип рисования понятен...

uses
   Graph;
type
  TTriangle = array[1..3] of PointType;

const
  MenColor = 14;
Triangle: TTriangle  = (
  (X: 250; Y: 150),
  (X: 350; Y: 150),
  (X: 300; Y: 300));
var
   grDriver,grMode,errCode: Integer;
   i: Integer;
   TriangleMy: TTriangle;
begin
   grDriver:=Detect;{определение номера драйвера}
   InitGraph(grDriver,grMode,'');
   {в кавычках указать путь к драйверу, например
   для Turbo Pascal,'C:\TP\BGI'. Для Free Pascal можно так и оставить}
   errCode:=GraphResult;
   if errCode=grOK then
   begin
   { режим открыт и Вы можете работать}
     TriangleMy := Triangle;
     SetColor(MenColor);
     SetFillStyle(1, MenColor);
     {туловище}
     FillPoly(3,TriangleMy); {Закрашенный треугольник}
     {голова}
     FillEllipse(300, 130, 15, 20);
     {левая нога}
     PieSlice(270, 390, 77, 81, 110);
     SetLineStyle(0, 0, 3);
     Line(270, 390, 290, 390);
     
     readln; 
     CloseGraph;{закрывает режим графики}
   end
   else
     Writeln('Ошибка графики:',GraphErrorMsg(ErrCode));
end.

[Lexman777]

Спасибо друзья за помощь!!!))))))Очень помогли!!!))

[CyberGenus]

uses graph;               \\подключаем модуль graph
var gd,gm:integer;
begin
  gd:=detect;   \\определяем тип графического адаптера
  gm:=1;
  initgraph(gd,gm,'...');  \\в апострафах укажи путь в graph'у (обычно папка BGI

ну а дальше используй оператор Line(x1,y1,x2,y2) или LineTo
чертить круг (голова) - Circle(x,y,R)
http://study.crimea.ua/file4168.html-скачай книгу Фаронова "Турбо Паскаль. Начальный курс" там про рисование написано