Методика підрахунку прямокутників різної форми

OcIntegerКолір, яким замальовується зображення перед виходом із процедури

Змінні, які застосовуються в процедурі About (задача “Про автора”)

НазваТип Призначення

StrStringДля тимчасового зберігання написів

Exit Boolean Вихід – так/ні

Змінні, які застосовуються в процедурі Curpos (виводить на екран курсор на матриці до задачі №1)

НазваТип Призначення

XInteger Координата X курсору на екрані

YIntegerКоордината Y курсору на екрані

X1IntegerКоордината X курсору на екрані до переміщення

Y1IntegerКоордината Y курсору на екрані до переміщення

XcIntegerКоордината X прямокутника на екрані

YcIntegerКоордината Y прямокутника на екрані

Змінні, які застосовуються в процедурі Printmatrix (виводить на екран матрицю до задачі №1)

НазваТип Призначення

IIntegerВикористовується в циклі

JIntegerВикористовується в циклі

XIntegerКоордината X прямокутника на екрані

Y IntegerКоордината Y прямокутника на екрані

Mas Масив 8х8 із елементів типу IntegerМасив даних (прямокутників)

Змінні, які застосовуються в процедурі Count (підрахунок прямокутників)

НазваТип Призначення

Mas Масив 8х8 із елементів типу IntegerМасив даних (прямокутників)

IIntegerВикористовується в циклах

JIntegerВикористовується в циклах