Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Топ:
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Эволюция кровеносной системы позвоночных животных: Биологическая эволюция – необратимый процесс исторического развития живой природы...
Интересное:
Подходы к решению темы фильма: Существует три основных типа исторического фильма, имеющих между собой много общего...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Дисциплины:
2022-10-29 | 35 |
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 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!