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


 

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

9925. Антивирусная защита информационных технологий 165 KB
  Антивирусная защита информационных технологий Основные угрозы информационной безопасности. Классификация вредоносных программ. Принципы функционирования современной антивирусной защиты, типы и разновидности антивирусных средств. Вряд ли стоит напоми...
9926. Экранирование, анализ защищенности 86 KB
  Экранирование, анализ защищенности Рассматриваются сравнительно новые (развивающиеся с начала 1990-х годов) сервисы безопасности - экранирование и анализ защищенности. Экранирование Основные понятия Формальная постановка задачи экранирования, с...
9927. Обеспечение высокой доступности 90 KB
  Обеспечение высокой доступности Рассматриваются два вида средств поддержания высокой доступности: обеспечение отказоустойчивости (нейтрализация отказов, живучесть) и обеспечение безопасного и быстрого восстановления после отказов (обслуживаемость). ...
9928. Протоколирование и аудит, шифрование, контроль целостности 109.5 KB
  Протоколирование и аудит, шифрование, контроль целостности Описываются протоколирование и аудит, а также криптографические методы защиты. Показывается их место в общей архитектуре безопасности. Протоколирование и аудит Основные понятия Под протоколи...
9929. Криптографические основы безопасности. Основные понятия и определения 142.5 KB
  Криптографические основы безопасности Введение: Даются основные понятия и определения, относящиеся к информационной безопасности: атаки, уязвимости, политика безопасности, механизмы и сервисы безопасности приводится классификация атак рассматриваю...
9930. Сохранность и защита программных систем 6.23 MB
  Сохранность и защита программных систем Цели защиты информации. Теоретические основы компьютерной безопасности. Требования, предъявляемые к обеспечению безопасности информационных технологий. Организационно-правовое обеспечение информационной...
9931. Средства и методы защиты операционных систем 584.5 KB
  Средства и методы защиты операционных систем Технические средства и методы защиты информации. Криптографические методы защиты информации. Программно-аппаратные средства обеспечения информационной безопасности Наши бастионы. Обзор программных...
9932. Безопасность операционных систем. Классификация программных продуктов 4.84 MB
  Безопасность операционных систем Общая характеристика операционных систем назначение и возможности. Организация управления доступом и защиты ресурсов ОС основные механизмы безопасности. Генерация, настройка, измерение производительности и модифика...
9933. Информационная безопасность при использовании ОС Windows 98 447 KB
  Информационная безопасность при использовании ОС Windows 98 Архитектура подсистемы безопасности, базовая настройка подсистемы безопасности. Обеспечение безопасности в Windows 98 В этом разделе сперва рассмотрим три важных типа защиты сист...