Реферат: Основні відомості про алгоритмічну мову Turbo Pascal Графіка Pascal

readln;

SetGraphMode (GetGraphMode);

writeln (‘Знову графічний режим’);

readln;

CloseGraph;

end;

end.

Приклад 5:

Після ініціалізації графічного режиму виводить на екран рядок з іменем завантаженого драйверу, а також всі режими його роботи.

Uses GRAPH;

v ar

a, b : integer;

begin

a := Detect;

InitGraph (a, b, ‘’);

w rite l n (GetDriveName);

f or a := 0 to GetMaxMode do

w rite l n (GetModeName (a) : 10);

r ead l n;

CloseGraph;

e nd;

Приклад 6:

Вивести на екран назви всіх адаптерів і діапазон можливих номерів режимів їх роботи.

Uses Graph;

v ar D, L, H : integer;

c onst

N : array [1..11] of string [8] =

(‘CGA’, ‘MCGA’, ‘EGA’;

‘EGA64’, ‘EGAMONO’, ‘IBM8514’;