11558

Научиться создавать и применять функции и процедуры, освоить методы передачи параметров

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

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

Процедуры и функции Цель работы: Научиться создавать и применять функции и процедуры освоить методы передачи параметров. 1Текст задания Задание: Для условий лабораторной работы № 3 Условные операторы Задание А и Задание Б выполнить следующие требования: 1 Зада...

Русский

2013-04-08

40 KB

2 чел.

Процедуры и функции

Цель работы: Научиться создавать и применять функции и процедуры, освоить методы передачи параметров.

1)Текст задания

Задание:

Для условий лабораторной работы № 3 "Условные операторы" (Задание А и Задание Б) выполнить следующие требования:

1) Задание А оформить как процедуру VB, в которую передается для расчета значение аргумента функции.

2) Задание Б оформить как функцию VB, которая возвращает значение y = f(x) и в которую передается для расчета значение аргумента (x).

3) Создать глобальную переменную, в которую записывать результаты работы процедуры на основе Задания А (требование 1) и функции на основе Задания Б (требование 2).

4) Поместить процедуру (требование 1), функцию (требование 2) и глобальную переменную (требование 3) в отдельный модуль VB

5) В отдельном модуле VB (еще одном) создать процедуру, в которой выполняется вызов процедуры на основе задания А (требование 1), функции на основе Задания Б (требование 2) и глобальной переменной с результатами работы (требование 3)     

2) Алгоритм решения задания.

Процедура А


Процедура Б

 

Процедура вызова A, B, rez

3) Листинг (текст) программы.

1- Модуль:

Option Explicit

Public rez As String

Public Sub Zadanie_A(x As Double)

Dim y As Double

If (x > 0) Then

y = Log(x)

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

Else

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

End If

End Sub

Public Function Zadanie_B(x As Double) As Double

Dim y As Double

Select Case x

Case Is < -1

y = 1

Case Is <= 0

y = -2 * x + 1

Case Else

y = -1

End Select

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

Zadanie_B = y

End Function

2-Модуль

Option Explicit

Sub glavnaja()

Zadanie_A 1.2

MsgBox Zadanie_B(0.1)

MsgBox rez

End Sub

4)Результат работы.

 

Вывод: Мы научились создавать и применять функции и процедуры, освоили методы передачи параметров.


Начало

Конец

x

> 0

rez=y

Нет

Да

rez="В x функция не определена"

Начало

x

y = 1

y = -2 * x + 1

y = -1

х< -1

х<= 0

x  >0

Конец

Zadanie_B=y

rez=rez & y

Zadanie_B

x

Конец

rez

Начало

Zadanie_B(0,1)

Zadanie_A(1,2)


 

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

41653. Методы защиты информации. Шифр Цезаря 233.01 KB
  При шифровании исходного текста каждая буква заменяется другой буквой того же алфавита по следующему правилу. При достижении конца алфавита выполняется циклический переход к его началу.N – символы алфавита; N ширина алфавита. Пусть k – число позиций сдвига символов алфавита при шифровании 0 k N.
41655. Техника аудиовизуальных средств информации 11.25 MB
  В видеомонтаже важным понятием является понятие рендеринга. Рендеринг видео video rendering это процесс построения изображения каждого кадра по его описанию которое пользователь создает в процессе монтажа фильма. В видеоредакторах рендеринг производится для предварительного просмотра фильма или при его экспорте во внешний файл.
41657. Техника аудиовизуальных средств информации 17.18 MB
  Спецэффекты Для создания качественных видео фильмов в программе dobe Premiere имеется значительное количество различных спецэффектов. При этом существует два основных типа эффектов: статические и динамические. Перед тем как начать процесс редактирования клипов с помощью эффектов необходимо активировать соответствующие вкладки в окнах Medi Browser вкладка Effects и Source вкладка Effect Controls. На следующем этапе выделите нужный клип в монтажной области с помощью инструмента выделения в результате чего во вкладке Effect Controls...
41658. Защита информации, антивирусная защита. Эксплуатационные требования к компьютерному рабочему месту 185.58 KB
  Лист № докум. Подпись Дата Лист 1 Лабораторная работа № 3 Разраб. Листов 3 47Э1 Цель работы Ознакомиться с теоретическими аспектами защиты информации от вредоносных программ: разновидности вирусов способы заражения и методы борьбы. Лист № докум.
41659. РАБОТА В ПРОГРАММНОЙ СРЕДЕ MICROSOFT OUTLOOK 757.34 KB
  Программная среда Microsoft Outlook пришла на смену разнообразным видам бумажных носителей которые использовали руководители и секретари для организации своей работы. Сегодня для организации документов и отправки почты планирования задач встреч событий и собраний ведения списка контактов а также учета всех выполненных работ используется программа Microsoft Outlook. Информация в среде Outlook организована в виде папок аналогичных по назначению своим бумажным предшественникам.
41660. Поверка средств измерений 39.3 KB
  Поверка средств измерений Цели и задачи работы: Изучение правил организации и порядка проведения поверки средств измерения. Краткие сведения из теории: Поверкой средств измерений называют совокупность действий выполняемых для определения и оценки погрешностей средств измерений. Вид поверки определяют в зависимости от того какой метрологической службой проведена поверка от характера поверки инспекционная экспертная каков этап работы средства измерений первичная периодическая внеочередная. Организацию и поверку средств измерений...