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


 

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

32887. Мифология как мировоззрение. Первобытная мифология. Религия как мировоззрение 38.38 KB
  Мифы пытаются дать ответ на следующие вопросы: Происхождение Вселенной Земли и человека; Объяснение природных явлений; Жизнь судьба смерть человека; Деятельность человека и его достижения; Вопросы чести долга этики и нравственности. Религия как мировоззрение: Религия форма мировоззрения основанная на вере в наличие фантастических сверхъестественных сил которые влияют на жизнь человека и окружающий мир. При религиозном мировоззрении для человека характерна чувственная образноэмоциональная а не рациональная форма...
32888. Античная философия. Пифагор, Сократ, Платон, Аристотель. Демокрит, Эпикур 48.3 KB
  Милет: Философия охватывала все науки и не ставила ключевого вопроса философии но был поставлен вопрос о первопричине мира. Один из основателей атомистики и материалистической философии. Сократ Платон Аристотель: Сократ – Его учение знаменует переход философии к рассмотрению человека от рассмотрения природы и мира. Его деятельность поворотный момент античной философии.
32889. Средневековая философия. Отцы церкви (Василий Великий, Григорий Богослов, Иоанн Златоуст). Фома Аквинский, Григорий Палама. Реализм и номинализм 45.82 KB
  В результате в мире идет борьба между добром и злом но поскольку мир это творение Бога Добра – то добро в итоге и одерживает победу. Основные черты: Теоцентризм Главная причина сущего – Бог; Изучению самого по себе космоса природы явлений окружающего мира уделялось мало внимания так как они считались творением Бога; Господствовали догматы...
32890. Философия Нового времени в Европе. Дж. Бруно. Декарт. Ф. Бэкон. Гоббс. Д. Локк. Французский атеизм и материализм 49.04 KB
  Ее особенность ориентация главным образом на науку Поэтому на передний план выдвигаются теперь вопросы познания. Расхождения в оценке роли этих форм познания породили основные направления новоевропейской философии: 1 Эмпиризм – направление в философии считающее основным источником познания чувственный опыт Особая форма – сенсуализм выводящий все знания из ощущений Представители Ф.Лейбниц; Основные отличия: 1 Связан с реализмом 2 Признает врожденные идеи как основу истинного познания 3 Категория субстанции одна из основных;...
32891. Классическая немецкая философия. Кант, Фихте, Шеллинг, Гегель 40.14 KB
  Классическая немецкая философия. Немецкая философия конца XVIII первой половины XIX века есть завершение традиции классической европейской философии в целом. Философия состоит из 3х частей: 1. Философия природы Превращение абсолютной идеи в предметы и явления природы 3.
32892. Философия Маркса и Энгельса 29.6 KB
  В теории познания Маркс вводит понятия практики – основы познания цель познания объект познания.
32893. Русская философия: Киреевский, Хомяков, Герцен, Чернышевский, Леонтьев, Данилевский, Ленин, Флоренский 49.93 KB
  Русская философия: Киреевский Хомяков Герцен Чернышевский Леонтьев Данилевский Ленин Флоренский. Русская философия феномен мировой философской мысли. Ее феноменальность заключается в том что русская философия развивалась исключительно автономно самостоятельно независимо от европейской и мировой философии. Основные направления: Декабристская философия; Философия западников и славянофилов; Философия Чаадаева; Консервативная религиозная и монархическая философия; Философия системы писателей Ф.
32894. Материализм и идеализм. Агностицизм. Материя и движение. Изменение и покой. Определения. Формальная логика. Диалектика и метафизика 46.51 KB
  Материя и движение. Движение Любое изменение вообще начиная с пространственного перемещения предметов и заканчивая человеческим мышлением. Движение есть атрибут материи неотъемлемое свойство любого материального объекта. Движение в чистом виде существует только в мышлении в реальности же существует только движущиеся материальные объекты.
32895. Проблема познания. Ступени познания: чувственное и рациональное, эмпирическое и теоретическое. Сенсуализм и рационализм. Проблема истины. Агностицизм 44.86 KB
  Проблема познания. Ступени познания: чувственное и рациональное эмпирическое и теоретическое. Субъект познания тот кто познает; Объект познания то что познается. Чувственное познание Самая простая и исходная форма познания.