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. Тема, ціль роботи.
2. Текст завдань для виконання .
3. Порядок виконання роботи.
4. Хід виконання роботи - текст програми, результат роботи програми на дискеті
5. Вивід по роботі
КОНТРОЛЬНІ ПИТАННЯ:
1. Яким чином в мові Паскаль здійснюється прехід в графічний режим?
2. Чи можна визначити драйвер автоматично?
3. Яки типи процедур та функцій для роботи з графікою існують?
4. Перелічите основні процедури та функції керування кольором та стилем
5. Перелічите основні процедури та функції малювання примітивів
6. Як організувати малювання лінійчатих фігур?
7. Яким чином можна замалювати замкнену фігуру?
8. Яким чином організується рух фігури на екрані?
Индивидуальные задания для СРС