Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Топ:
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного...
Интересное:
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Дисциплины:
2022-10-29 | 45 |
5.00
из
|
Заказать работу |
|
|
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. Учет сбросов отравляющих веществ в окружающую среду.
Таблица сбросов: район, код организации, дата сброса, концентрация, размер сброса, код единицы измерения, сумма ущерба.
Справочники: организации (код, наименование, адрес, телефон), единицы измерения (код, наименования).
Отчет по районам и предприятиям с итоговой суммой ущерба по районам, предприятиям и по отчету.
|
|
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!