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


 

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

3334. Дефектація корпусних деталей 106.5 KB
  Дефектація корпусних деталей Обладнання, інструмент. Корпус коробки переключення передач (КПП) трактора Т-170 18-2-156 СБ, стенд для кріплення корпуса, індикаторні нутроміри НИ 100-160, НИ 18-50, мікрометри МК 175-2, МК 150-2, МК 125-2, МК 25-2, шт...
3335. Відновлення деталей вібродуговим наплавленням 1.11 MB
  Відновлення деталей вібродуговим наплавленням Обладнання, інструмент. Наплавочна установка в комплекті: токарний верстат, наплавочна головка ОКС 6569, джерело живлення ВДУ-506, балон з вуглекислим газом, підігрівник, осушувач, редуктор, пульт керува...
3336. Дефектація валів, шестерень, підшипників 521 KB
  Дефектація валів, шестерень, підшипників Обладнання, інструмент. Перший проміжний вал коробки переключення передач трактора Т-170 18-12-132, мікрометри МК 75-2, МЗ 75-2, ролики діаметром 6 мм, ролики зі скосом кромок, різьбові кільця М 52 X 2...
3337. Відновлення деталей газополуменевим напиленням порошків 73.5 KB
  Суть процесу. Порошковий присаджувальний матеріал подається транспортувальним газом у зону полум'я, де обплавляеться і струменем горючих газів вино¬ситься на поверхню деталі. Порошкові суміші можуть подаватися і безпосередньо в полум'я пальника.
3338. Відновлення деталей наплавленням під шаром флюсу 1.02 MB
  Відновлення деталей наплавленням під шаром флюсу Обладнання, інструмент. Установка для наплавлення в комплекті: наплавочна головка А-580М, зварювальний перетворювач ПСО-500, верстат для установки головки, верстат для кріплення котка, щит розподільн...
3339. Оброблення деталей методом пластичного деформування 313.5 KB
  Оброблення деталей методом пластичного деформування. Обладнання, Інструмент. Токарно-гвинторізний верстат, набір накаток: кулькова жорстка, роликова жорстка і пружна, роликова для відновлення пружин, при стрій для кріплення пружин, твердомір Т...
3340. Відновлення деталей електролітичним хромуванням 81 KB
  Відновлення деталей електролітичним хромуванням Обладнання, інструмент. Хромувальна установка, джерело живлення, підвісні пристрої для деталей при хромуванні, ключі ріжкові 10 X 12; 12 X 14; 17 X 19, 22 X 24, мікрометр. МК 25-2, ...
3341. Анализ товарооборота и факторов, влияющих на его изменение 479 KB
  Введение В настоящие время главной целью торговых предприятий должно быть получение максимальной прибыли, при этом товарооборот выступает как важнейшее и необходимое условие, без которого не может быть достигнута эта цель. Поскольку торговое предпри...
3342. Модульные задания по 1 части курса физики 692 KB
  Физика является основой практически всех общеинженерных и специальных дисциплин. Глубокое знание физики необходимо студентам инженерно-педагогических специальностей, так как характер их будущей работы требует творческого отношения к делу, умения неп...