Компьютерная подготовка
ГосударственныйУниверситетУправления
Институтфинансовогоменеджмента
Лабораторнаяработа №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 {Очисткаэкрана}
SETTALK 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 {Очисткаэкрана}
SETTALK 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 {Очисткаэкрана}
SETTALK 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 {Очисткаэкрана}
SETTALK OFF {Командазапрета выполнения
отдельныхкоманд}
USE&Imfd {Командаоткрытия}
TEXT
Данныепо машинам покоторым невыполнен перевозок
номер марка план факт
ENDTEXT
I=1 {определяетномер строки}
DOWHILE .NOT.EOF()
IF PLAN>FACT
@ I,3 SAY NOM
@ I,15 SAY MAR
@ I,22 SAYPLAN
@ I,28 SAYFACT
I=I+1
ENDIF
SKIP
ENDDO
WAIT {Командаожидания}
RETURN {Командазавершения}
Вариантрешения задачи
номер | Марка | план | факт |
о367 нр | ГАЗ | 105 | 100 |
в368 еу | ЛИАЗ | 343 | 340 |
м290 ао | КамАЗ | 288 | 287 |
н390 ал | ГАЗ | 100 | 99 |
н