Пример N 3

SET TALK OFF

CLEAR

USE KADRZ

SET FORMAT TO KADRZ.FMT

CHANGE

SET FORMAT TO

CLEAR

DIMENSION OK(8),KN(8),DE(8),Z(8),P(8),N(8),S(8),B(4)

GO TOP

FOR I=1 TO 8

SCATTER FIELDS FAM,OKLAD,KND,DET TO A MEMO

IF I<8

SKIP

ENDIF

OK(I)=A(2)

KN(I)=A(3)

DE(I)=A(4)

Z(I)=1.15*(1.2*OK(I)*(20-KN(I))/20)

P(I)=Z(I)*0.01

N(I)=0.13*(Z(I)-P(I)-100*(1+DE(I)))

S(I)=Z(I)-P(I)-N(I)

ENDFOR

GO TOP

FOR I=1 TO 8

B(1)=Z(I)

B(2)=P(I)

B(3)=N(I)

B(4)=S(I)

GATHER FROM B FIELDS SZ,PF,PN,SN

IF I<8

SKIP

ENDIF

ENDFOR

dimension a (8)

a=0

define popup kadr prompt field kadrz. fam+;

iif(ascan(a, recno()) #0, '+', ' ') ;

title'отбор работников (до 8) 'footer 'завершение - space' color scheme 2

on selection popup kadr do otbor

clear

activate popup kadr

procedure otbor

do case

case lastkey () =13

i=ascan (a, recno ())

if i#0

a(i) =0

else

i=ascan (a, 0)

if i=0

wait 'отбор закончен' window nowait

return

endif

a(i) =recno()

endif

case lastkey () =32

=asort (a)

? 'фамилия общий заработок пен. Фонд под. налог сумма на руки'

?

for i=1 to 8

if a(i) #0

go a(i)

? fam, sz, pf, pn, sn

endif

endfor

deactivate popup

endcase

return

К О Н Т Р О Л Ь Н Ы Е З А Д А Н И Я

Вариант 1

1. FOXPRO. Создать базу данных «Библиотека» со сведениями: название книги, автор, год издания. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Название книги» и «Выход». При выборе PAD-пункта «Название книги» активизировать POPUP-меню для описания BAR-пунктов которого использовать поле NAME (название книги) базы данных «Библиотека» Разработать процедуру (OUTPUT) вывода информации по названию книги (автор, год издания) с использованием команды ? , которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет минимального семейного дохода для семьи из 2, 3, 4 , 5 и 6 человек в месяц в следующей последовательности: составить базу данных со сведениями: минимальные расходы на питание, одежду, коммунальные услуги для семьи из 2, 3, 4 , 5 и 6 человек, зарезервировать поле для занесения информации о минимальном семейном доходе после выполнения расчета; предусмотреть ввод выше перечисленной информации при помощи стандартного файла ввода информации; выполнить расчет минимального семейного дохода и результаты записать в базу данных и вывести на экран.

Вариант 2

1. FOXPRO. Создать базу данных «Ателье» со сведениями: заказчик, закройщик, название заказа, стоимость пошива. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Название заказа» и «Выход». При выборе PAD-пункта «Название заказа» активизировать POPUP-меню для описания BAR-пунктов которого использовать поле NAME (название заказа) базы данных «Ателье». Разработать процедуру (OUTPUT) вывода информации по названию заказа (заказчик, закройщик, стоимость заказа) с использованием команды ?? , которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет зарплаты 10-и ИТР для этого составить базу данных со сведениями: фамилия, оклад, количество детей и неявок на работу, зарезервировать поля для занесения результатов расчета (сумма заработка, отчисления в пенсионный фонд и подоходный налог, сумма на руки). Предусмотреть ввод минимальной оплаты труда и количества рабочих дней при помощи команды GET READ; выполнить расчет, результаты записать в базу данных и вывести на экран.

Вариант 3

1. FOXPRO. Создать базу данных «Музыкальные школы г. Уфы» со сведениями: номер музыкальной школы, адрес, телефон, каких специалистов готовит. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Музыкальные школы г. Уфы» и «Выход». При выборе PAD-пункта «Музыкальные г. Уфы» активизировать POPUP- меню для описания BAR-пунктов которого использовать поле NOM (номер музыкальной школы) базы данных «Музыкальные школы г. Уфы». Разработать процедуру (OUTPUT) вывода информации по номеру школы (адрес, телефон, каких специалистов готовит) с использованием команды ??, которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет зарплаты 10-и рабочим для этого составить базу данных со сведениями: фамилия, почасовая оплата труда, количество детей и неявок на работу каждого рабочего, зарезервировать поля для занесения результатов расчета (сумма заработка, отчисления в пенсионный фонд и подоходный налог, сумма на руки). Предусмотреть ввод минимальной оплаты труда и количества рабочих дней при помощи команды GET READ; выполнить расчет, результаты записать в базу данных и вывести на экран.

Вариант 4

1. FOXPRO. Создать базу данных «Спорттовары г. Уфы» со сведениями: номер магазина, адрес, телефон, перечень товаров их цена. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Спорттовары г. Уфы» и «Выход». При выборе PAD-пункта «Спорттовары г. Уфы» активизировать POPUP- меню для описания BAR-пунктов которого использовать поле NOM (номер магазина) базы данных «Спорттовары г. Уфы». Разработать процедуру (OUTPUT) вывода информации по номеру магазина (адрес, телефон, перечень товаров их цена) с использованием команды ? , которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет зарплаты 10-и шоферам в следующей последовательности: составить базу данных со сведениями: фамилия, оклад, надбавка за классность, количество детей и неявок на работу, зарезервировать поля для занесения суммы заработка, отчисления в пенсионный фонд и подоходный налог, суммы на руки после расчета; предусмотреть ввод минимальной оплаты труда, % премии и количества рабочих дней в текущем месяце при помощи команды GET READ; выполнить расчет зарплаты, результаты записать в базу данных и вывести на экран.

Вариант 5

1. FOXPRO. Создать базу данных «НИИ г. Уфы» со сведениями: НИИ, адрес, телефон, тематика института. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «НИИ г. Уфы» и «Выход». При выборе PAD-пункта «НИИ г. Уфы» активизировать POPUP- меню, для описания BAR-пунктов которого использовать поле НИИ. Разработать процедуру вывода информации по названию института с использованием команды ??.

2. Выполнить расчет стипендии в зависимости от суммы балов, полученных на экзаменах для этого: составить базу данных со сведениями: фамилия 10-и студентов, их оценки по 5-и предметам , зарезервировать поля для занесения результатов расчета (сумма баллов и сумма стипендии); предусмотреть ввод минимальной, средней и максимальной стипендии при помощи команды GET READ; выполнить расчет и результаты записать в базу данных и вывести на экран.

Вариант 6

1. FOXPRO. Создать базу данных «Города Башкирии» со сведениями: города, численность, вузы, кинотеатры, парки. Организовать BAR-меню с описанием PAD-пунктов (поиск, выход). Разработать процедуру поиска информации по названию вуза с использованием команды SEEК.

2. Выполнить расчет пенсии для 10-и мужчин для этого составить базу данных со сведениями: фамилия, средняя месячная зарплата за последние два года, количество отработанных лет, зарезервировать поля для занесения результатов расчета (средняя зарплата, пенсионный коэффициент, коэффициент трудового участия, сумма пенсии); предусмотреть ввод минимальной пенсии и средней российской заработной платы при помощи команды GET READ; выполнить расчет и результаты записать в базу данных и вывести на экран.

Вариант 7

1. FOXPRO Создать базу данных «Вузы города Уфы» со сведениями: вузы, адрес, телефон, каких специалистов готовит. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Название вуза» и «Выход». При выборе PAD-пункта "Название вуза" активизировать POPUP-меню, для описания BAR-пунктов которого использовать поле «название вуза». Разработать процедуру вывода информации по названию вуза(телефон, каких специалистов готовит) с использованием команды ??.

2. Выполнить расчет размера пенсии для 10-ых женщин в следующей последовательности: составить базу данных со сведениями: фамилия, средняя месячная зарплата за последние два года, количество отработанных лет, зарезервировать поля (для занесения результатов расчета) средняя зарплата, пенсионный коэффициент, коэффициент трудового участия, сумма пенсии; предусмотреть корректировку информации в базе данных при помощи стандартного файла ввода данных, выполнить расчет и результаты записать в базу данных и вывести на экран.

Вариант 8

1. FOXPRO. Создать базу данных «Техникумы г. Уфы» со сведениями: техникумы, адрес, телефон, каких специалистов готовит. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Техникумы г. Уфы» и «Выход». При выборе PAD-пункта «Техникумы г. Уфы» активизировать POPUP- меню, для описания BAR-пунктов которого использовать поле название техникума. Разработать процедуру вывода информации по названию техникума с использованием команды ?

2. Определить наращенную сумму вклада по простым и сложным процентам для 10-и вкладчиков (проценты насчитываются в конце года, по полугодиям, ежеквартально, непрерывно). Для этого составить базу данных со сведениями: фамилия вкладчиков, сумма и срок вклада, зарезервировать поля для занесения наращенных сумм (при начислении процентов в конце года, по полугодиям, ежеквартально, непрерывно) после выполнения расчета. Предусмотреть ввод банковской процентной ставки при помощи команды GET READ Результаты расчёта записать в базу данных и вывести на экран.

Вариант 9

1. FOXPRO Создать базу данных «Химчистки г. Уфы» со сведениями: номер химчистки, адрес, телефон, режим работы. Организовать BAR-меню с описанием PAD-пунктов(поиск, выход).Разработать процедуру поиска информации по номеру химчистки с использованием команды SEEK.

2. Определить сумму ежегодного погашения кредита для 10-и клиентов банка (кредит погашается равными суммами в конце года) в зависимости от суммы и срока погашения кредита и банковской процентной ставки. Банк начисляет сложные проценты на непогашенный остаток в конце года. Для этого составить базу данных со сведениями: фамилия клиентов, сумма и срок погашения кредита, зарезервировать поле для занесения суммы ежегодного погашения кредита после выполнения расчета. Предусмотреть ввод банковской процентной ставки при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 10

1. FOXPRO. Создать базу данных «Склад» со сведениями: перечень товаров, их цена, количество. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Перечень товаров» и «Выход». При выборе PAD-пункта «Перечень товаров» активизировать POPUP-меню, для описания BAR-пунктов которого использовать поле «перечень товаров». Разработать процедуру вывода информации по перечню товаров с использованием команды ?.

2. Определить современную стоимость облигаций у 10-и клиентов по нарицательной стоимости облигации, купонной ставки, срока погашения и рыночной нормы прибыли. Для этого составить базу данных со сведениями: фамилии клиентов, нарицательная стоимость и купонная ставка облигации, срок погашения, зарезервировать поле для занесения современной стоимости облигации после выполнения расчета. Предусмотреть ввод рыночной нормы прибыли при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 11

1.FOXPRO. Создать базу данных «Кинотеатры г. Уфы» со сведениями: кинотеатры, адрес, телефон, название кинокартины. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Название кинотеатра» и «Выход». При выборе PAD-пункта «Название кинотеатра» активизировать POPUP-меню, для описания BAR-пунктов которого использовать поле «кинотеатры». Разработать процедуру вывода информации по названию кинотеатра (адрес, телефон) с использованием команды ??.

2. Рассчитать текущую стоимость привилегированной акции у 10-х клиентов по номиналу акции, величине дивиденда (%) и рыночной норме прибыли. Для этого составить базу данных со сведениями: фамилии клиентов, номинал и величина дивиденда акции, зарезервировать поле для занесения текущей стоимости после выполнения расчета. Предусмотреть ввод рыночной нормы прибыли при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 12

1. FOXPRO. Создать базу данных «Театры г. Уфы» со сведениями: театры, адрес, телефон, название демонстрируемой пьесы. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Название театра» и «Выход». При выборе PAD-пункта «Название театра» активизировать POPUP-меню, для описания BAR-пунктов которого использовать поле название театра. Разработать процедуру вывода информации по названию театра (адрес, телефон) с использованием команды ?

2. Определить современную величину суммы, получаемую 10-ю клиентами в зависимости от величины суммы, через, сколько лет она будет получена, годовой процентной ставки банка. Для этого составить базу данных со сведениями: фамилии клиентов, через сколько лет и какую сумму они получат, зарезервировать поле для занесения современной величины суммы после выполнения расчета. Предусмотреть ввод банковской процентной ставки при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 13

1. FOXPRO. Создать базу данных «Города России» со сведениями: города численность, вузы, кинотеатры, парки города. Организовать BAR-меню с описанием PAD-пунктов ( поиск, выход). Разработать процедуру поиска информации по названию города с использованием команды SEEK.

2 За какой срок вклад Р руб. возрастёт до S руб. (для 10-и вкладчиков) при заданной банковской процентной ставке (проценты насчитываются в конце года, по полугодиям, ежеквартально, непрерывно). Для этого составить базу данных со сведениями: фамилии вкладчиков, первоначальная сумма вклада, и какую сумму они хотели бы иметь на счету, зарезервировать поле для занесения срока за который вклад Р руб. возрастёт до S руб после выполнения расчета. Предусмотреть ввод банковской процентной ставки и количество начислений в году при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 14

1. FOXPRO. Создать базу данных «Районы г. Уфы» со сведениями: районы, вузы, кинотеатры, парки. Организовать BAR-меню с описанием PAD-пунктов (поиск, выход) Разработать процедуру поиска информации по названию района с использованием команды SEEK.

2. Для 10-и проектов вычислить внутреннюю норму доходности (IRR) и чистый приведённый эффект (NPV) по заданной цене капитала. Для этого составить базу данных со сведениями: номера проектов, инвестиционное вложение, ежегодный генерируемый доход, жизненный цикл проекта, зарезервировать поля для занесения внутренней нормы доходности и чистого приведённого эффекта после выполнения расчета. Предусмотреть ввод цены капитала при помощи GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 15

1. FOXPRO. Создать базу данных «Технические училища г. Уфы» со сведениями: училища, адрес, телефон, каких специалистов готовит. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Технические училища» и «Выход». При выборе PAD-пункта «Технические училища» активизировать POPUP- меню, для описания BAR-пунктов которого использовать поле «училища». Разработать процедуру вывода информации по названию училища с использованием команды ?.

2. Определить реальную доходность финансовой операции, если при уровне инфляции r_и % в месяц выдаётся кредит на n лет при заданной банковской % ставке. Для этого составить базу данных со сведениями: номер финансовой операции, срок кредита, зарезервировать поле для занесения реальной доходности финансовой операции после выполнения расчета. Предусмотреть ввод процента инфляции в месяц и банковской процентной ставки при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран.

Вариант 16

1. FOXPRO. Создать базу данных «Поликлиника» со сведениями: терапевт, больной, диагноз заболевания. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Фамилия больного» и «Выход». При выборе PAD-пункта «Фамилия больного» активизировать POPUP-меню, для описания BAR-пунктов которого, использовать поле «фамилия больного». Разработать процедуру вывода информации по фамилии больного с использованием команды ?.

2. Заём в размере P руб. (10 вариантов). Определить продолжительность погашения, если заёмщик собирается погашать по PL руб. в год. Для этого составить базу данных со сведениями: номер варианта, (P, PL) для каждого варианта, зарезервировать поле для занесения продолжительности погашения после выполнения расчета. Предусмотреть ввод годовой процентной ставки банка, количества начисления процентов в году при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран..

Вариант 17

1. FOXPRO. Создать базу данных «Музыкальные школы г. Уфы» со сведениями: музыкальные школы адрес, телефон, каких специалистов готовит. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Музыкальные школы г. Уфы» и «Выход». При выборе PAD-пункта «Музыкальные г. Уфы» активизировать POPUP- меню для описания BAR-пунктов которого использовать поле музыкальные школы базы данных. Разработать процедуру (OUTPUT) вывода информации по названию музыкальной школы (адрес, телефон, каких специалистов готовит) с использованием команды ??

2. Имеется два вида аннуитета (10 вариантов) а) величина платежа P₁ руб., процентная ставка ® r₁ % годовых, срок ® n₁ лет. б) величина платежа P₂ руб., процентная ставка ® r₂% годовых, срок ® n₂ лет. Требуется заменить одним – со сроком n₃ лет и процентной ставкой ® r₃% и определить величину платежа. Для этого составить базу данных со сведениями: номер варианта (P₁, r₁, n₁ P₂, r₂, n₂ r₃,, n₃) для каждого варианта, зарезервировать поле для занесения величины платежа (при процентной ставке r₃ % годовых и сроке ® n₃ лет) после выполнения расчета. Предусмотреть ввод количества начислений процентов в году при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран

Вариант 18

1. FOXPRO. Создать базу данных «Дворцы г. Уфы» со сведениями: дворцы, адрес, телефон, какой организации принадлежит. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Дворцы г. Уфы» и «Выход». При выборе PAD-пункта «Дворцы г. Уфы» активизировать POPUP- меню для описания BAR-пунктов которого использовать поле «название дворца» базы данных. Разработать процедуру (OUTPUT) вывода информации по названию дворца (адрес, телефон, какой организации принадлежит) с использованием команды ?.

2. Клиенты (их 10) намерены в течении n лет ежегодно вкладывать по Р рублей на покупку облигаций с купонной доходностью q. Определить сумму к получению в конце периода при заданной банковской процентной ставке. Для этого составить базу данных со сведениями: фамилии 10 клиентов (P, q,n) (для каждого клиента), зарезервировать поле для занесения суммы к получению в конце периода после выполнения расчета. Предусмотреть ввод банковской процентной ставки при помощи команды GET READ. Выполнить расчёт, результаты записать в базу данных и вывести на экран..

Вариант 19

1. FOXPRO. Создать базу данных «Легковые автомобили» со сведениями: марка, цена, мощность двигателя, вес. Организовать двух уровневое меню. В BAR-меню описать два PAD-пункта: «Легковые автомобили» и «Выход». При выборе PAD-пункта «Легковые автомобили» активизировать POPUP- меню для описания BAR-пунктов которого использовать поле «марка автомобиля» базы данных. Разработать процедуру OUTPUT вывода информации по марке автомобиля (цена, мощность двигателя, вес) с использованием команды ?,.

2. Какова должна быть величина сложной ставки ссудного процента, чтобы первоначальный вклад P увеличился в qраз за n лет (расчёт выполнить для 10 вариантов). Для этого составить базу данных со сведениями: номер варианта (P, q,n) для каждого варианта, зарезервировать поле для занесения величины сложной ставки ссудного процента после выполнения расчета. Предусмотреть ввод количества начислений процента в году при помощи команды GET READ. Выполнить расчёт и результаты записать в базу данных и вывести на экран

Вариант 20

1. FOXPRO. Создать базу данных «Школы г. Уфы» со сведениями: школы, адрес, телефон, фамилия директора. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Школы г. Уфы» и «Выход». При выборе PAD-пункта «Школы г. Уфы» активизировать POPUP- меню, для описания BAR-пунктов которого использовать поле «школы» базы данных. Разработать процедуру (OUTPUT) вывода информации по названию школы (адрес, телефон) с использованием команды ?.

2 Клиенты (их 10) решили приобрести пенсионный контракт, по которому они могли бы получать ежегодно по P рублей в течение оставшейся жизни. Страховая компания, используя таблицы смертности, оценила, что каждый клиент сможет прожить n лет, и установила r₁% годовых. Сколько нужно заплатить за контракт при заданной банковской процентной ставке? Для этого составить базу данных со сведениями: фамилия 10 клиентов (Р, n, r₁) для каждого клиента, зарезервировать поле для занесения цены контракта после выполнения расчета. Предусмотреть корректировку информации при помощи стандартного файла ввода данных. Выполнить расчёт, результаты записать в базу данных и вывести на экран.