МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний технічний університет України
«Київський політехнічний інститут»Курсова роботаз курсу«Обчислювальна техніка, алгоритмічні мови і програмне забезпечення»Київ 2009
Зміст
Завдання. Математичне розшифрування завданняЛістинг програмиВиведення результатів роботи програмиОпис роботи програми
Список літератури 1. Математичне розшифрування завдання На квадратному аркуші картатого паперу розміру 8*8 кліток намальовано декілька прямокутників, кожний прямокутник складається з кліток, прямокутники не накладаються один на одного й не стикаються. Дана цілочисельна квадратна матриця порядку 8, у якій елемент рівняється «0», якщо відповідна клітка належить якому-небудь прямокутнику, і відмінний від «0» в іншому випадку. Визначити кількість прямокутників. Матриці. Основні означення
Прямокутна таблиця чисел а (I, j), і = 1,2,…, m; (j = 1,2,…, n, складена з m рядків та n стовпців і записана у вигляді: абоназивається матрицею. Поняття матриці вперше ввели англійські математики У. Гамільтон і Д. Келі. Коротко матрицю позначають так: Де – елементи матриці, причому індекс i в елементі означає номер рядка, а j – номер стовпця, на перетині яких стоїть даний елемент.
Добуток числа рядків m на число стовпців n називають розміром матриці і позначають mxn. Якщо хочуть вказати розмір mxn матриці А, то пишуть .
Матриця, в якої число рядків дорівнює числу стовпців, називається квадратною. Кількість рядків (стовпців) квадратної матриці називається її порядком. Матриця, у якої всього один рядок, називається матрицею-рядком, а матриця, у якої всього один стовпець, – матрицею-стовпцем. Дві матриці та називаються рівними, якщо вони однакових розмірів і мають рівні відповідні елементи:. Нульовою називається матриця, у якої всі елементи дорівнюють нулю. Позначається така матриця буквою О. В квадратних матрицях виділяють головну і побічну діагональ.
Для виконання завдання потрібно знаходити суму елементів матриці стовпця і рядка, на які вказують індекси елемента, і замінити цією сумою сам елемент матриці. 2. Лістинг програми Private Sub Command1_Click()
Const n = 5
Dim i, j As Byte
Dim a (n, n) As Byte, m(56) As Byte
n1 = 0
n2 = 0
ch = 0
ch1 = 0
For i = 1 To n
For j = 1 To n
Randomize
a (i, j) = Rnd(1)
Next j
Next i
For i = 1 To n
m(i) = a (i, n – 1)
For j = 1 To n
Print a (i, j),
Next j
Next i
Print «–»
For i = 1 To n
For j = 1 To n
If a (i, j) = 0 Then
n1 = n1 + 1
If n1 > 1 Then
a (i, j – 1) = 1
End If
Else
If n1 > 1 Then
a (i, j – 1) = 1
ch = ch + 1
End If
n1 = 0
End If
Next j
If n1 > 1 Then
ch = ch + 1
End If
n1 = 0
Next i
For i = 1 To n
If a (i, n) = 0 And m(i) = 0 Then
a (i, n) = 1
End If
Next i
Print «===============================»
For j = 1 To n
For i = 1 To n
If a (i, j) = 0 Then
n1 = n1 + 1
Else
If n1 > 1 Then
ch = ch + 1
End If
n1 = 0
End If
Next i
If n1 > 1 Then
ch = ch + 1
End If
n1 = 0
Next j
Print «–»
For i = 1 To n
For j = 1 To n
Print a (i, j),
Next j
Next i
Print «*****************************»
Print ch
End Sub
Private Sub Command2_Click()
End
End Sub 3. Виведення результатів роботи програми Змн.
Арк.
№ докум.
Підпис
Дата
Арк.12
Курсова робота
Після запуску програми в Visual Basic на моніторі з`являється вікно програми, на якому виведено дві кнопки: «розрахунок» і «кінець».
Похожие работы
Интересная статья: Быстрое написание курсовой работы