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


 

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

32306. Правовое государство 26.5 KB
  Основными признаками чертами правового государства являются следующие. Полная гарантированность и незыблемость закона в условиях существования прав и свобод граждан а также установление и поддержание принципа взаимной ответственности гражданина и государства в главе 2 Конституции РФ содержится полный перечень экономических политических юридических и социальнокультурных гарантий обеспечения основных прав и свобод граждан. Суть данного принципа состоит в том что для обеспечения процесса нормального функционирования государства в нем...
32307. РЕАЛИЗАЦИЯ ПРАВА: ПОНЯТИЕ И ФОРМЫ 63.5 KB
  Применительно к праву этот процесс означает его перевод в качество правомерного поведения использование свойств права для достижения социально полезного результата. Субъектами реализации права являются те лица на которых право распространяет свое действие то есть субъекты права. Явич справедливо заметил что осуществление права не всегда представляло практическую и теоретическую проблему ее не было когда защищенные силой фактические отношения на заре цивилизации являлись правом ее не бывает или почти не оказывается когда...
32308. Учение о составе правонарушения понятие состава правонарушения как основания юридической ответственности. Элементы состава и их характеристика 46.5 KB
  Учение о составе правонарушения понятие состава правонарушения как основания юридической ответственности. Установление состава правонарушения является юридической квалификацией содеянного весьма важной с правовой точки зрения логической операцией непосредственно затрагивающей судьбу личности. Наличие состава правонарушения является основанием для привлечения виновного лица к юридической ответственности. В состав правонарушения входят следующие четыре элемента которые в свою очередь раскрываются через ряд собственных специфических черт и...
32309. Предмет Теории государства и права 44 KB
  Для теории государства и права в качестве объекта выступают государство и право которые в то же время исследуются и другими науками как юридическими так и не юридическими философией политологией экономикой социологией и т. В качестве предмета теории государства и права выступают два следующих блока объективной действительности. 1 Наиболее общие закономерности возникновения развития и функционирования государства и права. Отсюда предметом теории государства и права будут выступать основные государственноправовые закономерности а...
32310. Место и роль ТГП в системе юридических наук 40.5 KB
  Они дают знания о развитии и чертах государства и права вообще безотносительно к конкретным государствам или праву действующему на отдельной территории. К фундаментальным наукам относятся: o теория государства и права; o история государства и права России и зарубежных стран; o история политических и правовых учений. Эти науки изучают отдельные отрасли права. Они призваны выявить специфику той или иной отрасли ее особенности характерные черты отличия от других отраслей права.
32311. Методология юридической науки 39.5 KB
  Методология юридической науки. Особенности науки теории государства и права выражаются не только в ее предмете но и в методе. Под методом науки понимается совокупность приемов средств принципов и правил с помощью которых обучающийся постигает предмет получает новые знания. Метод это подход к изучаемым явлениям предметам и процессам планомерный путь научного познания и установления истины.
32312. Общая характеристика власти догосударственного периода 37 KB
  Любое общество представляет собой своего рода целостный социальный организм систему который отличается той или иной степенью организованности урегулированности упорядоченности общественных отношений. Для первобытнообщинного строя были характерны следующие черты: наличие лишь примитивных орудий и неспособность человека без помощи всего рода выжить и обеспечить себя пищей одеждой жилищем. Все взрослое население рода и мужчины и женщины имели право участвовать в обсуждении и решении любого вопроса связанного с деятельностью рода....
32313. Азиатский способ производства и возникновение государств на Др.Востоке (восточно-деспотических государств) 34.5 KB
  Постепенно по мере роста масштабов кооперации коллективной трудовой деятельности зародившиеся еще в родоплеменных коллективах зачатки государственной власти превращаются в органы управления и господства над суммами общин которые в зависимости от широты экономических целей складываются в микро и макрогосударства объединяемые силой централизованной власти. Общинники считаются свободными однако фактически все стало государственной собственностью включая личность и жизнь всех подданных которые оказались в безраздельной власти...
32314. Возникновение государственности в Европе (Афины, Рим, германцы, славяне). Общие закономерности и особенности 50 KB
  В отличие от азиатского государства ведущим государствообразующим фактором на территории Европы было классовое разделение общества. Следовательно для генезиса Афинского государства характерно то что оно возникает непосредственно и прежде всего из классовых антагонизмов развивающихся в недрах родоплеменного общества. В длившейся 200 лет борьбе между двумя группами свободных членов римского родоплеменного общества плебеи вырывали у патрициев одну уступку за другой. Если само положение Греции и Рима способствовало...