ТЕМА 2. программА разветвленной структуры

Вычислить значения выражений по формулам:

Блок-схема| алгоритма

|

Код программы:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles MyBase.Load

Dim ris As New Bitmap("uslovie.gif") 'Рисунок размещен _

.. \Bin\Debug\uslovie.gif

PictureBox1.Image = ris

End Sub

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdStart.Click

Dim x, f As Single

Const a = 5.5, b = 1.2

x = Val(InputBox("Введите значение x", "Ввод данных")) 'Ввод значения x

'Внешний оператор условного перехода

If x > 30 Then

f = (1 - x) / 2

'Внутренний оператор условного перехода

ElseIf x < 30 Then

f = (1 - x) / (a - b)

Else

f = Math.Sin(x) - 2

End If

ListBox1.Items.Add("При x=" & x & " f=" & f) 'Вывод результата в поле ListBox

ListBox1.Items.Add("")

End Sub

Private Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdEnd.Click

End

End Sub

End Class

Дата добавления: 2014-11-06; Просмотров: 303; Нарушение авторских прав?; Мы поможем в написании вашей работы!