41824

Программирование алгоритмов формирования и обработки двумерных массивов

Лабораторная работа

Информатика, кибернетика и программирование

Выполнения данной лабораторной работы состоит в изучении средств, приемов и получении практических навыков разработки, написания и отладки программ формирования и обработки двумерных массивов Click Dim m n s Integer Dim L s Single m = vvodTextBox1 n = vvodTextBox2 Dim Km n s Single postroenie_Km n K vivodMssm n K ListBox1 L = crete_Lm n K vivodMssm n L ListBox2 End Sub Function vvodByVl T s TextBox s Integer Return VlT.Text End Function Sub vivodMssByVl m s Integer ByVl n s Integer ByVl s Single ByRef ListBox s ListBox...

Русский

2013-10-25

79.24 KB

3 чел.

МОСКОВСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ СВЯЗИ И ИНФОРМАТИКИ


Кафедра «Информатики»

Лабораторные работы по дисциплине «Информатика»

Выполнила студентка группы БИН1209
Зименкова Наталья Андреевна

Вариант 7

Москва 2013

Лабораторная работа №4.8.


«Тема 4.8. Программирование алгоритмов формирования и обработки двумерных  массивов»

Вариант 7

Зименкова Наталья Андреевна
БИН 1209

Москва 2013 г.

Цель выполнения данной лабораторной работы состоит в  изучении  средств, приемов и получении практических навыков разработки, написания и отладки программ формирования и обработки двумерных массивов.

Задание на разработку проекта.

Графический интерфейс пользователя

Схемы алгоритмов процедур пользователя

                                       

                      

Программный код с использованием процедур

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim m, n As Integer

       Dim L(,) As Single

       m = vvod(TextBox1)

       n = vvod(TextBox2)

       Dim K(m, n) As Single

       postroenie_K(m, n, K)

       vivodMass(m, n, K, ListBox1)

       L = create_L(m, n, K)

       vivodMass(m, n, L, ListBox2)

   End Sub

   Function vvod(ByVal T As TextBox) As Integer

       Return Val(T.Text)

   End Function

   Sub vivodMass(ByVal m As Integer, ByVal n As Integer, ByVal a(,) As Single, ByRef ListBox As ListBox)

       Dim i, j As Integer

       Dim a1, a2 As String

       a1 = " "

       a2 = " "

       ListBox.Items.Add(a1)

       For i = 0 To m - 1

           a1 = " "

           For j = 0 To n - 1

               If a(i, j) < 0 Then a2 = Space(3) Else a2 = Space(4)

               a1 = a1 + Format(a(i, j), "00") + a2

           Next

           ListBox.Items.Add(a1)

       Next

       a1 = " "

   End Sub

   Sub postroenie_K(ByVal m As Integer, ByVal n As Integer, ByRef a(,) As Single)

       Dim i, j As Integer

       Randomize()

       For i = 0 To m - 1

           For j = 0 To n - 1

               a(i, j) = -10 + 20 * Rnd()

           Next

       Next

   End Sub

   Function create_L(ByVal m As Integer, ByVal n As Integer, ByVal a(,) As Single) As Single(,)

       Dim L(m, n) As Single

       Dim i, j As Integer

       For i = 0 To m - 1

           For j = 0 To n - 1

               L(i, j) = a(m - i - 1, j)

           Next

       Next

       Return L

   End Function

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Application.Exit()

   End Sub

End Class


 

А также другие работы, которые могут Вас заинтересовать

28169. Принцип тождественности неразличимых микрочастиц. Бозоны и фермионы. Проблема гелия 145.5 KB
  Проблема гелия В основе исследования сложных атомов как и атома водорода также лежит уравнение Шредингера решением которого является функция состояния атома. Однако теперь функция состояния зависит от пространственных координат всех электронов атома и от времени. Для получения правильной функции состояния системы электронов необходимо учитывать принцип тождественности неразличимых частиц. Суть это принципа состоит в следующем: В силу неразличимости частиц состояния системы получающиеся друг из друга перестановкой обеих частиц должны быть...
28170. Многоэлектронные атомы. Электронные оболочки атома и их заполнение. Физическое объяснение периодического закона. Рентгеновские спектры атомов 186.5 KB
  Электронные оболочки атома и их заполнение. Такая одноэлектронная собственная функция атома называется атомной спинорбиталью АО. При рассмотрении многоэлектронного сложного атома можно воспользоваться приближением центрального поля. Однако в сложных атомах энергия электронов зависит как от главного квантового числа так и от орбитального квантового числа то есть происходит снятие вырождения по .
28171. Атом во внешних полях. Простой и сложный эффект Зеемана 165.5 KB
  Простой и сложный эффект Зеемана Расщепление спектральных линий атомных систем помещенных во внешнее магнитное поле называется эффектом Зеемана 1896 г. Расщепление линии на три компонента названо простым нормальным эффектом Зеемана. Расщепление линии более чем на три компонента названо сложным анормальным эффектом Зеемана Количественное объяснение простого эффекта Зеемана с позиций классической теории дано Лоренцем. Последовательное описание обоих вариантов эффекта Зеемана дано в рамках квантовой теории с учетом спинового магнитного...
28172. ПОСТУЛАТЫ БОРА. КОМБИНАЦИОННЫЙ ПРИНЦИП 83 KB
  В начале XX века установлено что всю совокупность спектральных линий атомарного водорода можно разбить на серии то есть на отдельные группы в пределах каждой из которых имеет место определенная закономерность в расположении и интенсивности спектральных линий. При из всего спектра атома выделяется определенная спектральная серия: соответствует серия Лаймана серия Бальмера серия Пашена серия Брэкета серия Пфунда и т. 2 Из комбинационного принципа Ритца вытекает следствие:...
28173. Модель атома Бора. Квантование круговых орбит и их характеристики. Правила квантования Бора-Зоммерфельда 157.5 KB
  В соответствии с моделью Резерфорда для строения атома Бор рассматривал движение электрона относительно покоящегося ядра по круговой орбите. Согласно Бору стационарными являются лишь те орбиты при движении по которым момент импульса электрона равен целому числу приведенных постоянных Планка удовлетворяет условию квантования круговых орбит то есть для й орбиты можно записать: 1 где и соответственно масса линейная скорость движения электрона и радиус его й орбиты; =...
28174. Фотоны и их свойства. Энергия и импульс фотона 95.5 KB
  Эффект Комптона К середине XIX века волновая природа электромагнитного излучения была подтверждена окончательно явлениями интерференции и дифракции света. Впервые это было осознано при рассмотрении проблемы теплового излучения. Попытки описать спектральное распределение теплового излучения на основе классической электродинамики закончились неудачей. Квантовые представления о природе электромагнитного излучения получили дальнейшее развитие при исследовании явления внешнего фотоэффекта.
28175. Задача молекулярной физики. Модель физического тела. Основные положения МКТ и их анализ. Модель идеального газа. Статистический и термодинамический способы описания. Основное уравнение МКТ идеального газа 811.5 KB
  Модель идеального газа. Основное уравнение МКТ идеального газа. Отсюда также следует что начинать построение теории следует с газов так как в этом случае выражение 1 имеет в правой части только одно слагаемое Модель газового физического тела получила название модели идеального газа. Уравнение состояния идеального газа уравнение Клапейрона ‒ Менделеева.
28176. Голография. Схема записи и восстановления голограмм. Запись голограмм на толстослойных эмульсиях. Применение голограмм 115 KB
  Схема записи голограммы представлена на рисунке 1. Денисюк осуществил запись голограммы в трехмерной среде объединив таким образом идею Габора с цветной фотографией Липпмана. Тогда участки голограммы с максимальным пропусканием света будут соответствовать тем участкам фронта предметной волны в которых ее фаза совпадает с фазой опорной волны. Поэтому при последующем освещении голограммы опорной волной в ее плоскости образуется то же распределение амплитуды и фазы которое было у предметной волны чем и обеспечивается восстановление...
28177. Искусственная анизотропия, создаваемая в результате механического деформирования, воздействия электрического (эффекты Керра и Поккельса) и магнитного (эффект Коттона - Мутона) поля. Естественная и искусственная (эффект Фарадея) оптическая активность 51 KB
  Искусственная анизотропия создаваемая в результате механического деформирования воздействия электрического эффекты Керра и Поккельса и магнитного эффект Коттона Мутона поля. Естественная и искусственная эффект Фарадея оптическая активность Среды в которых скорость распространения света в различных направлениях неодинакова называют оптически анизотропными. был открыт эффект Керра – возникновение двулучепреломления под действием электрического поля рисунок 2. Явление Керра квадратичный электрооптический эффект объясняется...