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