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


 

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

7605. Курсори SQL 132 KB
  Курсори SQL Курсор дозволяє включити у вибірку тільки деякі з отриманих записів. При правильному використанні курсори підвищують ефективність роботи з наборами записів. Курсори виконуються тільки в транзакційних блоках...
7606. Основи гідравліки та гідравлічних приводів 102.83 KB
  Предмет і задачі дисципліни. Склад та принцип дії гідравлічного приводу. Призначення та області застосування гідравлічних приводів. Порівняльна характеристика різних типів приводів. Класифікація гідравлічних приводів...
7607. Робочі рідини гідравлічних приводів 80.54 KB
  Робочі рідини гідравлічних приводів Призначення робочих рідин Вимоги до робочих рідин Властивості робочих рідин Робочі рідини, які використовуються в гідравлічних приводах В гідравлічних системах...
7608. Процеси передачі і розсіювання енергії в об’ємних приводах 144.75 KB
  Процеси передачі ірозсіювання енергії в об’ємних приводах Передача енергії рідиною Потоки енергії в приводах з об’ємним і дросельним регулюванням Розрахунок втрат потужності в об’ємних приводах при усталеному р...
7609. Гідравлічні двигуни 293.31 KB
  Гідравлічні двигуни Класифікація гідравлічних двигунів Гідроциліндри Поворотні двигуни Гідромотори Гідравлічний об’ємний двигун - енергетична машина, призначена для перетворення гідравлічної...
7610. Джерела живлення гідравлічних приводів 89.4 KB
  Джерела живлення гідравлічних приводів Класифікація джерел живлення Акумулятори Насоси Гідравлічним акумулятором називається місткість, яка призначена для накопичення (акумулювання) енергії рідини, що знаходиться під ти...
7611. Тиристоры. Общие сведения 285.5 KB
  Тиристоры. Общие сведения Тиристорами называют полупроводниковые приборы с тремя и более p-n-переходами, имеющие S-образную вольт-амперную характеристику. Устройство тиристора схематично показано на рис. 1. При изготовлении тиристора берут пластину...
7612. Классификация сигналов 53 KB
  Классификация сигналов Информация - это совокупность сведений об объектах или процессах, происходящих в природе, обществе или технических системах. Для передачи и хранения информации используют различные знаки, позволяющие представить ее в неко...
7613. Импульсные сигналы и их параметры 73.5 KB
  Импульсные сигналы и их параметры Под электрическим импульсом будем понимать кратковременное отклонение напряжения или тока от некоторого начального уровня. Импульсы постоянного тока или напряжения называют видеоимпульсами, в отличие от радиоимпульс...