Смекни!
smekni.com

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

ТЕМА 1 (вариант 8)

Вычислить значение выражения :

, если g = 9,81 ; Т = 5 ; V0=12,5 ; Х = 2,43

Програмный код

Option Explicit

Private Sub cmdStart_Click()

Dim V0 As Single, T As Single, g As Single, x As Single, J As Single

V0=Val(txtV0.Text)

Const pi = 3.14926

T=Val(txtT.Text)

g=Val(txtg.Text)

S=V0*T+(g*T^2)/2

V=V0+0.5*g*T

J=формула

txtS.Text=Str(S)

txtV.Text=Str(V)

txtF.Text=Str(F)

Private Sub cmdEnd_Click()

End

End Sub

ТЕМА 2 (вариант 8)

Вычислить значения выражений:

, если
, при

Программный код

Option Explicit

Private Sub cmdStart_Click()

Const x = 0.5

Dim c As Single, y As Single, z As Single

y = Val(InputBox("Введите У"))

z = Val(InputBox("Введите Z"))

If (y > 0) And (z > 0) Then

c = формула 1

ElseIf (y < 0) And (z > 0) Then

c = формула 2

Else

c = формула 3

End If

Print "При у= "; y, "При z= "; z

Print "c="; c

End Sub

Private Sub cmdEnd_Click()

End

End Sub

ТЕМА 3 (вариант 8)

Вычислить значение выражения

где, а(і) - елементы одномерного массива А(8)

b(i) - елементы одномерного массива В(8)

Программный код

Option Explicit

Private Sub cmdStart_Click()

Dim a(8) As Single, b(8) As Single, i As Byte, к As Single, s As Single

Randomize Timer

For i = 1 To 8

a(i) = Int(8 * Rnd())

Next i

Randomize Timer

For i = 1 To 8

b(i) = Int(8 * Rnd())

Next i

Print "Элементы массива А"

For i = 1 To 8

Print a(i);

Next i

Print

Print

Print "Элементы массива B"

For i = 1 To 8

Print b(i);

Next i

For i = 1 To 8

к = формула для расчета

Next i

s = 0

For i = 1 To 8

s = s + d

Next i

Print: Print

Print "s="; s

End Sub

Private Sub cmdEnd_Click()

End

End Sub

ТЕМА 4 (вариант 8)

Создать двухмерный массив А(N, M). Элементы массива рассчитатть по формуле:

. Найти минимальный элемент массива по модулю в каждой строке.

N=6, M=4

Программный код

Option Explicit

Private Sub cmdStart_Click()

Const n = 6, о = 4

Dim a(1 To n, 1 To о) As Single, s As Single, p As Single

Dim i As Single, j As Single, Min As Single, jmin As Single, imin As Single

For i = 1 To n

For j = 1 To о

a(i, j) = формула

Print Format(a(i, j), "0.000 ");

Next j

Print: Print

Next i

For i = 1 To n

Min = Abs(a(i, 1))

For j = 1 To о

If Abs(a(i, j)) < Min Then

Min = Abs(a(i, j))

End If

Next j

Print "Минимальный элемент массива (по модулю)="; Min

Print "imin="; i

Next i

Print

End Sub

Private Sub cmdEnd_Click()

End

End Sub

ТЕМА 5 (Вариант 8)

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

, где yi - элементы масссива У(20); в=2.1

Общий вид

ps=k1*Sqr(s)

Програмный код

Option Explicit

Option Base 1

Private Sub cmdStart_Click()

Dim Y(1 To 20) As Single, r1 As Single, r2 As Single

Dim i As Single, М As Single

Print "Массив Y:"

For i = 1 To 20

Y(i) = i ^ (1 / 3) - 1

Print Format(Y(i), "0.00 ");

Next i

r1 = ps(5, 20, 5.3, Y())

r2 = ps(2, 8, 1, Y())

М = r1 + r2

Print

Print

Print "Значение выражения="; X

End Sub

Private Function ps(n1 As Single, n2 As Single, k1 As Single, Y() As Single) As Single

Dim s As Single, i As Integer

Const b = 2.1

s = 0

For i = n1 To n2

s = s + (Y(i) * b) ^ 3

Next i

ps = k1 * Sqr(s)

End Function

Private Sub cmdEnd_Click()

End

End Sub

ТЕМА 6 (Вариант 8)

Написать программу для вычисления значения выыражения. Повторяющиеся вычисления оформить в виде общей процедуры типа Sub.

Z=

, где рi- элементы одномерного массива Р(15)

Общий вид

Программный код

Option Explicit

Private Sub cmdStart_Click()

Const n = 15

Dim P(1 To n) As Integer, i As Single, Z As Single, s1 As Single, s2 As Single

Randomize Timer

For i = 1 To n

P(i) = Int(Rnd() * 50)

Next i

Print "Массив Р="

For i = 1 To n

Print P(i);

Next i

Call Sum(10, 14, 1, 2, 2, P(), s1)

Call Sum(1, 4, 2, 0.5, 1, P(), s2)

Z = s1 - s2

Print: Print

Print "Z="; Z

End Sub

Private Sub Sum(n1 As Single, n2 As Single, n3 As Single, k1 As Single, k2 As Single, P() As Integer, s As Single)

Dim i As Integer

s = 0

For i = n1 To n2

s = s + Cos(n3 * P(i) + k1) ^ k2

Next i

End Sub

Private Sub cmdEnd_Click()

End

End Sub