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;


 

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

40857. Употребление неопределенного и определенного артикля 157.5 KB
  Je prends mon petit déjeuner à six heures trente. Ji une journée de trvil très chrgée. НЕОПРЕДЕЛЕННЫЙ АРТИКЛЬ un une des употребляется: а после оборота c'est ce sont: C'est un professeur. Elle est une bonne secrétire.
40858. Недавнее прошедшее время. Passé immédiat 124.5 KB
  ls viennent de commencer ce travail. 2. Je viens de prendre une douche. 3. Nous venons de nous lever. 4. Tu viens de sonner à la porte. 5. Elle vient d’ avoir ce poste. 6. Vous venons de nous préparer à cet examen.
40859. Безличные обороты (il + глагол) во французском языке 103 KB
  Cest clme et gréble. lors ton nouveu logement n ps de défuts Notre cuisine nest ps très clire. En revnche elle est ssez grnde. Trduisez les questions en frnзis et rйpondezy задайте следующие вопросы пофранцузски и ответьте на них: 1.
40860. Текст и упражнения на французском языке 88.5 KB
  Traduisez les questions en franзais et rйpondez-y (задайте следующие вопросы по-французски и ответьте на них): У вас есть дача? Какая она? Вы часто туда ездите? Вы любите ездить за город осенью? Когда вы предпочитаете ездить за город? Почему?
40861. Passé Composé глаголов III группы 89 KB
  Passé composé глаголов III группы образуется так же, как I и II групп: avoir + participe passé. Отличие лишь в том, что participe passé глаголов III группы различны, и их следует заучивать.vezvous bien ppris cette leçon vezvous déjà vu cette comédie musnte Elle n ps voulu fixer le rendezvous à dix heures. Je voir un rendezvous hier.
40862. Вопросительное предложение. Сложная инверсия 97 KB
  Mes félicittions Qui est son fincé Il sppelle Georges il est cndien. Mis t soeur ne prle ps nglis Comment fontils pour se comprendre Ils nont ps de problèmes : Georges est de Montrél cest une ville frncophone. Quelle est s profession Il est journliste. Il est rrivé à Nice en voyge dffires.
40863. Упражнения на французском языке 74.5 KB
  vez vous ml à l tête Oui prce que je ni ps dormi toute l nuit. vezvous pris l tempérture Oui hier soir ji eu 38 ce mtin ji 37. quelle lngue vezvous rédigé votre crte . Où vezvous cheté ce livre .
40864. Французский язык. Глагол voir (III группа) 102.5 KB
  Lisez à hute voix et trduisez : Voici l neige blnche Elle tombe sur m mnche Elle tombe sur mon cou Elle tombe un peu prtout Et puis toute l nuit Elle tombe sns bruit Jnvier Jnvier pour dire à l'nnée bonjour Février pour dire à l neige il fut fondre Mrs pour dire à l'oiseu migrteur reviens vril pour dire à l fleur ouvretoi Mi pour dire ouvriers nos mis Juin pour dire à l mer emporte nous très loin Juillet pour dire u soleil c'est t sison oût pour dire l'homme est heureux d' être homme Septembre pour dire u blé chngetoi en or...
40865. Местоимения-косвенные дополнения. Pronoms me, te, lui, nous, vous, leur 118.5 KB
  Lisez à hute voix les dilogues : quelle heure vous êtesvous levé hier 7 heures.7 Etesvous resté longtemps dns l slle de bins Non j'i vite fit m toilette je me suis vite hbillé. quelle heure êtesvous sorti de l mison Je suis sorti à 8 heures moins le qurt et je suis llé à mon bureu. I группа: prler → nous PRLons je prlis tu prlis il prlit nous prlions vous prliez ils prlient II группа: finir → nous FINISSons je finissis tu finissis il finissit nous finissions vous finissiez ils finissient III группа: ller → LL jllis tu...