В программе используются следующие переменные:
Bas – запись.
type
bas=record
n:integer;
e1,e2,e3:integer;
e4:real;
end;
Где:
n - номер продукции;
e1 - переходящий остаток продукции на начало года ;
e2 - приход продукции;
e3 – расход;
e4 - цена за 1 шт .
menu2 – метка, используется для работы с главным меню программы;
C:char, используется для работы оператора readkay (читает символ с клавиатуры без эхоповтора на экране);
O:real используется для редактирования записей.
ww, l, nn, q, i, gd, gm:integer;
ww-используется для вывода шапки таблицы (координата по Y).
l-используется для работы с меню и для удаления записи
nn, q- используется в программе для создание новых записей
i-счетчик
gd, gm - для графики:
gd – определяет тип графического драйвера,
gm – переменная, задающая режим работы графического адаптера;
pp,qq,n,mm:integer; - переменные для добавления новой записи;
f,f2:file of bas; - файлы
a,b:bas;
a,b - переменные, содержащие записи типа Bas.
Переменная b используется для удаления записей.
st:real;
st – для вычисления суммы в таблице
Процедуры:
procedure view(w:integer);
- процедура вывода таблицы, где w–координата по Х;
var
itog:real; -для вычисления итогового значения сумма в таблице;
Procedure menu;
- процедура вывода меню;
Procedure zast;
- процедура вывода графической заставки
var
xm,ym:integer;
xm,ym-координаты для вывода граф. объектов
size:integer; saucer:pointer;
k,kk:integer;
size,saucer,k,kk-для движения
Procedure error;
- процедура вывода сообщения об ошибке
Procedure exitt;
- процедура выхода из программы
Статьи по теме:
Прерывание INT 11hКартриджи Оптом И В Розницу, Со СкладаРабота накопителяБлокнот: Поиск и замена Глобальная сеть Internet Какое сжатие файлов лучшее?Общие сведения по СКСWordPad: Вставка времени и даты Обзор Популярных Программ Резервного КопированияКопирование данных с компакт-диска Спам и как с ним боротьсяSHADOW MASKПримеры комплексов CASE-средств Установка Windows Xp По Сети Без Использования RisПоддержка драйвера сжатых дисков в MS DOSКакие же выводы можно сделать?ОТОБРАЖЕНИЕ ПРОЦЕССА ПРОЕКТИРОВАНИЯ В ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ САПРОсновы работы в среде Microsoft Windows XPИСКУССТВЕННЫЙ ИНТЕЛЛЕКТ - ВОПРОС О ВОЗМОЖНОСТИ ЕГО СОЗДАНИЯПотеря информации – можно ли ее избежать?Следственный экспериментInternet и первичные телекоммуникационные сети УкраиныКомпьютерная преступность не знает границКонцентраторы Fast Ethernet NetGear«ВАКЦИНАЦИЯ» ПРОГРАММКак Бороться С Вирусами И ТроянамиПапка Избранное Генерация сеток конечных элементов в GEOSTARТехнология сценариевИспользование команд контроллера НГМДМаркировка + контроль вскрытия с этикетками В-367Компания Janet Systems Llc Представила Soa-Платформу На Выставке «E-Kazakhstan»Рисование прямоугольника или квадрата Масштабирование изображения Смена поколенийСокращение занимаемого Windows XP дискового пространства Загрузка MozillaПочтовые псевдонимыCMOS (полупостоянная память)Где Купить Картридж С Доставкой В ОфисИстория Браузера OperaШифрование. PGP-ключОборотная сторона медали SpywareКомпьютерный вирус - понятие и классификацияКоличества и конфигурация оборудованияБесплатный сыр и как избежать мышеловкиКлассификация локальной компьютерной сети (ЛКС)Про недавний случай с вирусом. Будьте осторожныПерезапуск задач печати Новое Решение На Рынке SoaТИПЫ ЛКСМетодическая сущность деловой игрыВиды пластиковых карточекПреступления в сфере компьютерной информацииСети NETGEAR