Студопедия

КАТЕГОРИИ:


Архитектура-(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. цикл.|цикличной| обработка ДВУМЕРНЫХ массивов




 

 

ТЕМА 4. цикл.|цикличной| обработка ДВУМЕРНЫХ массивов

 

Вычислить|исчисляющий| сумму положительных|положительных| и количество отрицательных элементов двумерного массива M(3,5) – 3 строки, 5 столбцов. Элементы массива вычислить по формуле:

Вывод|выводы| элементов массива и результаты расчета осуществить на форму (или в файл – по указанию преподавателя).

 

Блок-схема| алгоритма

 

|

Код программы:

Public Class Form1

 

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdStart.Click

Dim i, j, n, m, k As Integer : Dim s As Single, z As String

'n и m - верхние индексы элементов массива

n = Convert.ToInt32(txtn.Text) : m = Convert.ToInt32(txtm.Text)

Dim a(n, m) As Single

'Вычисление и вывод элементов массива A в поле списка ListBox1

'z- строка из элементов строки массива А

For i = 1 To n : For j = 1 To m : a(i, j) = (i ^ 2 - 5) / (i + j) : z = z & Format(a(i, j), " 0.00 ")

Next j : ListBox1.Items.Add(z) : z = " " : Next i

'Вычисление суммы положительных и количества отрицательных

'элементов массива

s = 0 : k = 0

For i = 1 To n : For j = 1 To m

If a(i, j) >= 0 Then

s = s + a(i, j)

Else

k = k + 1

End If

Next j : Next i

txts.Text = s.ToString : txtk.Text = k.ToString

 

End Sub

 

Private Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdEnd.Click

End

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Button1.Click

txtn.Clear() : txtm.Clear() : txts.Clear() : txtk.Clear() : txtn.Focus()

End Sub

 

End Class





Дата добавления: 2014-11-06; Просмотров: 106; Нарушение авторских прав?;


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:





studopedia.su - Студопедия (2013 - 2017) год. Не является автором материалов, а предоставляет студентам возможность бесплатного обучения и использования! Последнее добавление ip: 54.156.67.164
Генерация страницы за: 0.006 сек.