Создание, дополнение и чтение файла данных

Задание. Создать файл данных со следующей структурой:
==> шифр товара,
==> наименование,
==> план выпуска на каждый квартал,
==> фактический выпуск в каждом квартале.
Предусмотреть возможность добавления информации и чтения данных из файла.
> Создание файла
Макет исходных данных
Кварталы
Шифр Наиме- 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22
Алгоритм программы
























Программа по разработанному алгоритму

* Командный файл "Создание файла данных"
CLEAR {Очистка экрана}
SET TALK OFF {Команда запрета выполнения
отдельных команд}
@ 3,10 SAY 'Программа создания файла данных'
ACCEPT 'Укажите имя создаваемого файла данных ' TO Imfd
CLEAR {Очистка экрана}
CREATE &Imfd {Команда создания
файла данных}
WAIT {Команда ожидания}
RETURN {Команда завершения}

Вариант решения задачи

Кварталы
Шифр Наиме- 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22




> Дополнение файла

Макет исходных данных
Кварталы
Шифр Наиме- 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22

Алгоритм программы



























Программа по разработанному алгоритму

* Командный файл "Добавления файла данных"
CLEAR {Очистка экрана}
SET TALK OFF {Команда запрета выполнения
отдельных команд}
@ 3,10 SAY 'Программа добавления файла данных'
ACCEPT 'Укажите имя добавляемого файла данных 'TO Imfd
CLEAR {Очистка экрана}
USE &Imfd {Команда открытия файла
данных}
APPEND {Команда добавления файла
данных}
WAIT {Команда ожидания}
RETURN {Команда завершения}

Вариант решения задачи

Кварталы
Шифр Наиме 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22
41001 Пуфик 10 7 10 5 10 3 10 9
51001 Журн. Столик 15 12 15 10 15 9 15 14
61003 Книжная полка 20 19 20 18 20 17 20 22


>
Чтение файла данных

Макет исходных данных

Кварталы
Шифр Наиме- 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22

Алгоритм программы



























Программа по разработанному алгоритму

* Командный файл "Чтение файла данных"
CLEAR {Очистка экрана}
SET TALK OFF {Команда запрета выполнения
отдельных команд}
@ 3,10 SAY 'Программа чтения файла данных'
ACCEPT 'Укажите имя читаемого файла данных 'TO Imfd
CLEAR {Очистка экрана}
USE &Imfd {Команда открытия файла
данных}
LIST {Команда чтения файла
данных}
WAIT {Команда ожидания}
RETURN {Команда завершения}

Вариант решения задачи

Кварталы
Шифр Наиме- 1 2 3 4
товара нование План. выпуск Факт. выпуск План. выпуск Факт. Выпуск План. Выпуск Факт. выпуск План. Выпуск Факт. выпуск
11001 Стол 30 29 30 28 30 27 30 31
11002 Стул 100 98 100 95 100 95 100 114
21001 Шкаф 25 25 25 23 25 22 25 27
21002 Кровать 30 30 30 28 30 32 30 34
31004 Кресло 20 15 20 20 20 17 20 22


Государственный Университет Управления

Институт финансового менеджмента

Лабораторная работа №2

«Обработка файла данных»

Выполнила:
Студентка в/о, группы б/у II-1
Кузнецова Анна

Задание. Данные по машинам автобазы: номер, марка, план перевозок, факт. Вывести данные по машинам, по которым не выполнен план перевозок.

Макет исходных данных

номер марка план факт
о 367 нр ГАЗ 105 100
л 577 ор ЗИЛ 185 185
н 705 ар КамАЗ 220 220
в 368 еу ЛИАЗ 343 340
а 859 ср МАЗ 368 368
у 364 ар УАЗ 373 373
м 290 ао КамАЗ 288 287
н 390 ал ГАЗ 100 99


Алгоритм программы













































Программа по разработанному алгоритму

* Командный файл "Обработка файла данных"
CLEAR {Очистка экрана}
SET TALK OFF {Команда запрета выполнения
отдельных команд}
USE &Imfd {Команда открытия}
TEXT
Данные по машинам по которым не выполнен перевозок
номер марка план факт
ENDTEXT
I=1 {определяет номер строки}
DO WHILE.NOT.EOF()
IF PLAN>FACT
@ I,3 SAY NOM
@ I,15 SAY MAR
@ I,22 SAY PLAN
@ I,28 SAY FACT
I=I+1
ENDIF
SKIP
ENDDO
WAIT {Команда ожидания}
RETURN {Команда завершения}

Вариант решения задачи

номер Марка план факт
о 367 нр ГАЗ 105 100
в 368 еу ЛИАЗ 343 340
м 290 ао КамАЗ 288 287
н 390 ал ГАЗ 100 99





10