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

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

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

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

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

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

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

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

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

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

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

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

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

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