1,1 &&function M ' О ','3 ','И'

@ 4,2 say 'Дата открытия счета не ранее, get pdz size 1,8

@ 5,2 say 'Дата открытия счета не позже' get pdz2 size 1,8

@ 6,2 say 'Сумма первоначального взноса не менее' get psl size

1,15

@ 7,2 say 'Сумма первоначального взноса не более' get ps2 size

1, 15

@ 8,2 say 'Дата закрытия счета не ранее' get pdz size 1,8

@ 9,2 say 'Дата закрытия счета не позже' get odz2 size 1,8

read cycle

release window w6

if empty(pnaim)

pnaim=' ' , else

pnaim^alltrim(pnaim) endif if empty(padr)

padr=' ' else

padr-alltrim(pack ) endif if .not.empty(ps2)

psll=ps2 endif if .not.empty(pdr2)

pdrl=pdr2 endif if .not.empty(pdz2 )

pdzl=pdz2 endif

17

select a

if psch='H'

set filter to pnaim$naim. and.padr$adr. and. ;

psl<=sl.and.psll>=sl.and. ;

pdr<=dr.and.dr<-pdrl.and. ;

pdz<-dz.and.dz<=pdzl endif if psch-'З'

set filter to pnaim$naim. and.padr$adr. and. ;

psl<=sl.and.psll>=sl.and.;

pdz<=dz.and.dz<=pdzl.and.ps=.f. endif if psch='0'

set filter to pnaim$naim. and.padr$adr. and . ;

psl<-sl.and.psll>=sl.and.;

pdr<=dr.and.dr<pdrl.and.ps=.t. endif go top do keys

return

*

procedure udalen

select a

delete

return

*

procedure otdel

do relkeys

define popup men from 5,24 title "esc-Выход"

define bar 1 of men prompt "Кредитный отдел"

define bar 2 of men prompt "Информационный отдел"

define bar 3 of men prompt "Валютный отдел"

on selection popup men do otd

do while.t.

activate popup men

if lastkey()-27

exit

endif

enddo

do keys

return

*

procedure otd

do case

case bar ()=0

return

case bar () =1

case bar () =2

case bar () =3

on key label f 7 do raschet

define window w2 from 0,0 lo 24,79 COLOR (col_ek)

activate window w2

@ 5,5 say 'Курс покупки' get kpp default 6.00

@ 7,5 say 'Курс продажи' get kpr default 6.20

read cycle

clear

txt-'Kypc покупки' +str (kpp, 4, 2 ) + ' Курс продажи

'+str (kpr, 4, 2) + ' < f7 >-Расчет'

@ 22, 3 say txt

select d

use valuta index vld

define window w21 from 0,0 to 21,79 COLOR (co_ek)

activate window w21

browse fields data : h= 'Дата ', osn:h ‘Остаток на

нач. дня' , kv: h= "Куплено валюты", ;

kr :h="3атраты на покупку в руб. " , pv: п="Продси: i: -

pr :h="Продано на сумму в pv6. ", osk:h="Oстаток на конец дня" , prib :h="Выручка" , ;

title 'Движение валюты'

release window w2,w21

endcase

return

*

procedure raschet

pkr-kv*kpp

ppr=pv*kpr

posk~osn+kv-pv

pprib=ppr-pkr

19

replace kr with pkr,pr with ppr,osk with posk, prid with pprib

pdata=data+l

skip

if eof ()

append blank endif

replace data with pdata,osn with posk return

20 Глава 3. АИТ обработки электронных таблиц. Система Excel 97.

Документы табличного вида составляют большую часть документооборота предприятия любого типа. Поэтому табличные ИТ особо важны при создании и эксплуатации ЭИС. Комплекс программных средств, реализующих создание, реги­страцию, хранение, редактирование, обработку электронных таблиц и выдачу их на печать, принято называть табличным процессором.

Электронная таблица представляет собой двухмерный массив строк и столб­цов, размещенный в памяти персонального компьютера.

Широкое распространение получили такие табличные процессоры, как SuperCalc, VisiCalc, Lotus 1-2-3, QuattroPro. Для Windows был создан процессор Excel, технология работы с которым аналогична работе с любым приложением Windows интерфейса W1MP.

Табличный процессор позволяет решать большинство финансовых и администра­тивных задач, например, таких, как расчет заработной платы и другие учетные за­дачи; прогнозирование продаж, роста рынка, доходов; анализ процентных ставок и налогов; подготовка финансовых деклараций и балансовых таблиц; ведение бух­галтерских книг для учета платежей; сметные калькуляции; учет денежных чеков; бюджетные и статистические расчеты и т.д.

Основной единицей электронной таблицы является имеющий имя рабочий лист, где она располагается. Место пересечения строки со столбцом называется ячейкой или полем. Существует два варианта адресации ячеек абсолютная и отно­сительная. Абсолютная адресация наиболее употребительна. Адресом ячейки (идентификатором) служат буква, указывающая столбец, и цифра, указывающая номер строки. И то, и другое видно на рабочем листе. При относительной адреса­ции в верхней строке состояния указывается приращение со знаком от начала ис­комой клетки. В нижней строке рабочего листа дается расшифровка выбранного действия меню. В верхней части располагаются меню действий, панели инстру­ментов и строка сумматора, где отражаются все производимые действия. Ширина столбца и высота строки даются по умолчанию. Однако, имеется возможность формирования ячейки, столбца, строки, листа. При этом можно изменить стиль текста, что позволяет улучшить внешний вид документа 6е i применения текстово­го редактора.

21

Данные в виде чисел, текста или формул вводятся в ту ячейку, которая от­мечена текстовым курсором. Для указания блока ячейки достаточно обозначить адрес левой верхней ячейки диагонали блока, адрес нижней правой ячейки диаго­нали или, наоборот, поставить между ними точку либо двоеточие. Кроме того, ка­ждый конкретный блок можно задать командой выделения.

Редактирование таблиц позволяет копировать, удалять, очищать ячейку, блок или лист и выполнять многие другие функции, перечисленные в меню дейст­вия. Можно также вставить в таблицу рисунок, график, диаграмму, любой другой объект, подготовленный другой компьютерной программой.

Большинство электронных таблиц имеют средства conn кия графиков и диа­грамм, средства из редактирования и включения в нужное место рабочего листа. Кроме того, в них имеется большое число встроенных функций - математических, статистических и др. Это существенно облегчает процесс вычислений и расширяет диапазон применения электронных таблиц. Пользователю предоставляется воз­можность переопределить панель инструментов, вид рабочего листа, изменить масштабирование, включить полосы прокрутки, переключатели и меню. Сервис­ные функции табличного процессора Excel позволяю! проверить орфографию тек­ста, защитить данные от чтения или записи.

Таким образом, табличные процессоры позволяю! создавать базы данных и предоставляют удобные средства работы с ними. При выполнении всех функций в процессоре Excel можно использовать многооконную сие (ему, позволяющую вы­полнять параллельные действия. Все объекты, созданные пользователем (сформи­рованные таблицы, схемы , сводные таблицы, макросы, выборки из базы, диаграм­мы и графики), можно сохранить на диске в виде файла или распечатать.

3.1. решение задачи в системе электронных таблиц excel 97