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

     

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

    question img

Ответы 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. 

    • Автор:

      ayaanigqk
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years