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)


 

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

42086. Измерение коэффициента нелинейных искажений 160 KB
  Ознакомиться с техническими описаниями и инструкциями по эксплуатации применяемых в работе приборов: измерителя нелинейных искажений ИНИ осциллографа. Собрать схему исследования нелинейных искажений для чего подать напряжение на вход четырёхполюсника от генератора сигналов встроенного в ИНИ выход четырёхполюсника соединить со входом ИНИ и осциллографа. Измерители нелинейных искажений измеряют непосредственно коэффициент .
42087. Створення Delphi-проекта з використанням компонентів-кнопок 79.82 KB
  Форма проекту повинна відтворювати зовнішній вигляд калькулятора за допомогою компонентів кнопок класу TBitBtn. Тоді до властивості Cption кнопок можна звернутися таким чином: Sender s TBitBtn.ТЗ Код програми...