Question

Помогите пожалуйста нарисовать в Паскале.

 

Решение.. пожалуйста

Answer 1

 Сразу предупрездаю - это Чернобыльский Волк и поэтому у него такой хвост ;))

 

 

Program ChernobylWolf; {Волк-Чернобылец}
Uses Crt,GraphABC;
const n=7;
type Point=record
x,y:integer;
end;
poly=array[1..n] of Point;

var a:poly;

begin

SetWindowSize(800,600);

Rectangle(300,300,400,250); // Пузо
Circle(400,200,55); // Голова
Line(265,170,355,170); // Морда
Line(250,220,355,220); // Морда
Line(250,220,250,185);
Arc(250, 172,15 ,0 ,270); // Нос
Line(345,220,255,240); //Нижний Пасть
MoveTo(255,240); // Зубы
LineTo(255,230); // Зубы
LineTo(270,238); // Зубы
LineTo(271,226); // Зубы
LineTo(291,231); // Зубы
LineTo(292,221); // Зубы
LineTo(310,227); // Зубы
LineTo(311,220); // Зубы
LineTo(320,228); // Зубы
Circle(380,175,15); // Глаза
Circle(373,175,8); // Глаза
FloodFill(373,176,clBlack); // Глаза

MoveTo(310,280); // Левая нога
LineTo(290,320); // Левая нога
LineTo(330,320); // Левая нога
LineTo(310,280); // Левая нога

MoveTo(390,280); // Правая Нога
LineTo(370,320); // Правая Нога
LineTo(410,320); // Правая Нога
LineTo(390,280); // Правая Нога

MoveTo(375,150); // Ухи
LineTo(390,120);// Ухи
LineTo(409,146);// Ухи
LineTo(422,146);// Ухи

LineTo(440,120);// Ухи
LineTo(440,162);// Ухи


// Многострадальный хвост Терпения и времени не хватило уже

a[1].x:=300;
a[1].y:=250;
a[2].x:=290;
a[2].y:=275;
a[3].x:=270;
a[3].y:=290;
a[4].x:=250;
a[4].y:=310;
a[5].x:=250;
a[5].y:=275;
a[6].x:=270;
a[6].y:=250;
a[7].x:=300;
a[7].y:=250;
PolyLine(a,7);

end.