ПРИКЛАДИ ВИКОНАННЯ ЗАВДАННЯ

Приклад №1 (використання видеопамяті)Графічна заставка: рух фігури довільної форми з лівого нижнього кута екрана в правий верхній) з появою в іншої стороні екрану

Program move_ graf;

Uses graph, crt;

Var Driver, Mode, ErrCode, i, j: integer;

P: pointer;{ Указатель для хранения картинки}

Size: word;{ Количество памяти для картинки}

Begin

Driver:= Detect; { Авт. определение типа адаптера}

InitGraph ( Driver, Mode, 'C:\TP7\BGI');

ErrCode:= GraphResult;

if ErrCode = 0 then { Если нет ошибки при открытии}

begin { графического режима}

SetBkColor (11); SetColor (4);{ Цвета}

PieSlice ( 21, GetMaxy-21, 0, 360, 20);

Size:= ImageSize (1, GetMaxy, 41, GetMaxy-40 );

GetMem ( P, Size); { Запрос на выделение памяти}

{ Сохранение битового образа изображения}

GetImage (1, GetMaxy, 41, GetMaxy-40, p^ );

ClearDevice; { Очистка экрана}

repeat

for i:= 1 to GetMaxX do

begin { NormalPut-для норм. изображения}

PutImage ( i, GetMaxy-i, p^, NormalPut );

delay(1); { XorPut-для очистки изображения}

PutImage ( i, GetMaxy-i, p^, XorPut );

end;

until keypressed;

CloseGraph;

end; { if }

End.

РЕЗУЛЬТАТИ ВИКОНАННЯ РОБОТИ

Завдання №1

Програма на мові Pascal

Завдання №2

Програма на мові Pascal

Завдання №3

Програма на мові Pascal

Контрольні питання

1. Яким чином в мові Паскаль здійснюється прехід в графічний режим?

2. Чи можна визначити драйвер автоматично?

3. Яки типи процедур та функцій для роботи з графікою існують?

4. Перелічите основні процедури та функції керування кольором та стилем

5. Перелічите основні процедури та функції малювання примітивів

6. Як організувати малювання лінійчатих фігур?

7. Яким чином можна замалювати замкнену фігуру?

8. Яким чином організується рух фігури на екрані?