<-- -->
Логотип сайта
» » Как написать программу бегущего человечика на Паскале

Алгоритм построения:

Движение Головы осуществляется за счет стирания данной окружности и рисования смещенной, движение остальных частей тела происходит с использованием режима «Xor». Движение тела – просто смещение координаты по оси «OX». Движение рук и головы – с использованием логической операции «If», то есть, когда координата тела по оси «OX» четна, то одно положение рук и ног, а ,когда координата – нечетна, то другое положение рук и ног..

Программный код:

Uses Graph, crt;

Var

        x,y: longint;

        D,M : integer;

        ch:char;

Begin

  d:=detect;

  InitGraph (d, m, '');

  setwritemode(1);           {Включение режима Xor}

  setcolor(white);

  x:=0;

  y:=200;

  while x<=getmaxX do   {Цикл, осуществляющий движение человека}

  begin

    setcolor(white);

    circle(x,y,50);              {Голова}

    line(x,y+50,x,y+250);  {Туловище}

    if x mod 2 = 0 then      {Логическая операция, осуществляющая различное положении рук и ног}

    begin

      line(x,y+60,x-60,y+100);         

      line(x,y+60,x+60,y+100);

      line(x-60,y+100,x-40,y+140);

      line(x+60,y+100,x+100,y+60);

      line(x,y+250,x-60,y+300);

      line(x,y+250,x+60,y+300);

      line(x-60,y+300,x-120,y+250);

      line(x+60,y+300,x+60,y+370);

    end

    else

    begin

      line(x,y+250,x,y+390);

    end;

    delay(100);

    line(x,y+50,x,y+250);

    if x mod 2 = 0 then

    begin

      line(x,y+60,x-60,y+100);

      line(x,y+60,x+60,y+100);

      line(x-60,y+100,x-40,y+140);

      line(x+60,y+100,x+100,y+60);

      line(x,y+250,x-60,y+300);

      line(x,y+250,x+60,y+300);

      line(x-60,y+300,x-120,y+250);

      line(x+60,y+300,x+60,y+370);

    end

    else

    begin

      line(x,y+250,x,y+390);

    end;

    setcolor(black);

    circle(x,y,50);

    x:=x+13;

  end;

  closegraph;

  readln;

end.

 

https://sites.google.com/a/labore.ru/programirovanie-dvizenia-v-pascal/programma-celovek

 

Как сложить два числа на Pascal

 

Программа решения квадратного уравнения. Паскаль 5


Теги
Пожертвования сайту bayanay.info
Карта Сбербанка 4817 7602 3851 4081
Спасибо!
Написать комментарий
Ваше Имя:


Ваш E-Mail:




Введите два слова с картинки:

Логотип сайта
Доступ к сайту бесплатен для пользователей Экспресс-Сеть, Гелиос-ТВ, ЯГУ, Наука, Оптилинк, Сахаспринт и по льготному пиринговому тарифу для сетей ADSL и "Столица" © 2011 Copyright. Все права защищены. Копирование материалов допускается только с указанием ссылки на сайт. Вопросы и пожелания по сайту: bayanay-site@mail.ru

  Яндекс.Метрика
-->
Fatal error: [] operator not supported for strings in /opt/HOSTING/bayanay.info/htdocs/index.php on line 333