Государственный
Университет
Управления
Институт
финансового
менеджмента
Лабораторная
работа №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
|
Государственный
Университет
Управления
Институт
финансового
менеджмента
Лабораторная
работа №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
|
|