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

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

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

Лабораторная работа №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

н