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)


 

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

69427. Структура MS-DOS. Особливості організації файлової системи 18.85 KB
  Операційна система виконує такі функції: керування пам’яттю введенням-виведенням файловою системою взаємодією процесів; захист інформації; облік використання ресурсів оброблення командної мови; виявлення різних моментів що виникають у процесі роботи і відповідну реакцію...
69428. Команди для роботи з файлами та каталогами в MS-DOS 20.09 KB
  Існує два типи команд операційної системи MS DOS: внутрішні та зовнішні. Внутрішні команди – це найпростіші та найчастіше використовувані команди системи. Вони є частиною командного процесора COMMAND.COM і завантажуються...
69429. Код Хаффмена 74.5 KB
  Все кодируемые сообщения источника располагаются в столбец по убывающим вероятностям. Затем два наименее вероятных сообщения расположенных в последних строках столбца объединяются в одно которому приписывается суммарная вероятность.
69430. Код с проверкой по модулю q 88 KB
  Краткие теоретические сведения Принцип построения данного кода аналогичен по построению двоичного кода с одной проверкой на четность по mod 2. k информационные элементы кодовой комбинации принимающие значения от 0 до q1 то проверочный разряд b1 определяется суммой...
69431. Рекуррентный код 92 KB
  Последние формируются путем сложения по модулю 2 двух информационных посылок отстоящих одна от другой на шаг сложения k. Пусть имеем последовательность информационных посылок: 0 1 2. Тогда последовательность проверочных посылок...
69432. Код с простым повторением 89.5 KB
  В основу построения данного кода по аналогии с двоичным положен метод повторения исходной кодовой комбинации. Отличие qичного кода от аналогичного двоичного заключается в том что повторение кодовой комбинации qичного кода может производится параллельно во времени...
69433. Код Эллайеса 191 KB
  Цель: Изучить код Эллайеса выяснить особенности его построения и применения Краткие теоретические сведения Код Эллайеса как итеративный код содержит 2 системы проверок внутри каждой кодовой комбинации.
69434. Код Варшамова 157.5 KB
  Цель: Изучить код Варшамова выяснить особенности его построения и применения Краткие теоретические сведения Код предложенный Варшамовым является типичным представителем систематических кодов т. Благодаря этому возможно построить все комбинации кода...
69435. Коды Рида-Маллера 277 KB
  Эти m строк составляют векторы первого порядка b. Далее идут строки векторов второго порядка которые получаются из всех произведений двух строк первого порядка затем – строки третьего порядка являющиеся всеми произведениями трех строк первого порядка и т.