Решение квадратного уравнения

Сортировка поиском максимального элемента

Сортировка поиском максимального элемента

Сортировка поиском максимального элемента

Сортировка поиском максимального элемента

Вопросы для самопроверки

· Почему в процессе развития организаций в них возникают дисфункции?

· Чем отличаются дисфункции от организационных патологий?

· Охарактеризуйте основные организационные патологии, приведите примеры их проявления в знакомых вам организациях.

· В каких направлениях осуществляются организационные изменения?

· Приведите примеры технологических, продуктовых и культурных изменений в современных организациях.

· Охарактеризуйте и приведите пример реализации модели организационных изменений К. Левина.

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

n = Cells(2, 1): ReDim x(n) As Integer

Dim x_max As Integer, i_max As Integer '!!!

Dim n1 As Integer

n1 = n: Cells(5, 1) = n1 '???

Dim x1 As Integer

'===============================

For i = 1 To n

x(i) = Int(100 * Rnd) '1

Cells(1 + i, 2) = x(i) '2

Next i

'===============================

For n1 = n To 2 Step -1 '+

i_max = 1: x_max = x(1)

For i = 2 To n1

If x(i) > x_max Then x_max = x(i): i_max = i

Next i

x1 = x(n1): x(n1) = x_max: x(i_max) = x1

Next n1 '++

'------------------------------------------------

For i = 1 To n: Cells(i + 1, 3) = x(i): Next i

End Sub

Private Sub CommandButton1_Click()

Dim n As Integer, i As Integer

n = Cells(2, 1)

ReDim x(n) As Integer

Dim x_max As Integer, i_max As Integer '!!!

Dim n1 As Integer

n1 = n: Cells(5, 1) = n1 '???

Dim x1 As Integer

'===============================

i = 0

Label1:

i = i + 1: If i > n Then GoTo fin

x(i) = Int(100 * Rnd) '1

Cells(1 + i, 2) = x(i) '2

GoTo Label1

fin:

'===============================

For n1 = n To 2 Step -1

i_max = 1: x_max = x(1)

For i = 2 To n1

If x(i) > x_max Then x_max = x(i): i_max = i

Next i

x1 = x(n1): x(n1) = x_max: x(i_max) = x1

Next n1

'------------------------------------------------

For i = 1 To n

Cells(i + 1, 3) = x(i)

Next i

End Sub

Private Sub CommandButton1_Click()

Dim i As Integer, j As Integer, k As Integer, n As Integer

Dim a() As Integer

n = 10

ReDim a(n)

For i = 1 To n

a(i) = Int(100 * Rnd)

Cells(i, 1) = a(i)

Next i

Dim aMin As Integer, iMin As Integer, aMax As Integer, iMax As Integer

aMin = a(1): iMin = 1

aMax = a(1): iMax = 1

Cells(1, 2) = aMin: Cells(1, 3) = iMin

Cells(2, 2) = aMax: Cells(2, 3) = iMax

For i = 2 To n

If a(i) < aMin Then

aMin = a(i)

iMin = i

Cells(1, 2) = aMin: Cells(1, 3) = iMin

End If

If a(i) > aMax Then

aMax = a(i)

iMax = i

Cells(2, 2) = aMax: Cells(2, 3) = iMax

End If

Next i

'СОРТИРОВКА

Call MaxSort(n, a())

'-------------------------------

For i = 1 To n

Cells(i, 4) = a(i)

Next i

End Sub

Sub MaxSort(n As Integer, a() As Integer)

Dim i As Integer, j As Integer, k As Integer

Dim iMax As Integer, aMax As Integer

For j = n To 2 Step -1

'---------------------------

aMax = a(1): iMax = 1

For i = 2 To j

If a(i) > aMax Then

aMax = a(i)

iMax = i

End If

Next i

'-----------------------------

'a(iMax)<--->a(j)

k = a(j)

a(j) = a(iMax)

a(iMax) = k

Next j

End Sub

Private Sub CommandButton1_Click()

Dim a As Double, b As Double, c As Double

Dim d As Double, x1 As Double, x2 As Double

a = Cells(2, 1)

b = Cells(2, 2)

c = Cells(2, 3)

d = b ^ 2 - 4 * a * c

Cells(4, 2) = d

If d < 0 Then

MsgBox "Решений нет"

GoTo fin

End If

If d = 0 Then

x1 = -b / 2 / a

Cells(6, 2) = x1

MsgBox "Уравнение имеет единственное решение"

GoTo fin

End If

If d > 0 Then

x1 = (-b - Sqr(d)) / 2 / a

Cells(6, 2) = x1

x2 = (-b + Sqr(d)) / 2 / a

Cells(7, 2) = x1

MsgBox "Уравнение имеет два корня"

GoTo fin

End If

fin:

Range("A2:C2").ClearContents

Range("B4:B7").ClearContents

End Sub

Public Function Nod(a As Long, b As Long) As Long

Dim r As Long

If b > a Then r = a: a = b: b = r

r = a Mod b

If r <> 0 Then Nod = Nod(b, r) Else Nod = b

End Function

Дата добавления: 2014-01-05