Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 23.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. Отчет по практике на тему Урок истории
3. Статья на тему Как банки оценивают кредитоспособность своих клиентов
4. Отчет по практике на тему Организация бухгалтерского учета на предприятии ЗАО НПП Бетта
5. Курсовая Безналичные расчеты в экономике Российской Федерации. Анализ практики
6. Курсовая Проект ткацького виробництва потужністю ткацьких верстатів для виготовлення тканини артикул 4784
7. Реферат на тему Работа в среде Mathcad
8. Реферат на тему The Effects Of Interest Groups On Politics
9. Реферат на тему Ships 2 Essay Research Paper ShipArcheologists found
10. Сочинение Пушкинские места на карте России