REM P2 - форматирование справочника товара STOVAR.TXT

CLS                               'очистка экрана

TYPE stovar                'начало определения типа под именем STOVAR

kt AS INTEGER   'код товара ‑ целочисленное поле

nt AS STRING * 20 'наименование товара ‑ строка из 20 символов

END TYPE                  'конец определения типа STOVAR

DIM zstovar AS stovar 'определение записи ZSTOVAR типа STOVAR

DIM i AS INTEGER 'определение целочисленной переменной I

OPEN   “STOVAR.TXT” FOR RANDOM AS #1 LEN = LEN(zstovar) 

'открытие справочника товаров STOVAR.TXT под номером 1 c прямым

‘доступом с длиной записи, равной длине записи ZSTOVAR.

FOR i = 1 TO 10 ' цикл вывода 10 пустых записей в STOVAR.TXT

PUT   #1, i, zstovar 'вывод очередной пустой записи ZSTOVAR в файл

                                 ‘STOVAR.TXT в запись этого файла под номером 1

NEXT                       'конец тела цикла FOR

CLOSE #1 'закрытие пустого файла справочника товаров STOVAR.TXT

REM P3 ‑ программа создания справочника товара STOVAR

CLS                               'очистка экрана

TYPE stovar                'начало определения типа под именем STOVAR

kt AS INTEGER   'код товара ‑ целочисленное поле

Nt AS STRING * 20 'наименование товара ‑ строка из 20 символов

END TYPE                  'конец определения типа STOVAR

DIM zstovar AS stovar 'определение записи ZSTOVAR типа STOVAR

OPEN   “STOVAR.TXT” FOR RANDOM AS #1 LEN = LEN(zstovar)    ‘открытие справочника товаров STOVAR.TXT под номером 1 c прямым

 'доступом с длиной записи, равной длине записи ZSTOVAR

DO WHILE 1             'начало бесконечного цикла ввода данных

INPUT “Введите код товара (0-выход) “, zstovar.kt 'ввод кода товара в KT

IF zstovar.kt <= 0 OR zstovar.kt > 10 THEN EXIT DO 'выход из цикла   LINE INPUT “Введите название товара “;zstovar.nt 'ввод названия в поле NT

PUT   #1, zstovar.kt, zstovar 'вывод записи ZSTOVAR в файл STOVAR.TXT

              ' в запись этого файла под номером, равным коду товара в поле KT

LOOP     'конец тела цикла ввода данных

CLOSE #1'закрытие созданного файла справочника товаров TOVAR.TXT

 

REM P4 ‑ программа формирования отчета поставок товара

CLS                               'очистка экрана

DIM kt AS INTEGER 'код товара ‑ целочисленная переменная

DIM dp AS STRING * 8 'дата поставки ‑ 8 символов вида дд.мм.гг

DIM kol AS SINGLE 'количество ‑ вещественная переменная

DIM ed AS STRING * 5 'наименование единицы измерения, 5 символов

DIM cena AS SINGLE 'цена ‑ вещественная переменная

DIM itog AS DOUBLE 'счетчик итогов по отчету

OPEN “POST.TXT” FOR INPUT AS #1 'открытие файла под номером 1

TYPE stovar              'начало определения типа под именем STOVAR

kt AS INTEGER  'код товара ‑ целочисленное поле

Nt AS STRING * 20 'наименование товара ‑ строка из 20 символов

END TYPE                'конец определения типа STOVAR

DIM zstovar AS stovar 'определение записи ZSTOVAR типа STOVAR

OPEN  “STOVAR.TXT” FOR RANDOM AS #2 LEN = LEN(zstovar) 'открытие ‘справочника товаров STOVAR.TXT под номером 2 c прямым доступом с длиной ‘записи, равной длине записи ZSTOVAR

CALL shapka 'запуск процедуры вывода заголовка первого листа отчета

DO WHILE NOT EOF(1) 'начало цикла чтения файла POST.TXT до ‘конца ‘файла (функция EOF(1) возвращает истину при достижении конца файла)

‘чтение очередных данных из файла поставок POST.TXT

‘в поля KT, DP, KOL, ED, CENA соответственно:

INPUT #1, kt, dp, kol, ed, cena

GET   #2, kt, zstovar 'чтение записи из справочника STOVAR.TXT под         ‘номером, равным введенному коду товара в поле KT записи ZTOVAR, и ‘помещение прочитанной записи в ZSTOVAR. Таким образом, в поле ‘ZSTOVAR.NT будет находиться наименование прочитанного из POST.TXT ‘очередного товара.

IF CSRLIN >23 THEN 'переход на следующий лист при заполнении листа

PRINT “Esc-закончить вывод; PgDn-перейти на следующий лист”

SLEEP 'остановка работы программы до нажатия любой клавиши.

‘Если была нажата Esc, то выйти из цикла чтения файла, иначе ‑ запустить ‘процедуру вывод заголовка следующего листа:

IF INKEY$ = CHR$(27) THEN EXIT DO ELSE CALL shapka

END IF               'конец оформления заголовка следующего листа отчета

itog = itog+kol*cena ‘увеличение итогового счетчика на стоимость товара

                             'вывод очередной строки отчета.

PRINT USING “\            \ \ \ ######.### \   \ ###### #######.###”; zstovar.nt;dp; kol; ed; cena; kol*cena

LOOP 'конец тела цикла чтения файла POST.TXT

PRINT USING “Итого по отчету                    ###########.###”; itog

RESET 'закрытие всех файлов и конец основной программы.

'далее идет текст процедуры SHAPKA ‑ вывода заголовка листа отчета

SUB shapka ‘процедура SHAPKA ‑ вывод заголовка листа отчета.

CLS           'очистка экрана дисплея

STATIC nl AS INTEGER 'определение статической целочисленной ‘переменной NL, в которой формируется номер очередного листа отчета

nl = nl + 1  'номер листа увеличивается на единицу

                  'далее следуют команды вывода заголовка очередного листа:

PRINT ” Ведомость поставки товаров                                        лист ”; nl

PRINT ”----------------------------------------------------------------------------------------------------”

PRINT ”| Наименование | Дата  | Количество| Единица |Цена,| Стоимость |”

PRINT ”| товара     | поставки |                | изм. | р. |               |”

PRINT ”---------------------------------------------------------------------------------------------------”

END SUB       'конец тела процедуры SHAPKA

 

Задачи для программирования

Учет авиапассажиров.

     Таблица авиапассажиров: код авиапредприятия, код города наз­на­чения, номер рейса, дата вылета, фамилия, адрес пассажира.

     Справочники: авиапредприятия (код, наименование, адрес, телефон), города (код и наименование).

     Отчет по авиапредприятиям и городам с числом пассажиров по авиапредприятиям и городам и в целом по отчету.

2. Учет производства сель­скохозяй­ствен­ных культур.

     Таблица урожайности сельскохозяй­ствен­­ных культур: код сельско­хозяйственного предприятия, код сельскохозяй­ствен­­ной культуры, уро­жай­ность, номер года.

     Справочники: сельскохозяйственные предприятия (код и наименова­ние, адрес, телефон), сельскохозяйственные культуры (код и наимено­ва­ние).

     Отчет по сельскохозяйственным культурам и сельскохозяйственным предприятиям со средним значением урожайности по каждой культуре.

Учет выпуска изделий.

     Таблица выпущенных изделий: код изделия, код предприятия, количество выпущенных изделий (шт.), их себестоимость, отпускная цена, затраты на электроэнергию, затраты на зарплату, дата выпуска.

     Справочники: изделия (код, наименование), предприятия (код, наименование, адрес, телефон).

     Отчет по изделиям и предприятиям со средними затратами по каждому изделию.

Учет платежей налогов.

     Таблица платежей налогов: населенный пункт, код типа налога, код предприятия, сумма налогов за 1, 2, 3, 4-й кварталы.

     Справочники: типы налогов (код, наименование, процент от базы налогообложения), предприятия (код, наименование, адрес, телефон).

     Отчет по населенным пунктам, типам налогов c итогами по на­се­ленным пунктам и типам налогов и по отчету.

Учет поставок товаров.

Таблица поставленных товаров: код поставщика, код товара, количество, цена, единица измерения, дата поставки.

     Справочники: поставщики (код, наименование, адрес, телефон), товары (код, наименование).

     Отчет по товарам и поставщикам с итоговой стоимостью по товарам, поставщикам и по отчету.

6. Учет сбросов отравляющих ве­ществ в окружающую среду.

Таблица сбросов: район, код организации, дата сброса, концентрация, размер сброса, код единицы измерения, сумма ущерба.

Справочники: организации (код, наименование, адрес, телефон), единицы измерения (код, наименования).

     Отчет по районам и предприятиям с итоговой суммой ущерба по районам, предприятиям и по отчету.