Реферат: База данных для учета оплаты за междугородние разговоры
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">Государственный комитет РоссийскойФедерации по
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">связи и информатизации
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">УрКСИ-СибГАТИ
Утверждаю:
Декан факультета
Комарова Т.И.
____________
Проектирование базы данных
для предприятия связи
Курсовая работа
Альбом
612.004КР
1998г.
УрКСИ-СибГАТИ
Задание для курсовогопроектирования
попредмету: ___________________________________________________________________
студента____________________курса____________________________________группы
________________________________________________________________________________
(фамилия, имя, отчество)
ТЕМАЗАДАНИЯ:________________________________________________________________
ИСХОДНЫЕ ДАННЫЕ:
ВАРИАНТ______
__________________________________________________________________________________
__________________________________________________________________________________
__________________________________________________________________________________
__________________________________________________________________________________
__________________________________________________________________________________
привыполнении курсового проекта на указанную тему должны быть представлены:
1. <span Times New Roman"">
Пояснительная записка:__________________________________________________________________________________
__________________________________________________________________________________
__________________________________________________________________________________
2. <span Times New Roman"">
Графическая часть проекта:__________________________________________________________________________________
__________________________________________________________________________________
Датавыдачи_________________ Срококончания______________
Преподавательруководитель____________________________________________
Председательцикловой комиссии________________________________________
ОТЗЫВ КОНСУЛЬТАНТА
СОДЕРЖАНИЕ
1. Задание. Лист
1.1. Описание предметной области.
1.2. Запросы.
2. Таблица атрибутов.
3. Диаграмма ER-типа.
4. Спроектированные отношения.
5. Структура меню.
6. Листинг меню.
7. Листинг программ.
1.ЗАДАНИЕ.
1.1.Описание предметнойобласти.
Базаданных для учета оплаты за междугородние разговоры.
На междугородней станцииведется учет оплаты за предоставляемые ею услуги. МТС регистрирует номертелефона, с которого осуществляется междугородняя связь,
продолжительность разговора в минутах, время и дату разговора, город кудазвонил абонент.
Для тех, кто звонит с 18:00 по 8:00 в рабочие дни, повыходным и праздничным днямдействует льготный тариф.
Все города поделены по дальности на 7 зон.
Плата за разговор P вычисляетсяследующим образом:
P=K*t,где
— K — тариф зоны
— P — продолжительностьразговора
1.<span Times New Roman"">
Если не был внесен аванс, то берется процент за кредит P.2.<span Times New Roman"">
Если был внесен аванс, но сумма Pпревысила его, то оплата закредит начисляется на сумму превышения.3.<span Times New Roman"">
Если оплата не внесена в течениидвух месяцев, то телефон отключается.1.2.Запросы к заданию 4.
1. Выведитефамилии абонентов, у которых долг превышает
100000 рублей.
2. Отберите абонентов,звонивших в зону № и имеющих аванс меньше тарифа данной зоны.№ зоны долженвводиться пользователем.
3. Введите № зоны и названиемесяца и получите доход по этой зоне за данный месяц.
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA">2.ТАБЛИЦА АТРИБУТОВ.
Таблица 1.
имя
тип
длина
примечание
av
N
7
аванс
dolg
N
7
долг
data_v
Date
8
дата
n_t
C
8
№ телефона
n_z
N
1
№ зоны
fio
C
20
Ф.И.О.
tar
N
7
тариф
t
N
3
время разговора
data_raz
Date
8
дата разговора
br
C
5
время дня
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA">3.<img src="/cache/referats/2946/image001.gif" v:shapes="_x0000_s1029"><img src="/cache/referats/2946/image002.gif" v:shapes="_x0000_s1028"><img src="/cache/referats/2946/image003.gif" v:shapes="_x0000_s1026">ER-ДИАГРАММА.
<div v:shape="_x0000_s1045">
ВЕДЕТ
<img src="/cache/referats/2946/image004.gif" " v:shapes="_x0000_s1033"><img src="/cache/referats/2946/image006.gif" v:shapes="_x0000_i1025"><img src="/cache/referats/2946/image007.gif" " v:shapes="_x0000_s1035"><img src="/cache/referats/2946/image006.gif" v:shapes="_x0000_i1026">
<div v:shape="_x0000_s1042">
НАХОДИТСЯ
<img src="/cache/referats/2946/image008.gif" " v:shapes="_x0000_s1105"><img src="/cache/referats/2946/image006.gif" v:shapes="_x0000_i1027"><div v:shape="_x0000_s1044">
ВНОСИТ
<div v:shape="_x0000_s1046">1
<img src="/cache/referats/2946/image009.gif" " v:shapes="_x0000_s1030"><img src="/cache/referats/2946/image006.gif" v:shapes="_x0000_i1028"><span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">ЗОНА
1
ОСУЩЕСТВЛЯЕТСЯ С
1
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">ПЛАТА
<div v:shape="_x0000_s1051">1
<div v:shape="_x0000_s1052">1
<img src="/cache/referats/2946/image010.gif" v:shapes="_x0000_s1034 _x0000_s1036 _x0000_s1043 _x0000_s1050 _x0000_s1060 _x0000_s1061 _x0000_s1062 _x0000_s1063 _x0000_s1064 _x0000_s1065"> <div v:shape="_x0000_s1039"><span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">РАЗГОВОРР
<div v:shape="_x0000_s1040"><span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">АБОНЕНТ
<img src="/cache/referats/2946/image011.gif" v:shapes="_x0000_s1032"> <img src="/cache/referats/2946/image012.gif" v:shapes="_x0000_s1031 _x0000_s1057 _x0000_s1058 _x0000_s1059"> <div v:shape="_x0000_s1053">1
<div v:shape="_x0000_s1049">1
<img src="/cache/referats/2946/image013.gif" v:shapes="_x0000_s1027 _x0000_s1041 _x0000_s1054 _x0000_s1055 _x0000_s1056"> <div v:shape="_x0000_s1038"><span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">ГОРОД
<img src="/cache/referats/2946/image014.gif" v:shapes="_x0000_s1068 _x0000_s1106 _x0000_s1107 _x0000_s1108"> <div v:shape="_x0000_s1047">N
<img src="/cache/referats/2946/image015.gif" v:shapes="_x0000_s1037 _x0000_s1048 _x0000_s1067 _x0000_s1109 _x0000_s1110 _x0000_s1111">4.СПРОЕКТИРОВАННЫЕОТНОШЕНИЯ
Abon Таблица 2
FIO
N_t
ZONA Таблица 3.
N_Z
Tar
Plata Таблица 4.
AV
DOLG
DATA_V
N_T
N_Z
Razg Таблица 5.
t
Br
Data-razg
N_z
N_t
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA"><img src="/cache/referats/2946/image016.gif" v:shapes="_x0000_s1066">
АБОНЕНТ
ЗОНА
ПЛАТА
ДАННЫЕ
ЗАПРОС 3
ЗАПРОС 2
ЗАПРОС 1
ЗАПРОСЫ
РАЗГОВОР
ВЫХОД
<img src="/cache/referats/2946/image017.gif" v:shapes="_x0000_s1069 _x0000_s1070 _x0000_s1071 _x0000_s1072 _x0000_s1073 _x0000_s1074 _x0000_s1075 _x0000_s1076 _x0000_s1077 _x0000_s1078 _x0000_s1079 _x0000_s1080 _x0000_s1081 _x0000_s1082 _x0000_s1083 _x0000_s1084 _x0000_s1085 _x0000_s1086 _x0000_s1087 _x0000_s1088 _x0000_s1089 _x0000_s1090 _x0000_s1091 _x0000_s1092 _x0000_s1093 _x0000_s1094 _x0000_s1095 _x0000_s1096 _x0000_s1097 _x0000_s1098 _x0000_s1099 _x0000_s1100 _x0000_s1101 _x0000_s1102 _x0000_s1103 _x0000_s1104">5. СТРУКТУРА МЕНЮ6. ЛИСТИНГ МЕНЮ
Z 4.PRG
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">clear
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set safe off
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set talk off
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define menu ats bar at line3
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define pad x1 of ats prompt"запросы 1-3"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define pad x2 of ats prompt"данные"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define pad x3 of ats prompt"выход"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">on pad x1 of ats activ popup xx1
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">on pad x2 of ats activ popup xx2
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">on pad x3 of ats quit
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> define popup xx1from 4,1 to 11,11
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">define bar 1 ofxx1 prompt "запрос 1"
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">define bar 2 ofxx1 prompt "запрос 2"
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">define bar 3 ofxx1 prompt "запрос 3"
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">on sele bar 1 of xx1 do zapros1
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">on sele bar 2 of xx1 do zapros2
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">on sele bar 3 of xx1 do zapros3
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define popup xx2 from 4,12to 12,20
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define bar 1 of xx2 prompt "абонент"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define bar 2 of xx2 prompt "плата"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define bar 3 of xx2 prompt "разговор"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">define bar 4 of xx2 prompt "зона"
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">on sele popupxx2 do basa with bar()
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">activ
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> menu ats<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">deactiv
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> menu ats<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">procedure basa
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">parameters k
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">do case
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">case k=1
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use abon
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">browse
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">case k=2
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use mts
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">browse
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">case k=3
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use plata
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">browse
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">case k=4
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use razg
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">browse
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">case k=5
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use zona
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">browse
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">endcase
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"><span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">7. ЛИСТИНГ ПРОГРАММ.
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»">
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">zapros1.prg
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»"><span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">close
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> database<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> abon<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">use
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> plata in 2<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">index
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> on n_t to abon<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> 2<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">index
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> on n_t to plata<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> 1<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">set
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> rela to n_t into2<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">set
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> filter to b.dolg>100000<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">brow
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> fields a.fio,b.dolg<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">set
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> rela to<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»">set
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»"> filter to<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US"><span Arial",«sans-serif»;mso-fareast-font-family:«Times New Roman»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US;mso-fareast-language:RU;mso-bidi-language: AR-SA"><span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">zapros2.prg
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">clear
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set safe off
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set talk off
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 1<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use razg
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">index on n_z to k1
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 2<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use zona
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">index on n_z to k2
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 1<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set rela to n_z into 2
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set skip to 2
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">c=date
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">()<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">@ 2,10 say "Введите дату" get c
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">read
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">v=0
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">@ 4,10 say "Введите номер зоны" get v
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">read
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set filter to a.data_razg=c.and.b.n_z=v
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">browse fields a.data_razg,b.n_z,a.t,b.tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">X1=a.T
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">X2=b.Tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> h=a.T*b.tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">?h,a.n_t
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set filter to
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»;mso-fareast-font-family:«Times New Roman»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US;mso-fareast-language:RU;mso-bidi-language: AR-SA"><span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">zapros3.prg
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">clear
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set safe off
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set talk off
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 1<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use razg
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">index on n_z to k1
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 2<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">use zona
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">index on n_z to k2
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">sele
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 1<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set rela to n_z into 2
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set skip to 2
<span Arial",«sans-serif»;mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">c=date
<span Arial",«sans-serif»; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">()<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">@ 2,10 say "Введите дату" get c
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">read
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">v=0
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">@ 4,10 say "Введите номер зоны" get v
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">read
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set filter to a.data_razg=c.and.b.n_z=v
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">browse fields a.data_razg,b.n_z,a.t,b.tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">X1=a.T
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">X2=b.Tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> h=a.T*b.tar
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">?h,a.n_t
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">set filter to
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">close database
<span Arial",«sans-serif»;mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">