Каталог Индекс раздела
Назад Оглавление Вперед

Лабораторная работа 13.

РАБОТА С КОМАНДАМИ ВВОДА/ВЫВОДА ДАННЫХ, ВРЕМЕННЫМИ ПЕРЕМЕННЫМИ. ЭЛЕМЕНТЫ ПРОГРАММИРОВАНИЯ

 

Цель работы :

Темы для предварительной проработки:

Основные команды работы с временными переменными СУБД семейства dBASE.

Основные команды создания командных.

Порядок выполнения работы.

1. Откройте созданный ранее файл TEST1 командой

USE A:TEST1.DBF

Выведите на экран дисплея его содержимое командой LIST.

Очистите часть экрана, начиная с точки с координатами (2,3) командой:

@ 2,3 CLEAR

Заполните экран информацией, с помощью команды LIST. Очистите пятую строку экрана командой:

@ 5,0

Очистите часть шестой строки, начиная с восьмой колонки командой

@ 6,8

Очистите весь экран командой

CLEAR

2. Присвойте временным переменным N и M значения 165 и 15, соответственно, командами:

N = 165

M = 15

Выведите на экран результаты выполнения арифметических операций над этими переменными командами

?N+M

?N*M

?N/M

?N-M

3. Присвойте временной переменной АА значение 10, временной переменной ВВ значение 11 и выведите на экран результат их умножения командами:

STORE 10 TO AA

STORE 11 TO BB

?AA*BB

4.Присвойте временной переменной I свое имя, временной переменной V свой возраст и выведите их командами:

STORE 'XXXXXXX' TO I

STORE XX TO V

? 'Анкетные данные:', I, V

5.Введите значение временной переменной числового типа Q командами:

INPUT 'Введите число' TO Q

На экране появится сообщение:

Введите число.

Рядом с ним введите число.

Проверьте правильность ввода командой:

?Q

6. Введите значение временной переменной S символьного типа командами

@ 1,0

ACCEPT 'Введите строку символов без кавычек' TO S

На экране появится сообщение :

Введите строку символов без кавычек.

Введите рядом с ним свою фамилию.

Проверьте правильность ввода командой:

?S

7. Задайте числовое значение временной переменной N, выведите его на экран командами :

CLEAR

N=15

@ 5,15 SAY 'Временная переменная N=' GET N

Измените значение переменной N и выведите новое значение N на экран командами:

READ

?N

8. Выведите на экран строки сообщения командами:

CLEAR

@ 2,3 SAY 'Изучение команд '

@ 3,3 SAY 'СУБД семейства dBASE'

@ 4,3 SAY 'проходит успешно'

9. Выведите сообщение на принтер, предусмотрев прогон бумаги после печати, командами:

SET DEVICE TO PRINT

@ 2,3 SAY 'Изучение команд СУБД семейства dBASE'

@ 3.3 SAY 'проходит почти блестяще'

@ 4,0

EJECT

10. Подайте команду переадресации потока вывода на экран

SET DEVICE TO SCREEN

11.Выведите на принтер результаты выполнения операций над переменными M, N и P командами:

М=87

L=98

P='Прекрасный день'

SET PRINT ON

?M+L

?LOG(M)

?LEN(P)

SET PRINT OFF

12 .Просуммируйте элементы записей какого-либо числового поля ФБД TEST1.DBF, запомните сумму во временной переменной L, выведите результат суммирования на экран, пользуясь командами:

LIST STRUCTURE

SUM <имя числового поля> TO L

?L

13.Вычислите среднее арифметическое по числовому полю ФБД TEST1.DBF, выведите его на экран командами:

AVERAGE <имя числового поля> TO AV

?AV

14.Подсчитайте количество записей в ФБД TEST2 командой:

COUNT TO SUM

Выведите полученное число на экран

?SUM

15.Выведите текущие значения временных переменных командой

DISPLAY MEMORY

или, нажав функциональную клавишу F7.

16. Исключите все текущие временные переменные командой

CLEAR MEMORY

Проверьте содержимое памяти временных переменных командой

DISPLAY MEMORY

17. Удалите все текущие временные переменные, закройте все файлы БД командой

CLEAR ALL

18. Обратитесь к команде создания командного файла PR1.PRG:

CREATE COMMAND A:PR1.PRG

Файл PR1. представляет собой программу проверки знака числа.

Наберите текст программы.

&& Программа проверки знака числа

INPUT 'Введите число' TO N

IF N < O

CLEAR

@ 5,5 SAY 'Число отрицательное'

ELSE

IF N > O

CLEAR

@ 5,5 SAY 'Число положительное'

ELSE

CLEAR

@ 5,5 SAY 'Число равно нулю'

ENDIF

ENDIF

Алгоритм программы выглядит следующим образом:

Запомните файл PR1.PRG, нажав клавиши Ctrl/W.

Выполните программу командой

DO A:PR1.PRG

19. Обратитесь к команде создания командного файла PR2.PRG:

CREATE/MODIFY COMMAND A:PR2.PRG

Файл PR2.PRG представляет собой программу работы с ФБД TEST1.DBF. Если на вопрос "Будете вводить данные Y/N?" пользователь программы отвечает Y (Да), происходит обращение к полноэкранной команде добавления данных в конец файла - APPEND. Затем выполняется суммирование записей в выбранном числовом поле и произведений записей двух числовых полей ФБД TEST1.DBF (независимо от того было добавление данных или нет).

Если на вопрос "Будете выводить результат на печать Y/N?", пользователь ответит Y, на принтере напечатается строчка: сумма произведений = Х и программа завершит работу.

Если ответ будет N, программа просто завершает работу.

Наберите текст программы.

SET TALK OFF

USE A:TEST1.DBF

WAIT 'Будете вводить данные Y/N' TO Y

IF Y='Y'

APPEND

ENDIF

SUM <числ.поле> TO K && Получение суммы записей в числовом поле

CLEAR

@ 5,5 SAY 'Итог по графе' GET K

WAIT

GO TOP

STORE 0 TO S

DO WHILE .NOT. EOF() && Цикл вычисления суммы

STORE <числ.поле 1> * <числ.поле 2> TO M && произведений двух

SKIP && числовых полей

S=S+M && OAA TEST1.DBF

ENDDO

CLEAR

@ 5,7 SAY 'Сумма произведений числовых полей' GET S

WAIT 'Будете выводить результаты на печать Y/N?' TO X

IF X = 'Y'

SET DEVICE TO PRINT && Вывод на принтер суммы произведений

@ 4,0

@ 5,2 SАY 'Сумма произведений = 'S

@ 5,23 SAY S

@ 6,0

ENDIF

SET DEVICE TO SCREEN

SET TALK ON

USE

Алгоритм программы имеет следующий вид:

Запомните файл PR2.PRG, нажав клавиши Ctrl/W.

Выполните его командой

DO A:PR2.PRG

Контрольные вопросы:

  1. Каковы основные команды очистки экрана?
  2. Каковы основные команды присвоения временной переменной определенного значения?
  3. Каковы команды ввода числовой и символьной информации; исправления данных?
  4. Каковы основные команды вывода информации на экран дисплея и принтер?
  5. Какими командами можно вычислить сумму элементов записей поля ФБД, подсчитать среднее арифметическое в поле, подсчитать количество записей в ФБД?
  6. Какая команда позволяет вывести текущие значения временных переменных?
  7. Какие команды исключают и уничтожают все временные переменные?
  8. Какие основные команды используются при создании командных файлов процедур, файлов меню?

РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА

  1. 1. Гринберг Ф., Гринберг Р. Самоучитель программирования на входном языке СУБД dBASE III. -М.: Мир, 1989.-453 с.
  2. Крамм Р. Системы управления базами данных dBASE II и dBASE III для персональных компьютеров. - М.: Финансы и статистика, 1988. - 283 с.
  3. Берещанский Д.Г. Практическое программирование на dBASE. - М.: Финансы и статистика, 1989. - 189 с.
  4. Программное обеспечение персональных ЭВМ.: Справ. пособие.-/А.А.Стогний, С.А.Ананьевский, Я.И.Барсук и др.; Под ред. А.А.Стогния - Киев: Наук.думка, 1989. - 368 с.
  5. Мартин Дж. Организация баз данных в вычислительных системах. - М.: Мир, 1980. - 662 с.

Каталог Индекс раздела
Назад Оглавление Вперед