Реферат

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

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025





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


1. Реферат Політична свідомість визначення та актуальність дослідження в контексті розвитку вітчизняної по
2. Курсовая на тему Международные аспекты финансового менеджмента организации
3. Реферат на тему Helen Hunt Jackson And Essay Research Paper
4. Реферат на тему Iran Essay Research Paper Iran is
5. Реферат на тему Логистическое управление закупочной деятельностью
6. Доклад на тему Компьютерная термография в диагностике злокачественных опухолей глаза и орбиты
7. Курсовая Розвиток обдарованих дітей
8. Реферат Пожилые люди как объект социальной работы 2
9. Методичка на тему Методичні вказівки до курсового проекту по Електропостачанню в сіль
10. Контрольная работа Математические идеи и открытия античных учёных