Определение наибольшего из 6 средних элементов вектора Y размерности n=12. Определение наименьшего из элементов 2-х матриц А и В размерностью М*К

Задача 1

1.Постановка задачи:

1.1. Задача: Определить наибольший из 6 средних элементов вектора Y размерности n=12.

1.2. Входные данные:

n - вещественный тип;

b - вещественный тип;

a(n) - вещественный тип;

1.3. Выходные данные:

max  - вещественный тип;

2.Схема алгоритма:

3.Разработка проекта:

4.Программный код:

Private Sub Command1_Click()

Dim n As Integer, a() As Integer, i As Integer, b As Integer, c As Integer, max As Integer

n = Val(Text1)

b = Val(Text2)

ReDim a(1 To n)

If n Mod 2 = 0 And b Mod 2 <> 0 Or n Mod 2 <> 0 And b Mod 2 = 0 Then

MsgBox " невозможно найти больший из " & n & " невозможно найти больший из" & b & " элементов при размерности"

Else

For i = 1 To n

a(i) = InputBox("Введите элемент " & i)

Next

c = (n - b) / 2 + 1

max = a(c)

For i = c To (c - 1) + b

If max < a(i) Then

max = a(i)

End If

Next

End If

Text3.Text = max

End Sub

Задача 2

1.Постановка задачи:

1.1. Задача: Определить наименьший из элементов 2-х матриц А и В размерностью М*К. Проанализировать выполнение программы на примере:

                                            2   4   6.3                      2   4  0      

А =    6   7   6.3           В =    3   2   1

1.2. Входные данные:

m - вещественный тип;

k – вещественный тип;

a ( m ,k ) – вещественный тип;

b ( m ,k ) – вещественный тип;

1.3. Выходные данные:

min  - вещественный тип;

2.Схема алгоритма:

3.Разработка проекта:

4.Программный код:

Private Sub Command1_Click()

Dim i As Integer, j As Integer, a() As Integer, b() As Integer, k As Integer, m As Integer

m = Val(Text2)

k = Val(Text3)

ReDim a(1 To m, 1 To k)

ReDim b(1 To m, 1 To k)

For i = 1 To m

For j = 1 To k

a(i, j) = InputBox("Введите элемент (" & i & "," & j & ")матрицы А")

Next

Next

For i = 1 To m

For j = 1 To k

b(i, j) = InputBox("Введите элемент (" & i & "," & j & ") матрицы В")

Next

Next

Min = a(1, 1)

For i = 1 To m

For j = 1 To k

If Min > a(i, j) Then

Min = a(i, j)

End If

Next

Next

For i = 1 To m

For j = 1 To k

If Min > b(i, j) Then

Min = b(i, j)

End If

Next

Next

Text1.Text = Min

End Sub