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

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

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию