КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Контрольна робота № 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 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 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 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; Просмотров: 429; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |