В программе используются следующие переменные:
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;
- процедура выхода из программы
Статьи по теме:
Обмен данными путем перетаскивания Macromedia Dreamweaver против Майкрософт помещаемого на первой полосеУправление выполнением программыWordPad: Выделение текста цветом Права собственностиВСТАВКА ТАБЛИЦVISA-2000. Виртуальный продавец компьютерной оргтехникиSHADOW MASKЗащита от несанкционированного подключения к сетиС0SM0S/МПЛОТТЕРЫ НА ОСНОВЕ ТЕРМОПЕРЕДАЧИКомпьютер в медицинеПредпосылки создания квантовых компьютеровЗао «Лайт Коммуникейшн» Подтвердила Свой Статус «Microsot Gold Certified Partner» В 2008 ГодуЭлектронные таблицы «EXCEL» Отечественное законодательство в области "компьютерного права"Как сделать правильный выбор? 1С:Предприятие 7.7. или 8.0ЦИКЛ ФУНКЦИОНИРОВАНИЯ ВИРУСОВПрименение математической логики в информатикеСертификаты TCO и MPRIICMOS (полупостоянная память)Отображение и скрытие значковУсловия и предпосылки информатизацииМир програмного обеспеченияПроцесс Разработки Программного Обеспечения, Программы На ЗаказЗапись фильма с видеомагнитофона или видеокамеры РАСШИРЕННЫЙ НАБОР ОПЕРАЦИЙ ПРИ ПОДГОТОВКЕ ТЕКСТАМонтирование и размонтирование дисковКомпоненты, модули, мамботы в CMS JoomlaLEP-дисплеи: день завтрашнийЭрг-упражнения для профилактики ПВПНУправление СКСКомпания Зао«Бизнес Технолоджи»Провела Комплексную Автоматизацию Ооо Страховая Компания «Амкополис»Наблюдение компьютера, фактыКомпьютеры в учреждениях ИСКУССТВЕННЫЙ ИНТЕЛЛЕКТ - ВОПРОС О ВОЗМОЖНОСТИ ЕГО СОЗДАНИЯПреимущества .Net Для Разработки Программ И Баз ДанныхПроблемы, возникающие при созданииЭССпрячьте ваши важные документы компьютера в секундахТрехмерная графикаSpyware боя; Используйте предохранение от брандмауэраЭтапы решения задачи на ЭВМТеория фреймовЧто Приносит Sp1 Для Windows Vista?Внедрение Crm Системы Sales Expert 2 В Компании «Сибаэроинж»Глобальная настройка параметров печати Создание и использование сводных таблиц EXCELЧто Такое Кодеки И Где Их Можно СкачатьМоделирование в кибернетикеАналого-цифровые вычислительные машины (АЦВМ)Ms Word Vs NotepadКомпьютеры в искусствеРеализация ЭСWordPad: Выделение текста гарнитурой шрифта Создание, использование и распространение вредоносных программ для ЭВМ (ст. 273 УК)