Реферат Модуль Graph в програмі Turbo Pascal

в програмі може виглядати, як показано в наступному прикладі.

Uses Graph;

Procedure GrInit;

Var

GraphDriver: Integer;

GraphMode: Integer;

ErrorCode: Integer;

Begin

GraphDriver: = Detect;

InitGraph (GraphDriver, GraphMode,'');

ErrorCode: = GraphResult;

if ErrorCode <> grOK then

begin

Writeln (' Помилка графіки :', GraphErrorMsg (ErrorCode));

Writeln ('Програма зупинена ... ');

Halt (1);

end;

Begin { Приклад ініціалізації}

GrInit ;

Line (0, 0, GetMaxX, GetMaxY);

Readln;

CloseGraph;

E nd.

Надалі процедуру Grlnit краще записати в окремий файл (наприклад, INITGRAF.PAS) і використовувати директиву включення цього файлу при компіляції. Такий блок завжди включає стандартний графічний режим максимального дозволу. <В  Класифікація та аналіз графічних режимів

Можливі графічні режими для різних адаптерів наведені в таблиці. У другому стовпці наведено імена зумовлених констант, які можна передавати в процедури, керуючі графічними режимами. Останній стовпець показує кількість повноекранних зображень, які можуть зберігатися в пам'яті відеоадаптера одночасно.

Драйвер

Ім'я константи режиму і її значення

здатність екрану (у точках)

Палітра

Число відеосторінок

CGA

CGAC0 = 0

320x200

4 кольори

1

CGAC1 = 1

320x200

4 кольори

1

CGAC2 = 2

320x200

4 кольори

1

CGAC3 = 3

320x200

4 кольори

1

CGAHi = 4

640x200

2 кольори

1

MCGA

MCGAC0 = 0

320x200

4 кольори

1

MCGAC1 = 1

320x200

4 кольори

1

MCGAC2 = 2

320x200

4 кольори

1

MCGAC3 = 3

320x200

4 кольори

1

MCGAMed = 4

640x200

2 кольори

1

MCGAHi = 5

640x480

2 кольори

1

EGA

EGALo = 0

640x200

16 кольорів

4

EGAHi = 1

640x350

16 кольорів

2

EGA64

EGA64Lo = 0

640x200

16 кольорів

1

EGA64Hi = 1

640x350

4 кольори

1

EGAMono

EGAMonoHi = 3

640x350

2 кольори

1 (2)

Herc

HercMonoHi = 0

720x348

2 кольори

2

АТТ

АТТ400С0 = 0