Практична робота №22

ТЕМА: "Створення рухомих графічних об’єктів ".

                МЕТА: Ознайомитись з методами створення рухомих графічних об’єктів . Набути практичних навичок створення програм з рухомими графічними об’єктами .

Теоретичні відомості

        Для того, щоб створити рухомий об’єкт на екрані комп’ютера , необхідно виконати послідовність наступних дій :

Ø  намалювати об’єкт ;

Ø  затримати його зображення на екрані;

Ø  витерти об’єкт;

Ø  повторити дану послідовність дій ( перший пункт з невеликим зміщенням в потрібному напрямку )

Як приклад розглянемо рух кола зліва направо:

Program KoLo;

Uses CRT, GRAPH;

VAR

Gd, Gm, x, dx : Integer;

Begin

CLRSCR;

Gd:=Detect;

InitGRAPH( Gd, Gm, 'D:/TP7/BGI');

x:=10;

dx:=1;

    REPEAT

           SetColor(14);

           Circle(x , 240 , 5);

           DELAY(3000);

           SetColor(0);

           Circle(x , 240 , 5);

           x:=x+dx;

_______________________

 

     UNTIL KeyPressed;

END.

Для того щоб коло відбивалось від лівого та правого країв екрану в виділеному місці програми необхідно доставити наступний умовний оператор:

            if (x<10) or (x>635) THEN dx:=-dx;

 

Хід роботи

1.              Написати в редакторі програму-приклад руху кола радіусом 5 зліва направо.

2.              Записати її як файл в бібліотеку.

3.              Добавити умовний оператор, що забезпечує відбивання від країв екрану.

4.       Запустити на виконання .

5.      Намалювати на екрані прямокутник і доробити програму так, щоб кулька відбивалась від країв прямокутника.

6.      У зошити записати текст програми.

7.      Доробити програму так, щоб кулька рухалась в різних напрямках , а не тільки по горизонталі та відбивалась від всіх сторін прямокутника

  

  Додаткове завдання:

Створити програму руху кульки по синусоїді , вісь якої розміщена горизонтально. Кулька повинна відбиватись від країв екрану.

Додаток Файл практичної роботи №22
Презентація "Табличні величини"