На странице представлен фрагмент

Реши любую задачу с помощью нейросети.

Написать программный код четырех процедур:
Процедуры-подпрограммы с соответствующими формальными параметрами для вычисления значения переменной z.
QUOTE
Процедуры ввода исходных данных и процедуры вывода.
Событийной процедуры, которая осуществляет вызов процедуры ввода исходных данных, процедуры вычисления выражения и процедуры вывода результата.

Для решения задачи формализация не требуется.
Блок-схема

Программный код решения задачи:
Схема алгоритма событийной процедуры содержит вызовы трех составленных процедур: процедуры ввода исходных данных (x, y) из элементов управления TextBox формы, процесс (вычисление выражения) и процедуры вывода результата в элемент управления TextBox.
Imports System.Math
Public Class Form1

‘Функция ввода значения вещественного типа из TextBox
Function vvod(ByVal T As TextBox) As Double
Return CDbl(T.Text)
End Function

‘Процедура вывода результата в TextBox
Sub vivod(ByVal Z As Double, ByRef T As TextBox)
T.Text = CStr(Z)
End Sub

‘Процедура-подпрограмма для вычисления значения переменной z
Function Resh(ByVal x As Double, ByVal y As Double) As Double
Return (208 * Log(x) + x * x) / (Abs(x – y * y) – Exp(Math.E ^ (-y)))
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim h, x, y As Double
x = vvod(TextBox1)
y = vvod(TextBox2)
h = Resh(x, y)
vivod(h, TextBox3)
End Sub
End Class

Написать программный код четырех процедур:
Процедуры-функции нахождения активной мощности P цепи переменного тока с сопротивлением R, через которую проходит ток силой I по формуле P=I2R. Параметрами процедуры должны быть сила тока и сопротивление.
Процедуры ввода исходных данных и процедуры вывода результатов.
Событийной процедуры для вычисления мощности трёх различных цепей с известными сопротивлениями R1,R2,R3 и током силой I1,I2,I3 , которая должна содержать: вызов процедуры ввода сопротивлений и токов для трех цепей, вызовы процедуры-функции для вычисления их мощностей (т.е. вызывать процедуру-функцию 3 раза) и вызов процедуры вывода результатов.

Формализация задачи не требуется

Блок-схема

Программный код решения задачи:
В соответствии с требованиями задания разобьем

Часть выполненной работы

начения мощности
Function Power(ByVal i As Double, ByVal r As Double) As Double
Return i * i * r
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r1, r2, r3, i1, i2, i3, p1, p2, p3 As Double
i1 = vvod(TextBox1)

   

Купить уже готовую работу

Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Подробнее об условиях покупки тут.

 
4.78
Vera1611
Быстро и качественно выполняю рефераты, курсовые и контрольные работы, дипломы, пишу эссе, подготавливаю доклады, презентации. Работы выполняю в срок и с соблюдением всех требований заказчика. Опыт в написании работ - 12 лет.