Практическая работа

Практическая работа

1. найти значение выражения

1 способ

.

Private Sub Command1_Click()

Dim x, c, a As Double

x = Val(InputBox("x"))

For c = 5 To 5.8 Step 0.2

For a = 2 To 3 Step 0.5

y = (c ^ 2 + 5.2 * Sin(x)) / (3.8 * x + a * c) ^ (1 / 2)

List1.AddItem "y=" + Str(y)

Next a

Next c

End Sub

2 способ

Private Sub Command1_Click()

If Option1.Value = True Then x = 0.5

If Option2.Value = True Then x = 0.7

If Option3.Value = True Then x = 1

If Option4.Value = True Then x = 0.75

a = 2

For c = 5 To 5.8 Step 0.2

Do While a <= 3

y = (c ^ 2 + 5.2 * Sin(x)) / (3.8 * x + a * c) ^ (1 / 2)

Form1.Print y

a = a + 0.5

Loop

Next c

End Sub

3 способ

Private Sub Command1_Click()

If Option1.Value = True Then x = 0.5

If Option2.Value = True Then x = 0.7

If Option3.Value = True Then x = 1

If Option4.Value = True Then x = 0.75

a = 2

For c = 5 To 5.8 Step 0.2

Do

y = (c ^ 2 + 5.2 * Sin(x)) / (3.8 * x + a * c) ^ (1 / 2)

Form1.Print y

a = a + 0.5

Loop While a <=3

Next c

End Sub

4 способ

Private Sub Command1_Click()

Dim x, c, a As Double

x = Val(InputBox("x"))

a = 2

For c = 5 To 5.8 Step 0.2

Do Until a >= 3

y = (c ^ 2 + 5.2 * Sin(x)) / (3.8 * x + a * c) ^ (1 / 2)

List1.AddItem "y=" + Str(y)

a = a + 0.5

Loop

Next c

End Sub

5 способ

Private Sub Command1_Click()

Dim x, c, a As Double

x = Val(InputBox("x"))

a = 2

For c = 5 To 5.8 Step 0.2

Do

y = (c ^ 2 + 5.2 * Sin(x)) / (3.8 * x + a * c) ^ (1 / 2)

List1.AddItem "y=" + Str(y)

a = a + 0.5

Loop Until a >= 3

Next c

End Sub