11558

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

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

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

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

Русский

2013-04-08

40 KB

3 чел.

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

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

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)


 

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

49003. ПОСТАНОВКА ДИАГНОЗА АТОПИЧЕСКОГО ДЕРМАТИТА У ДЕТЕЙ 974 KB
  Искусственные нейронные сети Выбор объема сети Выбор архитектуры сети География исследовательских групп применяющих нейросети для разработки медицинских приложений очень широка.
49004. РАЗРАБОТКА СМК ДЛЯ ПАССАЖИРСКОГО ВАГОННОГО ДЕПО 1.02 MB
  Список используемой литературы Приложение Структура управления пассажирского вагонного депо. Приложение Реестр процессов пассажирского вагонного депо Приложение Политика депо в области качества.
49005. Методика викладання хімії 118.32 KB
  Діяльність вчителя, яка представляє собою передачу знань, умінь та навичок учням, організація їх самостійної роботи по набуттю знань и навичок, формування наукового світогляду та поведінки, керівництво й управління процесом підготовки учнів до життя в суспільстві
49006. Саздание программы на языке программирования Паскаль 254 KB
  Результаты расчетов должны выводиться на экран и в файл. Оформление графиков и таблиц выполнять средствами математических пакетов (Maple, MathCad). Демонстрационный вариант программы подготовить в среде визуального программирования Delphi.
49007. Логистическая система предприятия ООО «Евроторг» 1.35 MB
  ООО «Евроторг» является юридическим лицом, имеет обособленное имущество (его составляют основные фонды и оборотные средства, а также иные ценности, стоимость которых отражается в балансе организации), самостоятельный баланс
49008. АУДИТОРЛЫҚ ҚЫЗМЕТТIҢ АҚПАРАТТЫҚ ТЕХНОЛОГИЯЛАРЫ 26.85 KB
  Аудиторлық қызметтiң компьютерлік ақпараттық жүйесiнiң (КАЖ) атқарымдық есептерi. Аудиторлық қызметтегі автоматтандырылған ақпараттық технологиялар (ААТ). Аудиторлық қызметтегі автоматтандырылған ақпараттық технологияларды (ААТ) программалық қамтамасыз ету
49009. Философия. Философские взгляды 80.54 KB
  История философии, во-первых, есть история единой попытки людей философствовать и посредством философии узнавать о себе и о мире то, чего без философии узнать нельзя. Во-вторых, история философии - многогранное единство человеческого опыта.
49010. Проектування установки для наплавлення 829 KB
  Виходячи з масогабаритних показників деталі а також обраного матеріалу для наплавлення обирається тип основного та допоміжного обладнання. Потім проводиться розрахунки механізму подачі матеріалу що наплавляється механізму пересування апарату а також розрахунок механізму підйому інструменту для наплавлення. На підставі цих розрахунків обирається стандартне обладнання проектується необхідна установка для наплавлення.
49011. Технология изготовления ходовых винтов 941 KB
  В металлорежущих станках, прессах и других машинах, где винтовые механизмы служат для преобразования вращательного движения в поступательное, применяют ходовые винты. Различают ходовые винты скольжения с прямоугольной, трапецеидальной и треугольной резьбой и ходовые винты качения полукруглой или арочной формы.