41824

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

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

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

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

Русский

2017-07-28

79.24 KB

5 чел.

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


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

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

Выполнила студентка группы БИН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


 

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

78563. Права дитини. Право дитини на здоров’я в сім’ї і суспільстві 73.5 KB
  Мета: «Продовжувати формувати уявлення про права дитини. Ознайомити учнів з поняттям «право», «Конституція», «Декларація», «Конвенція». Акцентувати увагу на правах дитини, які порушуються в родині, у школі. Розвивати увагу, старанність.
78564. Я – дитина. Я теж маю права! 7.14 MB
  Мета: сформувати в учнів уявлення про те що школа це осередок розвитку громади в якій діти можуть відчути свою значущість взявши участь у розробці та реалізації правових та соціальних проектів; сформувати уявлення про права і свободи громадян...
78565. Правила життя в суспільстві 39 KB
  Мета. Ознайомити учнів із правилами життя в суспільстві, підвищувати рівень правової освіти учнів; розвивати вміння аналізувати, узагальнювати; виховувати повагу до людини, її прав, доброзичливість, миролюбність.
78566. Правила для учнів 128.5 KB
  Обговорення відомих правил для учнів Заходить вчитель треба встать Коли тобі дозволять сядь Сказати хочеш не гукай А тільки руку піднімай. Сьогодні ми продовжимо складати нові правила для учнів запамятовувати їх і виконувати. Друге правило для учнів Вчасно йди завжди до школи Та не спізнюйся ніколи.
78567. Вчимо правила безпечної поведінки, граючи 94.5 KB
  Мета: Навчити учнів дотримуватися правил безпечного переходу вулиць і доріг повторити правила дорожнього руху розглянути причини ДТП вчити запобігати їх виникнення. Я допомагаю машинам і пішоходам виконувати правила дорожнього руху.
78568. ОСНОВНІ ПРАВОПОРУШЕННЯ 32.5 KB
  Мета: Сформулювати уявлення про правопорушення; познайомити з видами правопорушень; вчити учнів бути чесними громадянами України; виховувати негативне ставлення до правопорушень норм моралі та прав людини. Сьогодні на уроці ми поговоримо про правопорушення.
78569. Мы школьниками стали 43 KB
  Ведущий: Ну, конечно, в первый! Мы проучились в нем...месяца и стали настоящими учениками. Приглашаем всех на весёлый праздник - «Мы школьниками стали». 3-й ученик: Пусть зовут нас «шестилетки»! пусть не ставят нам отметки! Не ведём мы дневники!
78570. Повторення вивченого про прикметник. Спостереження за роллю прикметників у мовленні 90 KB
  Прикметники-синоніми прикметники-антоніми та прикметники багатозначні слова. Спиши вставляючи в речення потрібні за змістом прикметники. Випиши прикметники. Опиши поданий український вишитий рушник використовуючи різні прикметники.
78571. Водойми, їх різноманіття 49 KB
  Вода. Під горою під крутою не ріка тече струною Це холодна бє вода із старого Джерела. Яке значення має вода на Землі Які водойми суші ви знаєте Яким кольором позначають воду на карті глобусі IV Вивчення нового матеріалу 1. Вода напуває Землю яка годує людину.