41824

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

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

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

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

Русский

2017-07-28

79.24 KB

4 чел.

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


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

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

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


 

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

1326. Линейная алгебра и комплексные числа 427.93 KB
  Системы линейных уравнений и матрицы, ранг матрицы и его приложения, линейные пространства. Тригонометрическая форма комплексного числа. Многочлены и ряды от одной переменной, кольцо многочленов от нескольких. переменных
1327. Программирование и основы алгоритмизации 512.27 KB
  Интегрированная среда разработки (IDE) C++Builder. Знакомство с Borland C++Builder. Первая программа на движение. События — как элемент триады свойство – метод – событие. Стандартные диалоговые окна на примере окон работы с файлами.
1328. Атмосфера: основные понятия и определения, физико- химические свойства пылей и газов 574.08 KB
  ФАКТОРЫ, ОБУСЛОВЛИВАЮЩИЕ ПЕРЕМЕЩЕНИЕ ВОЗДУШНЫХ МАСС. ХАРАКТЕРИСТИКА И ОСНОВНЫЕ СВОЙСТВА ПРИМЕСЕЙ АТМОСФЕРЫ. ХИМИЧЕСКИЕ ПРЕВРАЩЕНИЯ (ТРАНСФОРМАЦИЯ) ПРИМЕСЕЙ В АТМОСФЕРЕ. ОСНОВНЫЕ ФИЗИКО-ХИМИЧЕСКИЕ СВОЙСТВА ПЫЛЕЙ И ГАЗОВ.
1329. Локальные вычислительные сети 645.77 KB
  Сетевые адаптеры. Категории кабеля витая пара. Типы оптоволоконного кабеля, топология сети. Одноранговые сети и сети с выделенным файловым сервером. Сетевые операционные системы.
1330. Математическая статистика 678.8 KB
  Основные понятия выборочного метода. Эмпирическая функция распределения. Сходимость эмпирических характеристик к теоретическим. Группированные данные. Построение точных доверительных интервалов для параметров нормального распределения.
1331. Сборник тестов по анатомии человека 696.28 KB
  Учение о костях (остеология). Скелет туловища и конечностей. Скелет головы - череп. Учение о соединениях костей (артрология). Учение о мышцах (миология). Дыхательная система. Органы чувств. Органы кроветворения и иммунной системы.
1332. Visual FoxPro 8.0. Учебный курс 75.05 MB
  В этой книге Вы найдете описание современный систем управления базами данных на Visual FoxPro 8.0. Данное пособие подойдет, как для новичка-программиста, так и для профессионала, которые решил освоить новые возможности системы.
1333. Конспект лекций по прикладной алгебре 705.89 KB
  Алгебраическая теория информации. Защита информации от несанкционированного доступа, криптография, криптоанализ. Перечислительные задачи комбинаторного анализа, теорема Пойя.
1334. Исследование средств информационной безопасности систем и сетей на базе OC UNIX и разработка методик ее обеспечения 776.4 KB
  Обзор стандартов в области информационной безопасности. Критерии оценки надежных информационных систем Минобороны США. РАзработка архитектурной модели безопасности ИС и сетей на база UNIX.