Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

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





ТЕМА 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
2. Реферат Кенгуру санитары земли
3. Контрольная работа на тему Лизинг и стабилизация денежного оборота
4. Реферат на тему The Devils In Ourselves Essay Research Paper
5. Курсовая на тему Організація обліку власного капіталу підприємства України
6. Сочинение на тему Анализ авторской пунктуации в художественном тексте
7. Курсовая Восприятие социальной рекламы против курения молодежью
8. Реферат на тему Joshua And Ruth Essay Research Paper Book
9. Реферат Гейши 2
10. Курсовая на тему Использование инбридинга в животноводстве