16330

Программирование алгоритмов разветвляющейся структуры

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 2 Программирование алгоритмов разветвляющейся структуры Цель: приобретение навыков программирования алгоритмов разветвляющейся структуры с помощью пользовательской подпрограммыпроцедуры где на определенном этапе производится выбор очеред...

Русский

2013-06-20

293 KB

17 чел.

Лабораторная работа № 2

Программирование алгоритмов разветвляющейся структуры

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

Индивидуальные варианты лабораторной работы № 2 представлены в таблицах 3, 4 (2 часа)

Перед  выполнением  лабораторной работы № 2  разберите

примеры 3, 4, 5

Пример 3

Постановка задачи. Создать в стандартном модуле пользовательскую процедуру вычисления уравнения вида ax2 + bx + c = 0.

Технология выполнения задания:

1. Исходные данные:

a, b, c  R

Результат: х1, х2  R.

2. Набрать в стандартном модуле проекта следующую пользовательскую процедуру:

Для этого выполним:

  1.  Excel - Сервис – Макрос – Редактор Visual Basic; загрузить Excel и редактор VBA
  2.  View – Project Explorer; открыть окно проекта
  3.  Сделать активным Лист1;
  4.  Insert –Procedure – Sub – Private – имя yravnenie; вставить процедуру (Sub) на Лист1
  5.  Набрать в открывшемся модуле процедуру:

Private Sub yravnenie ()

a = InputBox("a=", a)

b = InputBox("b=", b)

c = InputBox("c=", c)

d = b ^ 2 - 4 * a * c

If d >= 0 Then

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

MsgBox (x1)

MsgBox (x2)

Else

MsgBox ("Решений нет")

End If

End Sub

3. Запустить модуль F5. Вычислить корни квадратного уравнения при произвольных исходных данных.


Пример 4
 

Постановка задачи. Создать в стандартном модуле пользовательскую функцию нахождения максимального среди трех заданных чисел y1 = a+2*b; y2 = a*b+c; y3 = c2 + 1.

Технология выполнения задания:

1. Исходные данные:

a, b, c  R

Результат: Max  R.

2. Набрать в стандартном модуле проекта следующую пользовательскую функцию:

Для этого выполним:

  1.  Excel - Сервис – Макрос – Редактор Visual Basic; загрузить Excel и редактор VBA
  2.  View – Project Explorer; открыть окно проекта
  3.  Insert – Module; вставить модуль (Module1);
  4.  Набрать в открывшемся модуле функцию:

Function y(a,b,c)

y1 = a+2*b

y2 = a*b+c

y3 = c^2+1

If y1 > y2 Then

If y1 > y3 Then y = y1 Else y = y3

Else

If y2 > y3 Then y = y2 Else y = y3

End If

End Function

3. Перейти в окно Excel. Вычислить корни квадратного уравнения при произвольных исходных данных. Для этого выбрать Вставка – Функция -Определенные пользователем - у

Пример 5

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

Правила расчета комиссионных

Объем продаж за неделю, р.

Комиссионные, %

От 0 до 9999

8

От 10000 до 19999

10

От 20000 до 39999

12

Более 40000

14


Технология выполнения задания:

1. Исходные данные:

Продажи  Z.

Результат: Комиссионные  R.

2. Построить для расчета комиссионных в стандартном модуле пользовательскую функцию: см. пример 4, только вставьте новый модуль (Module2)

Function Комиссионные (Продажи)

If Продажи <= 9999 Then

   Комиссионные = Продажи * 0.08

ElseIf Продажи <= 19999 Then

   Комиссионные = Продажи * 0.1

ElseIf Продажи <= 39999 Then

   Комиссионные = Продажи * 0.12

Else

   Комиссионные = Продажи * 0.14

End If

End Function

3. Вычислить.

Таблица 3

№ В

Варианты индивидуальных заданий

Разработать процедуру пользователя,  вычисляющую значение функции

1

a=2.85, b=1.56, x=0.63

2

=12.5, =0.03, x=5.256

3

a=8.7, b=-5.2, x=8.1

4

x=1.204, a=0.8

5

6

a=3.08, x=-0.004

7

8

a=16.01, b=18.1, x=5.93

9

=7.02, =16.02, x=1.085

10

x=2.4, a=2.65, b=4.24, c=1.83

11

a=0.36, b=1.18, x=1.16

12

x=0.12, a=0.111, b=0.348

13

14

15

16

17

18

19

x=-0.37

20


Таблица
4

№ В

Варианты индивидуальных заданий

Разработать экономическую функцию пользователя

1

Вычислить надбавку к зарплате сотрудника предприятия в зависимости от стажа его работы. Значения рассчитать по формулам:

Стаж работы = (Текущая дата – Дата поступления на работу)/365. Результат округлить до целого. Значение зарплаты подобрать самостоятельно.

Надбавка =

2

Вычислить годовой подоходный налог с физических лиц.

Принята следующая налоговая сетка:

Доход

%

налога

от:

до:

0

10000

12%

10001

30000

18%

30001

60000

25%

60001

и выше

35%

 

3

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

Объем продаж за неделю, р.

Комиссионные, %

От 0 до 29 999

3

От 30 000 до 59 999

4,5

От 60 000 до 119 999

6,8

Свыше 120 000

7,4

 

4

Вычислить сдельную зарплату работника, а также сумму налога и сумму на руки. Значения рассчитать по формулам:

<зарплата> = <обработано деталей> * <стоимость работы> - <деталей брака>*<стоимость детали>.

Налог исчисляется в зависимости от зарплаты: если она выше 5000 р. – налог составляет 20%, если нет – 13%.

Стоимость работы:

80

Стоимость детали:

200

5

Вычислить эффект мультипликатора (M) по формуле

M=Q/D,

где   Q - объем производства;

  D - национальный доход.

В зависимости от результата вывести на экран следующие сообщения:

для получения высоких результатов необходимо повысить объёмы производства (M=1);

необходимо снизить объём национального дохода (M<1);

вы добились успехов: эффект мультипликатора работает (M>1).

6

Вычислить зарплату с учетом увеличивающегося подоходного налога и числа детей.

Значения рассчитать по формулам:

<сумма обложения>=<доход>-<детей>*<миним.зарплата>

<налог>=<процент налога>*<сумма обложения>.

<сумма на руки> = <сумма обложения> – <налог>

Процентная ставка налога

Доход, р.

% налога

от 0 до 1 999

0

от 2000 до 3 999

12

от 4000 до 5 999

15

от 6000 до 9 999

20

свыше 10 000

30

7

Составить программу, позволяющую произвести расчет зарплаты медсестры кардиологического отделения с окладом 1 категории по единой тарифной сетке, при условии, что если количество отработанных часов (t) равно 160, то

z=1345.5*160-(s+k-75900)*12%-1%-1%-5.4%, иначе

z=1345.5*t-(s+k-75900)*12%-1%,

где   z - зарплата;

        s - оклад;

        к - уральский коэффициент.

8

Банковский процент зависит от величины вклада следующим образом:

Процент

10%

12%

14%

17%

20%

Вклад

до 10000

от 10000 до 20000

от 20000 до 30000

от 30000 до 40000

свыше 40000

9

С помощью мультипликатора Кейнса рассчитать величину инвестиций в данный период.

k=1/(1-mc), если mc=1, то k=1/ms

I=K/MS,

где

I - инвестиции;

ms - склонность к сбережениям:

ms = (s2-s1)/(y2-y1), (s2-s1) - изменение величины сбережений;

y2-y1 - изменение величины дохода;

k - мультипликатор Кейнса: k =1/ms =1/(1-mc);

mc - склонность к потреблению: mc =(c2-c1)/(y2-y1);

(c2-c1) - изменение расходов на потребление.

10

Рассчитать годовой экономический эффект G,

G = [(S1+E*K1)-(S2+E*K2)]*O,

если цена реализации единицы продукции в новом варианте - P2 равна цене реализации единицы продукции в базисном варианте - P1, иначе

G = [(S1+E*K1)-(S2+E*K2)+(P2-P1)]*O,

где S1, S2 - себестоимость единицы продукции по базисному и новому варианту;

K1, K2 - удельные капитальные вложения в базисном и новом варианте;

E - нормативный коэффициент эффективности капитальных вложений;

O - объём применений результатов научных исследований.

11

Определить цену продажи 10000 единиц продукции, если известны затраты на их производство; причем, если себестоимость 1 единицы < 600 рублей, то надбавка составит 300 рублей, если себестоимость 1 единицы продукции будет >= 600 рублей, то продавать будут на 400 рублей дороже.

Формула:

себестоимость 1 единицы = общая сумма затрат/кол-во единиц,

где S - себестоимость 1 единицы;

     Z - затраты;

   Zp - цена продажи 1 единицы.

12

Некоторым категориям жильцов положена скидка при оплате квартплаты: инвалидам – 70%, участникам войны – 50%, многодетным – 25%. Номинальная квартплата известна. Вычислить квартплату.

13

На фирме производство характеризуется следующими показателями а = 167, р = 12, б = 1654, с1 = 165, т = 154, ц = 176 натуральных единиц. Однако произошло сокращение производства. Если к1 меньше 1, тогда прибыль рассчитать по формуле:

р = ц-((а+с1+т)/(б*к1)),

в противном случае правительством повышаются нормы амортизованных списаний, следовательно прибыль рассчитывается по формуле:

р = ц-((а*р+с1+т*k1)/(k1*б)).

14

Выполнить расчеты по страхованию дома от пожара на садовом участке. Страховой взнос равен 3% от стоимости кирпичного дома. Если дом деревянный, страховка составляет 5% при наличии в непосредственной близости (на расстоянии до 20 м) водоема. Если ближайший водоем находится на расстоянии до 400 м – страховка деревянного дома увеличивается до 7%, если до 2000 м – до 10%, если более – до 15%.

15

На фирме производство характеризуется следующими показателями:

С - цена единицы продукции, С=100000;

А - амортизационные отчисления, А=200;

з.пост - постоянные затраты, з.пост = 50;

з.пер - переменные затраты, з.пер = 100;

В - выпуск продукции, В = 100.

Рассчитать прибыль производства П, если при коэффициенте сокращения производства k=0.7

П = С-(А+з.пост+з.пер*k)/k*В, иначе

П = С-(k*А+з.пост+0.7*з.пер)/0.7*В

16

Определить минимальную стоимость билета для пассажира, следующего на заданное расстояние, стоимость билета с учетом выбранного вида вагона и поезда. Перемещение на скором поезде увеличивает стоимость билета на 20%, размещение в плацкартном вагоне – на 25%, а в купейном – на 35%. Далее следует установить окончательную стоимость билета. Его стоимость может быть снижена, если пассажир следует на дальнее расстояние. При длине маршрута от 500 до 1500 км скидка составляет 5% от полной стоимости билета, при расстоянии до 5000 км – 7%, если расстояние больше – 10%.

17

Найти значение кредита в рублях, который может выдать банк заемщику. Для ежемесячного дохода от $100 кредит может составить 1000% от заработка, для дохода от $500 – 3000%, для дохода от $1000 – 6000% и от $3000 – 7000%.

18

Расчет с постоянными клиентами-покупателями, которым товар отпускается в кредит. Вычислить величину кредита, которая зависит от его длительности. При сроке свыше 5-и дней – это 2% от исходной стоимости, свыше 10-и – 4%, свыше 15-и и еще по 1% за каждый день после 15-го. При задержке в оплате свыше 20-го дня должно появляться слово «Звонить».

19

Расчет страхования имущества от кражи, пожара и протечки. Клиент может застраховаться на любую Страховую сумму, для чего делает Страховой взнос в размере 10% от страховой суммы, если имущество страхуется от пожара, 8% - если от протечки, 7% - от кражи. Страховка от кражи снижается на 1% при наличии стальной двери и еще на 2%, если в подъезде имеется вахтер.

20

Расчет страхования жизни. Клиент может застраховаться на любую Страховую сумму, для чего делает Взнос в размере, зависящем от возраста застрахованного (до года – 10% от страховой суммы, от года до пяти – 8%, от пяти до 20 лет – 5%, от 20 до 45 лет -3%, от 45 до 50 лет – 5%, от 50 до 65 лет – 8%. Лица старше 65 лет вносят 10% и еще по одному проценту за каждый год после 65-ти лет.


 

А также другие работы, которые могут Вас заинтересовать

25922. Газовое реле. Принцип работы. Область применения 44 KB
  Использование масла решает проблему охлаждения однако создаёт новую проблему связанную с повышенной опасностью эксплуатации электрического аппарата. В случае повреждения токоведущих частей например при коротком замыкании между обмотками трансформатора масло начинает нагреваться происходит усиленное газообразование резко поднимается давление масла в баке что может привести к взрыву сопровождающемуся пожаром. Принцип действия [Расширитель масляного бака В процессе эксплуатации аппарата уровень масла в баке может меняться. Расширитель...
25923. Промежуточные реле. Указательные реле. Принцип работы. Область применения 22.5 KB
  Промежуточные реле. Указательные реле. Реле промежуточные предназначены для коммутации электрических нагрузок в цепях переменного и постоянного тока в схемах устройств релейной защиты противоаварийной и системной автоматики электроэнергетических объектов промышленной аппаратуре различного назначения и являются комплектующими изделиями. Могут использоваться в качестве вспомогательных реле в цепях постоянного тока.
25924. Магнитоуправляемые герметизированные контакты (герконы). Сухие язычковые герконы. Смоченные (жидкометаллические) язычковые герконы. Герконовые реле. Конструктивные особенности. Область применения 21 KB
  Герконовые реле. МК помещенный в герметизированный баллон называется герконом Герконовые реле могут содержать один или несколько МК; одну или несколько обмоток или шин; поляризующие постоянные магниты ПМ; дополнительные ферромагнитные детали играющие роль магнитопровода кожуха магн. На основе МК создают и многоцепные реле располагая например в обмотке несколько коммутационных элементов. Существуют конструкции герконовых реле и с внешним по отношению к обмотке расположением МК.
25925. Контроллеры, командоаппараты, реостаты. Определения. Область применения 33 KB
  КОМАНДОАППАРАТ электрический аппарат для различного рода переключений электрических цепей в системах управления объектами или технологическими процессами. Простейшие командоаппараты кнопки управления концевые выключатели контроллеры. Командоаппараты предназначены для автоамтического дистационного управления электроприводами в качестве путевых конечных выключателей где требуется особая точность и надежность управления.Командоаппараты рассчитаны для работы в цепях управления постоянного тока напряжением до 440 В и до 380 В переменного...
25927. Контакторы электромагнитные. Назначение контакторов. Контакторы постоянного и переменного тока. Конструктивные особенности. Выбор контакторов 42 KB
  Контакторы постоянного и переменного тока. Классификация электромагнитных контакторов Общепромышленные контакторы классифицируются: по роду тока главной цепи и цепи управления включающей катушки постоянного переменного постоянного и переменного тока; по числу главных полюсов от 1 до 5; по номинальному току главной цепи от 15 до 4800 А; по номинальному напряжению главной цепи: от 27 до 2000 В постоянного тока; от 110 до 1600 В переменного тока частотой 50 60 500 1000 2400 8000 10 000 Гц; по номинальному напряжению включающей...
25928. Магнитные пускатели. Назначение пускателей. Схема включения. Выбор пускателей 24.5 KB
  Магнитные пускатели. Характеристики пускателей Современные магнитные пускатели классифицируются: по назначению нереверсивные реверсивные наличию или отсутствию тепловых реле и кнопок управления степени защиты от воздействия окружающей среды уровням коммутируемых токов рабочему напряжению катушки. Магнитные пускатели применяются для управления электрическими нагрузками в диапазоне мощностей от 75 до 80 кВт. Чаще всего пускатели располагают максимальной защитой от перегрузок недопустимой продолжительности и от токов повышенной...
25929. Виды щелей дугогасительных устройств. Перемещение дуги под воздействием магнитного поля. Гашение дуги с помощью дугогасительной решетки. Виды дугогасительных решеток 33 KB
  Перемещение дуги под воздействием магнитного поля. Гашение дуги с помощью дугогасительной решетки. Дугогасительное устройство узел высоковольтного выключателя предназначенный для гашения электрической дуги которая возникает на контактах выключателя при размыкании цепи. Гашение дуги в Д.
25930. Способы гашения электрической дуги. Область применения 47.5 KB
  Способы гашения электрической дуги. Способы гашения дуги в коммутационных аппаратах до 1 кВ. Удлинение дуги при быстром расхождении контактов: чем длинее дуга тем большее напряжение необходимо для ее существования. Деление длинной дуги на ряд коротких дуг.