6792

Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков. Приобретение навыков создания программ  мультипликации. Постановка задачи:Изобразить на экране прямоугольник, враща...

Русский

2013-01-08

70 KB

11 чел.

Цель работы: Изучение методов вывода иллюстраций, создания битовых образов, создания движущихся и изменяющихся рисунков.  Приобретение навыков создания  программ  мультипликации.

Постановка задачи: Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг одной из своих вершин. И перемещающегося с постоянной скоростью от одного края экрана до другого с постоянной скоростью.

Описание входных, выходных данных

Входные данные

Выходные данные

Идентификатор

Назначение

Тип

Идентификатор

Назначение

Тип

MoveTo(x,y)

LineTo(x,y)

Строится рпямоугольник

integer

 

Блок-схему работы алгоритма

Для процедуры  proc_1

Для процедуры  proc_2

Для процедуры  proc_3

Для процедуры  proc_4

Вид Окна приложения

Код обработчика события для кнопки выполнения задания

procedure proc_1;

 begin

    fTask_8.Image1.Canvas.Pen.Color:= clWhite;

     with fTask_8.Image1.Canvas do begin

      MoveTo(50 + x1, 50); LineTo(80, 10);

      MoveTo(80, 10); LineTo(110 - x1, 70);

      MoveTo(110 - x1,70); LineTo(80,110);

      MoveTo(80,110); LineTo(50 + x1, 50);

      end;

        x1:= x1 + 5;

        if x1 = 60 then begin

           fTask_8.Timer1.Enabled:= false;

           fTask_8.Timer2.Enabled:= true;

           end;

        fTask_8.Image1.Canvas.Pen.Color:= clBlack;

     with fTask_8.Image1.Canvas do begin

      MoveTo(50 + x1, 50); LineTo(80, 10);

      MoveTo(80,10); LineTo(110 - x1, 70);

      MoveTo(110 - x1,70); LineTo(80,110);

      MoveTo(80,110); LineTo(50 + x1, 50);

      end;

        end;

procedure proc_2;

 begin

     fTask_8.Image1.Canvas.Pen.Color:= clWhite;

   with fTask_8.Image1.Canvas do

     begin

         MoveTo(50 + x1, 50); LineTo(80, 10);

         MoveTo(80, 10); LineTo(110 - x1, 70);

         MoveTo(110 - x1,70); LineTo(80,110);

         MoveTo(80,110); LineTo(50 + x1, 50);

     end;

       x1:= x1 - 5;

     if x1 = 0 then

      begin

          fTask_8.Timer1.Enabled:= true;

          fTask_8.Timer2.Enabled:= false;

      end;

        fTask_8.Image1.Canvas.Pen.Color:= clBlack;

    with fTask_8.Image1.Canvas do

   begin

          MoveTo(50 + x1, 50); LineTo(80, 10);

          MoveTo(80,10); LineTo(110 - x1, 70);

          MoveTo(110 - x1,70); LineTo(80,110);

          MoveTo(80,110); LineTo(50 + x1, 50);

   end;

 end;

 procedure proc_3;

   begin

      x2:= x2 + 1;

      fTask_8.Image1.Left:= x2;

      if x2 = 500 then

       begin

           fTask_8.Timer3.Enabled:= false;

           fTask_8.Timer4.Enabled:= true;

       end;

      end;

procedure proc_4;

   begin

      x2:= x2 - 1;

      fTask_8.Image1.Left:= x2;

      if x2 = 0 then

       begin

           fTask_8.Timer3.Enabled:= true;

           fTask_8.Timer4.Enabled:= false;

       end;

      end;

      

procedure TfTask_8.Timer1Timer(Sender: TObject);

begin

  proc_1;

end;

procedure TfTask_8.Timer2Timer(Sender: TObject);

 begin

     proc_2;

end;

procedure TfTask_8.Timer3Timer(Sender: TObject);

 begin

     proc_3;

end;

procedure TfTask_8.Timer4Timer(Sender: TObject);

 begin

     proc_4;

end;


 

А также другие работы, которые могут Вас заинтересовать

21627. Создание и оформление таблиц в Word 1.13 MB
  Представлены способы создания таблиц добавления и удаления столбцов и строк таблицы. Общие сведения о таблицах Таблицы в документах Microsoft Word используют большей частью для упорядочивания и представления данных. В таблицах можно производить вычисления таблицы можно использовать для создания бланков документов. Для работы с таблицами используют команды меню Таблица элементы панелей инструментов Стандартная Форматирование Таблицы и границы и Базы данных рис.
21628. Создание теста документа в MS Word 586 KB
  Представлены приемы использования табуляции при создании текста документа. Использование табуляции О табуляции Табуляция используется для выравнивания текста в пределах строки. Позиции табуляции позволяют перемещать курсор по строке клавишей клавиатуры Tab на определенные расстояния от левого поля. В Microsoft Word всегда есть позиции табуляции установленные по умолчанию.
21629. Двигательные нарушения при ДЦП 51 KB
  Существует условное деление мышц на тонические обеспечивающие поддержание поз и фазические осуществляющие динамические движения. Разные функции мышц обеспечиваются составом входящих в мышцу разных двигательных единиц ДЕ. Преобладание быстрых ДЕ обеспечивает динамические движения например двуглавая и трехглавая мышцы плеча при баллистических движениях.
21630. Понятие о ДЦП: эпидемиология, классификация, этиология 44 KB
  Семеновой 1999 ДЦП на территории России в 1962 году составлял 04 случая на 1000 детского населения а в 1992 – 9 случаев на 1000 детского населения. В Украине как и во всем мире также растет численность детей страдающих ДЦП. ДЦП описан еще в трудах Гиппократа и К.
21631. Адаптивное физическое воспитание детей с ДЦП 153.5 KB
  Второй период реализуется в дошкольных учреждениях компенсирующего и комбинированного вида имеющих специализированные группы детей с ДЦП. Понятие о ДЦП: эпидемиология классификация этиология ДЦП – органическое поражение мозга возникающее в период внутриутробного развития в родах и в период новорожденности и сопровождающееся двигательными речевыми и психическими нарушениями.Семеновой 1999 ДЦП на территории России в 1962 году составлял 04 случая на 1000 детского населения а в 1992 – 9 случаев на 1000 детского населения.
21633. Двигательная реабилитация детей с ДЦП 47.5 KB
  ЛФК проводят в дошкольном возрасте от 3 до 7 лет в детских садах в форме малогрупповых занятий от 3 до 5 раз в неделю по 1530 минут. Специалисту по ЛФК необходимо знать методы и принципы последовательности формирования двигательных навыков ребенка с ДЦП. В занятиях ЛФК используют как статические так и динамические дыхательные упражнения в разных исходных положениях с разным темпом ритмом с акцентом на вдох или выдох с использованием различных предметов надувание шариков пускание мыльных пузырей игра на духовых инструментах и пр.
21634. Фазированные антенные решетки 52.5 KB
  Если на первых этапах развития антенна должна была обеспечить эффективное излучение и прием то потом от антенны потребовалось значительное усиление получаемое за счет направленности действия. С появлением радиосистем локации навигации и управления приемные антенны стали осуществлять пеленгацию т. Помеховая обстановка непрерывно меняется поэтому потребовались самоприспосабливающиеся антенны адаптивные.
21635. Введение в макроэкономику 161 KB
  Предмет макроэкономики. Особенности макроэкономического анализа. Основные макроэкономические проблемы и цели макроэкономического регулирования. Макроэкономические модели. Реальные и номинальные величины. Потоки и запасы. Основные макроэкономические переменные; Методы измерения ВВП...