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

ТЕМА 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