Программирование и комп-ры

Компьютерная подготовка


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

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



                           Лабораторная работа №1
                                   на тему



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



Выполнила:

Проверил:
Несмеянов И. А.
Задание. Создать файл данных со следующей структурой:
шифр товара,
наименование,
план выпуска на каждый квартал,
фактический выпуск в каждом квартале.
Предусмотреть возможность добавления информации и чтения данных из файла.
Создание файла
Макет исходных данных
|     |       |Кварталы                                                             |
|Шифр |Наиме- |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     |

-----------------------
                                   начало

                                    CLEAR

                                SET TALK OFF

@ 3,10 SAY ‘Программа создания файла данных’

ACCEPT ‘Укажите имя создаваемого ФД’ TO Imfd

                                    CLEAR

                                CREATE &Imfd

                                    WAIT

                                   RETURN

                                   начало

                                    CLEAR

                                SET TALK OFF

@ 3,10 SAY ‘Программа добавления файла данных’

ACCEPT ‘Укажите имя добовляемого ФД’ TO Imfd

                                    CLEAR

                                  USE &Imfd

                                   APPEND

                                    WAIT

                                   RETURN

                                   начало

                                    CLEAR

                                SET TALK OFF

@ 3,10 SAY ‘Программа чтения файла данных’

ACCEPT ‘Укажите имя читаемого ФД’ TO Imfd

                                    CLEAR

                                  USE &Imfd

                                    LIST

                                    WAIT

                                   RETURN




смотреть на рефераты похожие на "Компьютерная подготовка"