ПОЗНАВАТЕЛЬНОЕ

Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.

Отёска стен и прирубка косяков - Когда на доме не достаёт окон и дверей, красивое высокое крыльцо ещё только в воображении, приходится подниматься с улицы в дом по трапу.

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

Программный код для процедуры-функции

МОСКОВСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ СВЯЗИ И ИНФОРМАТИКИ

КАФЕДРА ИНФОРМАТИКИ

ИНФОРМАТИКА

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

Тема 4.3.

«Структура VB-программ и процедуры.

Средства программирования алгоритмов линейной структуры»

Выполнила студентка группы БИК1305

Сидорова Ольга Александровна

Вариант 27

Москва, 2013

Тема и название работы:

Структура VB-программ и процедуры. Средства программирования алгоритмов линейной структуры – Вычисление периметра и площади треугольника по заданным координатам трех его вершин.

Задание:

Часть 1

1.1. Для первой части задания выбрать вариант из таблицы 4.2-1 по усмотрению преподавателя.

1.2. Для выбранного варианта разработать три процедуры пользователя для вычисления заданного арифметического выражения: процедуру-функцию с формальными параметрами, процедуру-подпрограмму с формальными параметрами и процедуру без параметров (передача данных через глобальные объекты).

1.3. Разработать алгоритмы решения заданной задачи и представить их в виде схем алгоритмов.

1.4. Создать решение, содержащее три проекта, каждый из которых использует модуль формы, одну из разработанных в п.2 процедур пользователя, вычисляющую заданное арифметическое выражение, и событийную процедуру, в которой осуществляется ввод исходных данных, вызов процедуры п.2 и вывод результатов.

1.5. Выполнить созданные проекты и получить результаты.

1.6. Выполнить созданные проекты по шагам, с помощью отладчика, поставив точку останова после ввода данных

Часть 2

2.1. Выбрать вариант задания из таблицы 4.3-1 по усмотрению преподавателя.

2.2. Записать заданные или полученные в процессе формализации математические формулы в виде арифметических выражений.

2.3. Разработать алгоритм решения заданной задачи и представить его в виде схем алгоритмов.

2.4. Создать проект, использующий модуль формы, процедуры пользователя, решающие предписанные задачи, процедуры ввода исходных данных и процедуру вывода результата. Обмен данными между процедурами должен осуществляться через параметры, без использования глобальных переменных. Событийная процедура должна содержать только операторы вызова пользовательских (общих) процедур.

2.5. Подготовить тесты для контрольного решения задачи.

2.6. Выполнить проект и получить результаты.

Задание для части 1:

27)

m =f n = [f]

29.999

165.091

Задание для части 2:

27)	Определитьобщую площадь фигуры, образованной полукругами Назначение процедуры:Вычисление площади полукруга .

Часть 1.

Схема алгоритмов процедуры пользователя для процедуры-функции с формальными параметрами.

Схема алгоритмов процедуры пользователя для процедуры-подпрограммы с формальными параметрами.

Схема алгоритмов процедуры пользователя для процедуры без параметров (передача данных через глобальные объекты).

Программный код для процедуры-функции

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

Function func(ByVal x As Double, ByVal y As Double) As Double

Dim f As Double

f = 0.5 + 1 / 2 * (Cos(1 - Sin(x * (y ^ 2))) / (1 + (Sin(x * y)) ^ 2))

Return f

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, y, f As Double

Dim m, n As Integer, p As Single

Dim s1, s2 As String

x = CDbl(Val(TextBox1.Text))

y = CDbl(Val(TextBox2.Text))

f = func(x, y)

p = CSng(f)

m = CInt(Int(f))

n = CInt(Fix(f))

s1 = CStr(f) : s2 = CStr(p)

TextBox3.Text = CStr(f)

TextBox5.Text = CStr(n)

TextBox7.Text = CStr(m)

TextBox8.Text = CStr(p)

TextBox9.Text = CStr(f + p)

TextBox10.Text = s1 + s2

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles Button2.Click

End

End Sub

End Class