Студопедия — Решение. Алгоритм (блок-схема) решения задачи:
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Решение. Алгоритм (блок-схема) решения задачи:






Алгоритм (блок-схема) решения задачи:

Процедура Zadanie_A

Функция Zadanie_B

Процедура вызова Zadanie_A, Zadanie_B, rez

Программа:

Модуль 1:

Option Explicit

' Требование обязательного объявления переменных

Public rez As String

' Объявление глобальной (доступной во всех модулях)

' переменной по имени rez для хранения результатов

 

Public Sub Zadanie_A(x As Double)

' Объявление глобальной (доступной во всех модулях)

' процедуры по имени Zadanie_A, для работы которой

' требуется один входной параметр, хранимый в переменной x

Dim y As Double

' Объявление локальной (доступной только в текущей процедуре)

' переменной по имени y для хранения вещественных чисел

If (x > 1 And x <= 2) Then ' Проверка условия для расчета

y = Sqr((2 - x) / Log(x))

' Запись результата расчета в локальную переменную

rez = "Задание А: В x = " & x & " y = " & y

' Запись в глобальную переменную результатов расчета

Else

rez = "Задание А: В x = " & x & " функции нет"

' Запись в глобальную переменную результатов расчета

End If

End Sub ' Завершение объявления процедуры Zadanie_A

 

Public Function Zadanie_B(x As Double) As Double

' Объявление глобальной (доступной во всех модулях)

' функции по имени Zadanie_B, возвращающей

' значение типа вещественного числа. Для работы функции

' требуется один входной параметр, хранимый в переменной x

Dim y As Double

' Объявление локальной (доступной только в текущей функции)

' переменной по имени y для хранения вещественных чисел

Select Case x

' Оператор Select для выполнения расчета и записи результата

' в локальную переменную y

Case Is < 0

y = x + 1

Case Is <= 1

y = Sqr(1 - x * x)

Case Else

y = 0

End Select ' Завершение оператора Select

rez = rez & Chr(13) & "Задание Б: В х = " & x & " y = " & y

' Дописывание в глобальную переменную результатов расчета

Zadanie_B = y

' Запись из локальной переменной y в функцию Zadanie_B значения для возврата его в месте вызова функции (Zadanie_B)

End Function ' Завершение объявления функции Zadanie_B

 

Модуль 2:

Option Explicit

' Требование обязательного объявления переменных

Sub glavnaja() ' Объявление процедуры по имени glavnaja

Zadanie_A 1.2

' Вызов (выполнение) процедуры Zadanie_A с переданным ей

' параметром равным 1.2

MsgBox Zadanie_B(0.1)

' Отображение значения, возвращаемого функцией Zadanie_B,

' после ее вызова с переданным параметром равным 0.1

MsgBox rez

' Отображение значения глобальной (доступной во всех

' модулях) переменной rez

End Sub

Результаты работы программы:

Вызов процедуры glavnaja:







Дата добавления: 2015-10-15; просмотров: 343. Нарушение авторских прав; Мы поможем в написании вашей работы!



Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

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

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

Правила наложения мягкой бинтовой повязки 1. Во время наложения повязки больному (раненому) следует придать удобное положение: он должен удобно сидеть или лежать...

ТЕХНИКА ПОСЕВА, МЕТОДЫ ВЫДЕЛЕНИЯ ЧИСТЫХ КУЛЬТУР И КУЛЬТУРАЛЬНЫЕ СВОЙСТВА МИКРООРГАНИЗМОВ. ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА БАКТЕРИЙ Цель занятия. Освоить технику посева микроорганизмов на плотные и жидкие питательные среды и методы выделения чис­тых бактериальных культур. Ознакомить студентов с основными культуральными характеристиками микроорганизмов и методами определения...

САНИТАРНО-МИКРОБИОЛОГИЧЕСКОЕ ИССЛЕДОВАНИЕ ВОДЫ, ВОЗДУХА И ПОЧВЫ Цель занятия.Ознакомить студентов с основными методами и показателями...

Studopedia.info - Студопедия - 2014-2024 год . (0.009 сек.) русская версия | украинская версия