41824

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

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

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

Выполнения данной лабораторной работы состоит в изучении средств, приемов и получении практических навыков разработки, написания и отладки программ формирования и обработки двумерных массивов Click Dim m n s Integer Dim L s Single m = vvodTextBox1 n = vvodTextBox2 Dim Km n s Single postroenie_Km n K vivodMssm n K ListBox1 L = crete_Lm n K vivodMssm n L ListBox2 End Sub Function vvodByVl T s TextBox s Integer Return VlT.Text End Function Sub vivodMssByVl m s Integer ByVl n s Integer ByVl s Single ByRef ListBox s ListBox...

Русский

2013-10-25

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


 

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

82467. Технологическая и экономическая эффективность производства, отдача от масштаба производства. Оптимальная комбинация производства, предельные нормы технологического замещения 38.12 KB
  Оптимальная комбинация производства предельные нормы технологического замещения. для производства других продуктов и услуг т. виды экономического производства: легальное производство; незаконное производство; скрытое производство и подпольная экономика; любые поставки товаров и услуг между заведениями принадлежащими одному и тому же предприятию так как они считаются частью продукции предприятия как единого целого; незавершенное производство; производство товаров и услуг домашними хозяйствами а также услуг оказываемых наемной...
82468. Основные макроэкономические показатели и система национальных счетов (ВВП; ВНП; ЧНП; НД) 35.99 KB
  Валовой национальный продукт ВНП – рыночная стоимость всех предназначенных для конечного потребления товаров и услуг произведенных принадлежащими данной стране факторами производства в течение определенного периода времени года. При подсчете ВНП учитываются товары и услуги произведенные факторами производства принадлежащими данной стране. Номинальный ВНП ВВП измеряет стоимость выпуска в данном периоде по ценам этого периода или в текущих денежных единицах.
82469. Макроэкономическое равновесие на рынке товаров и распределение уровня национального дохода 64.25 KB
  Модель DS позволяет рассмотреть механизм формирования равновесного объема национального производства в краткосрочном периоде в условиях изменяющихся цен. Точка Е1 отражает ситуацию макроэкономического равновесия при высоком уровне безработицы и негибкости цен. Увеличение совокупного спроса на кейнсианском отрезке приводит к увеличению реального объема национального продукта но не затрагивает уровня цен. Точка Е2 характеризует макроэкономическое равновесие в условиях неполной занятости наличия узких мест в экономике и отставания темпов...
82470. Кредитно–денежная система и кредитно-денежная политика 35.54 KB
  Кредитно-денежная система – это совокупность кредитных отношений форм и методов кредитования осуществляемых кредитно-финансовыми институтами которые создают аккумулируют и предоставляют экономическим субъектам денежные средства в виде кредита на условиях срочности платности и возвратности. Современная кредитноденежная система государства складывается из банковской системы Центробанк и коммерческие банки и совокупности так называемых специализированных небанковских кредитнофинансовых институтов способных аккумулировать временно...
82471. Рынок ценных бумаг. Структура, организация и функции рынка ценных бумаг 38.45 KB
  По виду ценных бумаг рынок облигаций рынок акций рынок производных финансовых инструментов. По эмитентам рынок ценных бумаг предприятий рынок государственных ценных бумаг и т. По срокам рынок кратко средне долгосрочных и бессрочных ценных бумаг. По видам сделок кассовый рынок подразумевает мгновенное исполнение сделок форвардный рынок и т.
82472. Налогово-бюджетная система и налогово-бюджетная политика. Кривая Лаффера 147.69 KB
  Бюджетноналоговая политика – это такая политика которая направлена на стабилизацию экки с помощью гос. От качества федерального бюджета от уровня собираемости налогов зависят инвестиционные возможности госва уровень соц. защиты граждан предпринимательская активность взаимоотношения РФ с другими странами и в целом результативность всей внутренней и внешней политики госва. Бюджетноналоговая политика представляет собой совокупность мер правительства по изменению гос.
82473. Бюджетный дефицит и способы его финансирования(дискреционная и недискреционная налогово-бюджетная политика, встроенные стабилизаторы) 34.35 KB
  Дискреционная гибкая налоговобюджетная политика – это сознательное манипулирование со стороны законодательной власти налогообложением и государственными расходами с целью воздействия на уровень экономической активности. Недискреционная налоговобюджетная политика – это автоматические изменения в уровне налоговых поступлений независимые от принятия решений правительством. Законодательный орган определяет только ставки налогов а не размер налоговых поступлений бюджетная политика является результатом действия автоматических или встроенных...
82474. Проблема сбалансированности государственного бюджета. Государственный долг и его экономические последствия 34.92 KB
  Различают два вида государственного долга: внутренний и внешний. Серьезные проблемы и негативные последствия большого государственного долга заключаются в следующем:  Снижается эффективность экономики поскольку отвлекаются средства из производственного сектора экономики как на обслуживание долга так и на выплату самой суммы долга;  Перераспределяется доход от частного сектора к государственному;  Усиливается неравенство в доходах;  Рефинансирование долга ведет к росту ставки процента что вызывает вытеснение инвестиций в...
82475. Инфляция и антиинфляционная политика. Причины и виды инфляции. Эффект Фишера. Кривая Филлипса 35.29 KB
  Причины и виды инфляции. Антиинфляционная политика это комплекс мер по государственному регулированию экономики направленный на подавление инфляции. Причины инфляции: нарушение закона денежного обращения; диспропорции между спросом и предложением; диспропорции между доходами и расходами государства; диспропорции между источниками кредитных ресурсов и их использованием; диспропорции между денежной массой в обращении и реальными потребностями. Виды инфляции...