Реферат: Билеты, решения и методичка по Информатике (2.0)
SET FILTER TO indgoods = kod
BROWSE ;
TITLE ' Список поставщиков, поставляющих ' + name ;
FIELDS ;
INDDEL :H = ' Код поставщика ' ,;
A.NAMEDEL :H = 'Название поставщика ' ,;
A.ADRDEL :H = 'Адрес ' ,;
A.TEL :H = 'Телефон '
SET FILTER TO
ENDIF
IF LASTKEY()=27
EXIT
ENDIF
ENDDO
PACK
CLOSE ALL
В этой программе выводятся записи, в которых для каждого кода поставщика inddel из текущей базы данных Supply.dbf (открытой в области В) выводятся поля A.namedel (Название поставщика), A.adrdel (Адрес) и A.TEL (Телефон) из базы данных Delivery.dbf (открытой в области A).
В FoxPro имеется возможность устанавливать связи с несколькими базами одновременно. Если со старшим файлом, который уже связан с другим, необходимо связать некоторый третий (четвертый и т.д.), следует во все последующие команды SET RELATION включать слово ADDITIVE, которое обеспечит сохранение связей, установленных ранее.
Связь между всеми файлами разрывается командой SET RELATION TO без параметров. Связь с отдельным файлом в заданной <области> - командой SET RELATION OF INTO <область>.
Связь вида одна_запись-ко-многим
Команда SET SKIP TO [< область1 > [,< область2 >] … ]
устанавливает связь типа одна_запись-ко-многим между двумя или несколькими базами данных.
С каждой записью из старшей базы могут быть сцеплены несколько записей из младшей базы. Связь может быть установлена сразу с несколькими младшими базами, находящимися в указанных <областях>.
Прежде чем использовать команду SET SKIP TO, необходимо выполнить начальное сцепление вида одна_запись-к-одной командой SET RELATION. Удаление связи одна_запись-ко-многим осуществляется командой SET SKIP TO без параметров.
Пример
Установить связь между тремя базами данных. В программе используется
третья база Товаров (Goods.dbf), получаемая из БД Supply.dbf
SET TALK OFF
IF FILE ('Goods.dbf')
ERASE Goods.dbf
ENDIF
IF FILE ('Indnum.idx')
ERASE Indnum.idx
ENDIF
SELE A
USE Supply
IF FILE ('Indg.idx')
SET INDEX TO Indg.idx
ELSE
INDEX ON indgoods TO Indg UNIQUE
ENDIF
COPY TO Goods FIELDS indgoods, namgoods, measure
SELE C
USE Smdeliv
IF FILE ('Indexdel.idx')
SET INDEX TO Indexdel.idx
ELSE
INDEX ON indgoods TO Indexdel UNIQUE
ENDIF
SELECT SUPPLY
SET RELATION TO inddel INTO Delivery ADDITIVE
SELE B
USE Goods
INDEX ON namgoods TO Indnum
SET RELATION TO indgoods INTO Supply ADDITIVE
SET SKIP TO Supply
BROWSE TITLE "Товары" ;
FIELDS ;
Goods.Namgoods :H = "Имя Товара" ,;
Delivery.Namdel :H = "Имя Поставщика" ,;
Delivery.Adrdel :H = "Имя Поставщика" ,;
Delivery.Count :H = "Счет", ;
Goods.Measure :H = "Ед.Измерения" ,;
Supply.Pricegds :H = "Цена Единицы" ,;
Supply.Quant :H = "Кол-Во Единиц" ,;
Totalamount=Supply.Quant * Supply.Pricegds :H = "Общая Сумма"
CLOSE ALL
11. РАБОТА С ОКНАМИ
Использование окон - очень удобное и эффектное средство создания пользовательского интерфейса в прикладной программе.
Определение окна
DEFINE
WINDOW <имя
окна>
FROM
[FOOTER<выр>] [TITLE<выр>] [SYSTEM/DOUBLE/PANEL/NONE]
[CLOSE][FLOAT][GROW][SHADOW][ZOOM][FILL<выр>][MINIMIZE]
FOOTER, TITLE - нижний и верхний заголовки;
форма границ окна:
SYSTEM - стандартная,
DOUBLE - двойная линия,
PANEL - сплошная полоса,
NONE - не определяется,
CLOSE - допускает закрытие окна мышью,
FLOAT - перемещение с помощью ^F7 или мышью,
GROW - изменение размера (^F8 или мышью),
ZOOM /
MINIMIZE - распахивание и свертывание окна;
SHADOW - теневая рамка,
FILL - символ заполнения окна.
Активация уже определенного окна
ACTIVATE WINDOW [[<окно1>][,< окно2>]] [,...]] ALL [BOTTOM / TOP]]
Здесь указаны имена открываемых или всех (ALL) окон. BOTTOM / TOP - размещение нового окна под/перед уже имеющимся.
Удаление с экрана
DEACTIVATE WINDOW <окно1>[,<окно2>][,...] /ALL
Удаление с экрана и из памяти
CLEAR WINDOW - Удаление с экрана и из памяти ВСЕХ окон
RELEASE WINDOW <окна> - Перечисленных окон.
Восстановление окна
RESTORE WINDOW
Сохранение в файле
SAVE WINDOW <окна> /ALL TO <файл>
Арифметические функции
ABS(<вырN>) - абсолютное значение числа <вырN>
BETWEEN(<выр>,<выр1 >,<выр2>) - истинно (.Т.), если <выр1> <выр>
<выр2>, иначе ложно (.F.) (для чисел,
строк, дат)
CEILING(<вырN>) - округление числа<вырN>с избытком
FLOOR(<вырN>) - округление числа <вырN> с недостатком
INТ(<вырN>) - целая часть числа <вырN>
МАХ(<выр>,<выр1>[,<выр2>...]) - максимальное значение из списка
аргументов (числа, строки, даты)
MIN<выр>,<выр1>[,<выр2>...]) - минимальное значение из списка
аргументов
MOD(<вырN1 >,<вырN2>) - целочисленный остаток от деления
<вырN1 > на <вырN2>
ROUND(<вырN1 >,<вырN2>) - округление числа <вырN1> до <вырN2>
знаков после запятой
RAND(<вырN>]) - псевдослучайное число в диапазоне 0...1
SIGN(<вырN>) - знак числа <вырN>
Степенные, тригонометрические и другие функции
ЕХР(<вырN>) - экспонента <выpN>
LOG(<вырN>) - натуральный логарифм <вырN>
LOG10(<вырN>) - десятичный логарифм <вырN>
SQRT(<вырN>) - квадратный корень числа <вырN>
SIN(<вырN>) - синус <вырN> от угла в радианах
COS(<вырN>) - косинус <вырN>
TAN(<вырN>) - тангенс <вырN>
ASIN(<вырN>) - арксинус <вырN> (результат в радианах)
ATAN(<вырN>) - арктангенс <вырN>
PI ( ) - число
DTOR(<вырN>) - преобразование градусной меры угла в
радианы
RTOD(<вырN>) - преобразование радианной меры угла в
градусы
Строковые функции
<вырС1>$<вырС2> - вхождение <вырС1> в <вырС2>
(результат .Т. или .F.)
AT / ATC(<вырC1>,<вырC2>[,<вырN>) - поиск слева направо в строке
<вырС2> позиции вхождения
подстроки <вырС1>, начиная с
<вырN> позиции строки <вырС2>
RАТ(<вырС1>,<вырС2>[,<вырN>) - то же справа налево
INLIST(<выp1>,<выp2>[,<выp2>…]) - вхождение <выр> в последующий
список (результат .Т. или .F.)
LEN(<вырC>) - длина строки <вырС>
LIKE(<вырC 1 >,<вырС2>) - вхождение <вырС1> в <вырС2>
(результат .Т. или .F.) с
использованием символов маски * и ?
OCCURS(<вырC1>,<вырС2>) - число вхождений <вырС1>в<вырС2>
LEFT(<вырC,<вырN>) - вырезка слева из строки <вырC>
символов в колич. <вырN>
RIGHT(<выpC,<выpN>) - то же справа
SUBSTR(<вырС>,<нач.поз.>,[<число символов>]) - вырезка из строки
<вырС1> подстроки символов от
<нач.поз.> в количестве <число
символов>
LTRIM(<вырC>) - удаление начальных пробелов
TRIM / RTRM(<вырC>) - удаление завершающих пробелов
ALLTRIM(<вырC>) - удаление начальных и завершающих
пробелов
REPLICATE(<выpC>,<выpN>) - повтор <вырN> раз строки <вырC>
SPACE(<вырN>) - формирование строки пробелов
длины <вырN>
Функции преобразования
АSС (<вырC>) - выдает ASCII код первого символа
CHR (<вырN>) - преобразует число в символ в
соответствии с кодом
STR (<выpN>,[,[<дec.знaки>]]) - преобразует число <вырN> в строку
длиной <длина> с указанным
числом <дес.знаки>
VAL (<вырС>) - преобразует символьную запись числа
в число
Функции обработки мемо-полей
ATLINE(<вырc>,<мемо поле>) - первое вхождение строки <вырC>
в <мемо поле>
ATCLINE (<вырC>,<мемо поле>) - то же без различения строчных и
прописных букв
RATLINE(<вырC>,< мемо поле >) - последнее вхождение строки <вырС>
в <мемо поле>
MLINE(<мемо поле >,<вырN>) - возвращает строку <вырN> из
<мемо поля>
MEMLINES(<мемо поле>) - число строк в мемо поле
Функции работы с датами
СТОD(<вырC>) - преобразование даты из строки
символов в формат даты
DATE( ) - системная дата
DAY(<вырD>) - число месяца из даты
DMY(<вырD>) - представление даты в виде
ДД МЕСЯЦ ГГ (или ГГГТ)
DOW (<вырD>) - номер дня недели
DTOC (<вырD>) - преобразование выражения типа даты
в строку символов
GOMONTH(<вырD>,<вырN>) -возвращает дату, которая отстоит от
<вырD> на ±<вырN> месяцев
MONTH(<вырD>) - числовое значение номера месяца по
дате
YEAR(<вырD>) - числовое значение года по дате
Функция анализа условий
BOF(<условие>,<выр1>,<выр2>) - выдает значение<выр1>, если условие
истинно, и <выр2> если ложно.
Функции проверки файлов и дисков
ВОF([<область>]) - достижение начала файла (результат
.Т. или .F.)
ЕОF[(<область>]) - достижение конца файла (результат
.Т. или .F.)
DBF([<область>]) - выдает полное имя файла БД в
текущей области
DISCSPACE ( ) - число свободных байт на активном
диске
DELETED([<область>]) - наличие пометки записи к удалению
(результат .Т. или .F.)
FILE(<имя>) - проверка наличия файла
FIELD(<вырN>[,<область>]) -
выдает имя поля
по его номеру
активной БД
FOUND([<область>]) - успешное завершение поиска
(результат .Т. или .F.)
FCOUNT([<область>]) - число полей в открытом файле БД
LOOKUP(<поле1>,<выр>,<поле2>) - ищет первое вхождение выражения в
<поле2> и выдает <поле1>
LUPDATE([<область>]) - дата последнего изменения БД
ORDER([<область>]) - имя главного индексного файла
RECNO([<область>]) - номер текущей записи активного
файла БД
RECCOUNT([<область>]) - общее количество записей
RECSIZE([<область>]) - размер записи в байтах
HEADER([<область>) - размер заголовка БД в байтах
SЕЕK(<выр>[,<область>]) - поиск записи с <выр> в индексном
файле
ЕМРТY(<выр>) - наличие данных в объекте (результат
.Т. или .F.)
ТYРЕ(<вырС>) - выдает букву имени типа
Функции позиционирования
COL ( ) - номер текущей колонки экрана или окна
ROW ( ) - номер текущей строки экрана или окна
РСОL ( ) - номер текущей колонки на принтере
PROW ( ) - номер текущего столбца на принтер
12.2. SET - КОМАНДЫ
Эти команды служат дня задания флажков состояний, параметров среды и т.п., которые обычно задаются в начале текста программы и в случае необходимости переопределяются или отменяются. В среде FoxPro имеется свыше 100 таких команд. Приведем некоторые из них. За дополнительными разъяснениями можно обратиться к HELP.
SET ALTERNATE ON/OFF - установить флаг вывода данных с экрана
в файл
SET BELL ON/OFF - установить флаг звукового сигнала
SET BLINK ON/OFF - установить флаг мигания символов
SET SENTURY ON/OFF - установить флаг отображения столетия
в датах
SET CLOCK ON/OFF - установить флаг вывода времени
SET COLOR TO - задать цвета меню и окон пользователя
SET COLOR OF SCHEME - задать цвета схемы
SET CURRENCY TO - задать денежный знак
SET DATE TO... - определить формат даты
SET DECIMALS TO… - установить число цифр в дробной
части числа
SET DEFAULT TO... - задать диск и каталог по умолчанию
SET DELETED ON/OFF - установить флаг доступа к записям с
пометкой удаления
SET ECHO ON/OFF - установить флаг активизации окна отладки
SET ESCAPE ON/OFF - установить флаг прерывания по
клавише ESC
SET FILTER TO… - задать фильтр доступа к записям
SET FUNCTION...TO... - связать команду с функциональной
клавишей
SET HELP ON/OFF - установить режим доступа к помощи
SET INDEX TO… - открыть индекс
SET KEY TO - задать предельное значение ключевого
индекса
SET MESSAGE TO... - задать местоположение сообщений
SET ORDER TO... - задать основной индекс
SET PATH TO… - задать список каталогов для поиска файлов
SET PRINTER ON... - установить флаг вывода на принтер
SET PROCEDURE TO... - открыть заданный процедурный файл
SET RELATION TO… - установить связь 1:1 с другой БД
SET RELATION OFF - разорвать связь с другой БД
SET SHADOWS ON/OFF - установить флаг наличия тени
SET SKIP TO… - установить связь 1:N с другой БД
SET SPACE ON/OFF - установить флаг вставки пробелов
SET TALK ON/OFF - установить флаг вывода результатов
выполнения команд
SET WINDOW OF MEMO TO... - задать имя окна редактирования
мемо-полей
12.3. ТЕКСТЫ ПРОГРАММ
Структура для базы данных: DELIVERY.DBF
Field Field Name Type Width Dec Index
1 INDDEL Numeric 2
2 NUMDEL Character 10
3 ADRDEL Character 20
4 COUNT Character 8
5 TEL Numeric 6
Структура для базы данных: SUPLY.DBF
Field Field Name Type Width Dec Index
1 INDSUP Numeric 5
2 INDDEL Numeric 2
3 DATE Date 8
4 NAMGOODS Character 15
5 QUANT Numeric 5
6 PRICEGOODS Numeric 5 2
7 MEASURE Character 3
8 INDGOODS Numeric 5
*********************** Работа с несколькими БД *****
USE Suply
ERASE Goods.dbf
INDEX ON indgoods TO Indg UNIQUE
COPY TO Goods FIELDS indgoods;
,namgoods,measure
SELECT 2
USE Goods
BROWSE
CLOSE ALL
SET TALK OFF
DEFINE WINDOW vvod FROM 2, 2 TO 7, 35 DOUBLE FLOAT SHADOW
DEFINE WINDOW vivod FROM 8, 2 TO 20,70 SYSTEM ;
COLOR SCHEME 10
CLEAR
SELECT A
IF FILE ('Inddeliv.idx')
USE Delivery INDEX Inddeliv
ELSE
USE Delivery
INDEX ON inddel TO Inddeliv
ENDIF
SELECT B
USE Suply
SET RELATION TO inddel INTO Delivery
DO WHILE .T.
ACTIVATE WINDOW vvod
CLEAR
A=0
@ 2,5 SAY 'Введите код товара' GET A PICTURE '#####'
READ
LOCATE FOR indgoods=A
IF !FOUND()
WAIT 'Такого кода нет'
LOOP
ENDIF
name=namgoods
IF A<>0
SET FILTER TO indgoods=A
ACTIVATE WINDOW vivod
BROWSE ;
TITLE 'Список поставщиков, поставляющих '+name ;
FIELDS ;
A.inddel :H = 'Код поставщика', ;
A.namdel :H = 'Имя поставщика', ;
A.adrdel :H = 'Адрес поставщика', ;
A.tel :H = 'Телефон поставщика', ;
A.count :H = 'Счет поставщика'
DEACTIVATE WINDOW vivod
SET FILTER TO
ENDIF
DEACTIVATE WINDOW vvod
IF LASTKEY()=27
EXIT
ENDIF
ENDDO
PACK
CLOSE ALL
CLEAR
SET TALK OFF
SELECT B
USE Goods
SELECT A
USE Suply
INDEX ON indgoods TO Indg
SELECT C
USE Delivery
INDEX ON inddel TO Indexdel
SELECT Suply
SET RELATION TO inddel INTO Delivery
SELECT Goods
INDEX ON namgoods TO Indnum
SET RELATION TO indgoods INTO Suply
SET SKIP TO Suply
BROWSE TITLE 'Товары' ;
FIELDS ;
Goods.namgoods :H = 'Имя товара' ,;
Delivery.numdel :H = 'Имя поставщика',;
Delivery.adrdel :H = 'Его адрес',;
Delivery.count :H = 'Счет' ,;
Goods.measure :H = 'Единица измерения' ,;
Suply.pricegoods :H = 'Цена единицы' ,;
Suply.quant :H = 'Количество единиц' ,;
Totalamount=Suply.quant * Suply.pricegoods ;
:H = 'Общая сумма'
CLOSE ALL
3.1. Линейная программа
********** установки ***********
CLEAR
SET TALK OFF
CLOSE ALL
USE state IN a && открыть в зоне а файл STATE
USE sotr IN b && открыть в зоне b файл CADR
*********** работа с таблицей state **************
SELECT a
BROWSE ;
TITLE 'Штаты ^Т – удал ^N - добав ^W – coxp ' ;
FIELDS cod :H = ‘Код’ ,;
dolg :H = 'Должность' ,;
zarp :H = 'Оклад' ,;
kol :H = 'Количество'
*********** поиск данных в таблице STATE ***********
CLEAR
с = 0
@ 5, 10 SAY 'Задайте код должности:' GET с PICTURE '###'
READ
@ 6, 2 SAY 'Результат поиска'
LOCATE ALL FOR cod = C
DO WHILE ! EOF ( )
? 'Должность - ', dolg, ' Оклад - ', zarp
CONTINUE
ENDDO
WAIT 'Продолжение – ENTER ' WINDOW
******** работа с таблицей sotr ****************
SELECT b
BROWSE ;
TITLE 'Список - ^ T-удал ^ N - добав ^W - сохр' ;
FIELDS cod :Н = 'Код' ,;
fio :H = 'Фамилия И.О.' ,;
tab :H = 'Табельный номер'
**** поиск данных в таблице SOTR ****
CLEAR
с = 0
@ 5, 10 SAY 'задайте код должности:' ;
GET с PICTURE '###'
READ
@ 6, 2 SAY 'Результат поиска'
LIST 'Фамилия - ', fio, 'Табельный номер - ', tab;
WHILE cod = c
WAIT 'Продолжение – ENTER ' WINDOW
**** работа с форматом ****
SET FORMAT TO cadr.fmt
CHANGE
SET FORMAT TO
******** установление связи********************
SELECT b
SET ORDER TO cod
SELECT a
SET ORDER TO cod
SET RELATION TO cod INTO b
SET SKIP TO b
BROWSE ;
TITLE 'Информация' ;
FIELDS A.dolg :H = ‘должность' ,;
B.fio :H = 'Ф.И.О.' ,;
A.zarp :H = 'оклад' ,;
nal = A.zarp * 0.2 :H = 'налог'
SET RELATION TO
********* конец программы**********
3.2 Программа, состоящая из процедур, вызываемых из меню
CLEAR ALL
SET TALK OFF
CLOSE ALL
SET SHADOWS ON
USE state IN a
USE cadr IN b
************** МЕНЮ ****************
DEFINE POPUP mmenu
DEFINE BAR1 OF mmenu PROMPT 'Информация'
DEFINE BAR2 OF mmenu PROMPT 'Штатное расписание предприятия'
DEFINE BAR3 OF mmenu PROMPT 'Список сотрудников'
DEFINE BAR4 OF mmenu PROMPT 'Состояние'
DEFINE BAR5 OF mmenu PROMPT 'Запрос'
DEFINE BAR6 OF mmenu PROMPT 'Выход'
ON SELECTION BAR6 OF mmenu DEACTIVATE POPUP
ON SELECTION BAR1 OF mmenu DO about
ON SELECTION BAR4 OF mmenu DO p2table
ON SELECTION BAR5 OF mmenu DO pspr
ON BAR2 OF mmenu ACTIVATE POPUP wow
ON BAR3 OF mmenu ACTUVATE POPUP sos
DEFINE POPUP wow
DEFINE BAR1 OF wow PROMPT ‘Просмотр'
DEFINE BAR2 OF wow PROMPT 'Поиск'
ON SELECTION BAR1 OF wow DO pstate
ON SELECTION BAR2 OF wow DO psearch
ON SELECTION POPUP wow DO wow
DEFINE POPUP sos
DEFINE BAR1 OF sos PROMPT 'Просмотр'
DEFINE BAR2 OF sos PROMPT 'Поиск'
ON SELECTION BAR1 OF sos DO pstate
ON SELECTION BAR2 OF sos DO psearch
ON SELECTION POPUP sos DO sos
ACTIVATE POPUP mmenu
************ работа с таблицей state **************
PROCEDURE pstate
SELECT a
BROWSE ;
TITLE 'Штаты ^T - удал ^N - добав ^W - coxp' ;
FIELDS cod :Н = 'Код' ,;
dolg :H = 'Должность' ,;
zarp :H = 'Оклад' ,;
kol :H = 'Количество'
RETURN
******** поиск данных в таблице STATE ************
PROCEDURE psearch
CLEAR
c = 0
@ 10, 15 SAY 'Задайте код должности:' ;
GET с PICTURE '###'
READ
@ 12, 10 SAY 'Результат поиска'
LOCATE ALL FOR cod = c
DO WHILE ! EOF ( )
? 'Должность - ', dolg, 'Оклад - ', zarp
CONTINUE
ENDDO
WAIT 'Продолжение – ENTER ' WINDOW
CLEAR
RETURN
******** работа с таблицей cadr ***************
PROCEDURE pcadr
SELECT b
BROWSE ;
TITLE 'Список ^T - удал ^N - добав ^W - сохр' ;
FIELDS cod :H = 'Код' ,;
fio :H = 'Фамилия И.О.' ,;
tab :H = 'Табельный номер'
RETURN
******** поиск данных в таблице SOTR *******
PROCEDURE рcadrsr
CLEAR
с = 0
@ 5, 10 SAY ‘Задайте код должности:' ;
GET с PICTURE '###'
READ
@ 6, 2 SAY 'Результат поиска'
LIST 'Фио - ', fio, ' Табельный номер - ', tab;
WHILE cod = c
WAIT 'Продолжение – ENTER ' WINDOW
CLEAR
RETURN
******** установление связи ******************
PROCEDURE p2table
SELECT b
SET ORDER TO cod
SELECT a
SET ORDER TO cod
SET RELATION TO cod INTO b
SET SKIP TO b
BROWSE ;
TITLE 'Информация' ;
FIELDS A.dolg :H = 'Должность' ,;
B.fio :H = 'Ф.И.О.' ,;
A.zarp :H = 'Оклад' ,;
nal = a.zarp*0.2 :H = 'Налог'
SET RELATION TO
RETURN
********* заставка ************
PROCEDURE about
CLEAR
@ 8, 15 TO 20, 60 double
@ 9, 25 SAY ‘Штатное расписание'
@ 12, 20 SAY 'Модель информационной системы'
WAIT 'Продолжение – ENTER ' WINDOW
CLEAR
RETURN
********* запрос ************
PROCEDURE pspr
CLEAR
DEFINE WINDOW spr FROM 10, 10 TO 18, 40 ;
TITLE 'Справка' SHADOW
ACTIVATE WINDOW spr
@ 1, 1 SAY 'Запрос о занятых должностях и общем'
@ 2, 1 SAY 'Количестве ставок по ним'
WAIT 'Продолжение – ENTER ' WINDIW
DEACTIVATE WINDOW spr
SELECT B
SET ORDER TO cod
SELECT A
SET ORDER TO cod
SET RELATION TO cod INTO b
SET SKIP TO B
SELECT A.dolg, A.kol, COUNT(B.fio) AS cnt, SUM(A.zarp) AS ssum ;
FROM state A, cadr B INTO CURSOR qq ;
WHERE B.cod = A.cod ;
GROUP by A.dolg
BROWSE TITLE 'Занятые должности' ;
FIELDS dolg :Н = 'Должность' ,;
kol :Н = 'По штату' ,;
cnt :Н = 'Занято' ,;
ssum :Н = 'Суммарный оклад'
CLEAR
SET RELATION TO
RETURN
11. Задания.
1. Обеспечить форматный ввод переменной x и форматный вывод значения функции y, используя оператор ветвления case. Функция имеет вид:
2
.
Обеспечить
форматный ввод
переменной
x
и форматный
вывод значения
функции y,
используя
оператор ветвления
case.
Функция имеет
вид:
3. Обеспечить форматный ввод переменной x и форматный вывод значения функции y, используя оператор ветвления case. Функция имеет вид:
4
.
Обеспечить
форматный ввод
переменной
x
и форматный
вывод значения
функции y,
используя
оператор ветвления
case.
Функция имеет
вид:
5. Обеспечить форматный ввод переменной x и форматный вывод значения функции y, используя оператор ветвления case. Функция имеет вид:
6
.
Обеспечить
форматный ввод
переменной
x
и форматный
вывод значения
функции y,
используя
оператор ветвления
case.
Функция имеет
вид:
7. Обеспечить форматный ввод переменной x и форматный вывод значения функции y, используя оператор ветвления case. Функция имеет вид:
8. Обеспечить форматный ввод переменной x и форматный вывод значения функции yзуя оператор ветвления case. Функция имеет вид:
РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА
1. Дейт К. Введение в системы баз данных. - М.: Наука-1980.- 463 с.
2. Мидоу Ч. Анализ информационных систем. - М.: Прогресс. - 1977.- 400 с.
3. Цикритзис Д., Лоховски Ф. Модели данных.- М.: Финансы и статистика. -1985.-344 с.
4. Мейер Д. Теория реляционных баз данных. - М.: Мир. -1987.-608 с.
5. Бойко В.В., Савинков В.Ф. Проектирование баз данных информационных систем.- М.: Финансы и статистика. -1982 .- 382 с.
6. Джексон Г. Проектирование реляционных баз данных для использования с микро-ЭВМ. - М.: Мир. - 1991. - 252 с.
7. Попов А.А. Программирование в среде FoxPro2.0. - М.: Финансы и статистика. - 1993. - 350 с.
Бемер С. FoxPro 2.6 для WINDOWS. - Киев: Торгово-издательское бюро BHV.- 1995.-463 с.