Контрольна робота № 4. Типові циклічні процеси

Постановка задачі №1. Розробити структурну блок-схему алгоритму і прог раму визначення суми та здобутку одновимірного масиву А (n), де n = 1 + № варіанту.

Наведемо приклад введення чисел масиву А (10), знаходження суми та здобутку цього одномірного масиву.

Програмний код дивися на рис. 7.

Спочатку створюємо екранну форму за ескізом (рис. 9.6). Потім розробляємо програму мовою Visual Basic. Натискаємо клавішу [F5]. Потім натискаємо кнопку SUM і починаємо по елементне введення чисел масиву А (рис. 8).

Після кожного введення числа натискаємо на кнопку ОК. Після закінчення введення та отримання результату можна натиснути кнопку Exit і повернутися у програмний код створеної програми.

Постановка задачі №2. Розробити структурну блок-схему алгоритму і програму визначення середнього арифметичного, максимального та мінімального значення елементів масиву А (n) та їх координат.

Одновимірний масив А (n), де n = 1 + № варіанту.

Наведемо приклад введення чисел, визначення середнього арифметичного, максимального та мінімального значення елементів масиву А (10) та їх координат.

Спочатку створюємо екранну форму за ескізом (рис. 10). Потім розробляємо програму мовою Visual Basic (рис. 11). Натискаємо клавішу [F5]. Потім натискаємо кнопку SUM і починаємо по елементне введення чисел масиву А (рис. 8). Після кожного введення числа натискаємо на кнопку ОК. Після закінчення введення та отримання результату (рис. 12) можна натиснути кнопку Exit і повернутися у програмний код створеної програми.

Постановка задачі №3. Розробити структурну блок-схему алгоритму і програму розв’язання задачі двовимірного масиву А (I, J).

Програмний код введення і виведення елементів масиву А (5,5):

Option Base 1

Const m = 5

Const n = 5

Dim a(m, n) As Single

Dim s1(m) As Single

Dim s2(n) As Single

Dim s3 As Single

Dim s4 As Single

Private Sub Command1_Click()

Dim y As Single

Print "Масив А("; m; ","; n; ")"

For i = 1 To m

For j = 1 To n

Title$ = "Ввести значення"

prompt$ = "елемент" & "А(" & i & "," & j & ")"

a(i, j) = Val(InputBox(prompt$, Title$))

Print "А("; i; ","; j; ")="; a(i, j); " ";

Next j

Print

Next i

End Sub

Результат виведення даних елементів масиву А (5.5) на рис. 13.

Навчившись вводити елементи двовимірного масиву, можна розв’язати таку задачу: чи є масив А (5, 5) магічним квадратом, у якого суми рядків, стовпчиків та діагоналей однакові, а також знайти мінімальний за значенням елемент у двох діагоналей, його координати та визначити чому масив не є магічним квадратом.

Програмний код:

Option Base 1

Const m = 5

Const n = 5

Dim a(m, n) As Single

Dim s1(m) As Single

Dim s2(n) As Single

Dim s3 As Single

Dim s4 As Single

Private Sub Command1_Click()

Dim y As Single

Print "Масив А("; m; ","; n; ")"

For i = 1 To m

For j = 1 To n

Title$ = "Ввести значення"

prompt$ = "елемент" & "А(" & i & "," & j & ")"

a(i, j) = Val(InputBox(prompt$, Title$))

Print "А("; i; ","; j; ")="; a(i, j); " ";

Next j

Print

Next i

p = 0

For i = 1 To m

s1(i) = 0

For j = 1 To n

s1(i) = s1(i) + a(i, j)

Next j

If p = 0 Then

p = p + 1

ElseIf s1(i) <> s1(i - 1) Then

Print "s1("; i - 1; ")="; s1(i - 1); ";"; "s1("; i; ")="; s1(i)

Print "Тому масив А – не магічний квадрат"

End If

Next i

p = 0

For j = 1 To n

s2(j) = 0

For i = 1 To m

s2(j) = s2(j) + a(i, j)

Next i

If p = 0 Then

p = p + 1

ElseIf s2(j) <> s2(j - 1) Then

Print "s2("; j - 1; ")="; s2(j - 1);, " s1("; j; ") = "; s1(j); ""

Print "Тому масив А – не магічний квадрат"

End If

Next j

If s1(1) <> s2(1) Then

Print "s1("; 1; ")="; s1(1); ";"; "s1("; 1; ")="; s1(1)

Print "Тому масив А – не магічний квадрат"

End If

s3 = 0: s4 = 0

For i = 1 To m

s3 = s3 + a(i, i)

s4 = s4 + a(i, 6 - i)

Next i

Min = a(1, 1)

For i = 1 To m

For j = 1 To n

If Min > a(i, j) Then

Min = a(i, j)

x = i: y = j

End If

Next j

Print

Next i

If s1(1) <> s3 Then

Print "s1("; 1; ")="; s1(1); ";"; "s3="; s3

Print "Тому масив А – не магічний квадрат"

End If

If s3 <> s4 Then

Print "s3="; s3; ";"; "s4="; s4

Print "Тому масив А – не магічний квадрат"

Else

Print "Масив А – магічний квадрат"

End If

Print "Min("; x; ","; y; ") ="; Min

Text1.Text = Min

End Sub

Private Sub Command2_Click()

End

End Sub

Результат обчислення матриці масиву, коли масив є магічним квадратом (рис. 14).

На рисунку 15 можна побачити результати обчислення масиву А та побачити чому ця матриця не є магічним квадратом.

Дата добавления: 2014-12-24