41824

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

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

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

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

Русский

2017-07-28

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


 

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

2751. Задачи по анализу рабочего времени 102.08 KB
  Задача 1 Определить номинальный и действительный фонд времени работы работника, коэффициент выполнения норм выработки, чиcлeннocть ocнoвныx пpoизвoдcтвeнных paбoчиx и пpoизвoдитeльнocть тpyдa, ecли выпуск продyкции cocтaвит 600 млн. pyб. B плaниpyeм...
2752. Производственный менеджмент. Курс лекций 611.46 KB
  Сегодняшнее состояние экономики страны - это, прежде всего, состояние ее производственной сферы, основным звеном, фундаментом производственного потенциала которой является предприятие - самостоятельный хозяйствующий субъект, имеющий права юридическо...
2753. Общие положения о геодезических разбивочных работах 176.6 KB
  Общие положения о геодезических разбивочных работах Назначение и организация разбивочных работ Разбивочные работы являются одним из основных видов инженерно-геодезической деятельности. Выполняют их для определения на местности планового и высотного ...
2754. Механика. Молекулярная физика 767.33 KB
  Механика. Молекулярная физика. Кинематика  Основные понятия и величины Классическая механика изучает механическое движение частиц (материальных точек) и тел, т.е. изменение положения их в пространстве с течением времени. Частица (материальная...
2755. Изучение колебаний математического маятника 374.5 KB
  Цель работы Наблюдения над колебательными движениями математического маятника, реализуемые на приборе, функциональная схема которого, представлена на рисунке 1. Измерение периода колебаний маятника при различных длинах и амплитудах. Определение...
2756. Статистическая физика 985.5 KB
  Основные идеи статистической физики Краткие сведения из теории вероятностей Фазовое пространство. Теорема Лиувилля Статистический вес, энтропия, микроканоническое распределение Вероятностные процессы Каноническое распределение Гиббса...
2757. Теории линий передачи СВЧ 2.01 MB
  Основы теории линий передачи СВЧ. Классификация линий передачи СВЧ. В соответствии с ГОСТ линией передачи СВЧ называется устройство, ограничивающее область распространения электромагнитных колебаний и направляющее поток электромагнитной энерги...
2758. Первоначальные действия по факту пожара 372.67 KB
  Изложены основные вопросы квалификации правонарушений, связанных с пожарами, проведения проверки заявлений и сообщений о происшествиях такого рода, производства по ним неотложных следственных действий. Учтены происшедшие изменения в законодательстве...
2759. Экономическая диагностика предприятия 176.37 KB
  Содержатся теоретические основы, методика и алгоритм диагностики экономического состояния предприятия по данным бухгалтерской отчетности. Приведены формулы для расчета показателей и учета факторов, влияющих на их значения, формы для представления ис...