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


 

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

58975. Будь обережним на дорозі, Виховна година 66.5 KB
  Відстані між районами установами магазинами такі значні що подолати їх можна тільки за допомогою транспорту. Щоб уникнути травмування необхідно: переходити тільки тоді коли впевнений що транспорт знаходиться на достатній відстані...
58976. Сценарій позакласного заходу. Букварикове свято 55 KB
  Ми всіх гостей вітаємо І дуже вам радіємо. Діліділі діньділінь Всім присутнім добрий день Хлопчик. Хвилюються і радіють їхні батьки вчителі всі хто прийшов до нас на свято. Здоровя і щастя вам В путь щасливу і широку Всіх виводить перший клас.
58977. В. Сухомлинський. Людина. Учитель. Солдат 55 KB
  Мета: показати учням, що В. Сухомлинський - людина, по-справжньому закохана у свою професію, педагог за покликанням, у грізні часи Великої Вітчизняної війни став захисником Батьківщини; виховував повагу до постаті Добротворця...
58978. Від конфлікту до співробітництва 34.5 KB
  Мета: формувати громадянські риси, показати загальний характер прав людини, розвивати навички співробітництва, взаємодопомоги, виховувати товариськість, взаємоповагу...
58980. Від серця до серця. Родинне свято (1-й клас) 31 KB
  Без батьків чого ми в світі варті Без маминої ласки і тепла Без татової строгості і жарту Без свого родинного тепла. А від усмішок ласкавих стане в світі менше зла.
58981. Від сопілки - до слова, від слова - до мови... 40 KB
  Перший ведучий. Із святом рідної мови вас, шановні добродії, із святом, шанувальники рідного слова. Мова - то цілюще джерело, і хто не припаде до нього вустами, той сам усихає від спраги.
58982. В гостях у Сонечка на галявині Здоровя 59 KB
  Мета. Створити умови для закріплення знань учнів з питань здорового способу життя; розширити поняття про те, що від здоровя дітей залежить здоровя нації, а значить благополуччя і добробут всієї України, її майбутнє.
58983. Веселі восьминоги 41 KB
  Самостійне виготовлення з паперу веселого восьминожка. прийомів обробки паперу; стимулювання творчої діяльності учнів. Вони сприймаються ніби вирізаними з паперу чи картону.