Державний Університет Управління
Інститут фінансового менеджменту
Лабораторна робота № 1 на тему
«Створення, доповнення та читання файлу даних» < p> Виконала:
Перевірив:
Несмеянов І. А.
Завдання. Створити файл даних з наступною структурою:шифр товару,найменування,план випуску на кожний квартал,фактичний випуск у кожному кварталі.
Передбачити можливість додавання інформації і читання даних з файлу.
Створення файлу
Макет вихідних даних
| | | Квартали |
| Шифр | Наймену-| 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
початок < p> 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
