23826

Процедури та функції

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

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

Caption = InputBox Введіть значення інформаційного ресурсу країни C End Sub Function nA B C As Integer Picture1.Scale 0 1010 0 Picture1.1 Picture1.Print A Picture1.

Украинкский

2013-08-05

80 KB

3 чел.

ЗВІТ

з лабораторної роботи № 7

" Процедури та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "17" грудня 2008 р.

Виконання завдань:

  1.  Створив додаток, що повертає значення могутності держави

Вигляд вікна робочого додатка:

Програмний код додатка:

Private Sub Form_Load()

Dim a, b, c As Single

Label1.Caption = InputBox("Введіть назву країни")

Label7.Caption = InputBox("Введіть чисельність населення")

Label8.Caption = InputBox("Введіть об'єм ВНП")

Label9.Caption = InputBox("Введіть суму витрат на військові цілі")

End Sub

Private Sub Command1_Click()

a = Val(Label7.Caption)

b = Val(Label8.Caption)

c = Val(Label9.Caption)

Call Power(a, b, c, P1)

P1 = CInt(P1)

Label3.Caption = Str(P1)

End Sub

Private Function Power(a, b, c, P1) As Long

P1 = 0.37 * a ^ 0.41 * b ^ 0.62 * c ^ 0.28

End Function

  1.  Створив додаток, що перевіряє, чи введений рядок не закінчується на крапку, знак оклику чи знак питання.

Вигляд вікна робочого додатка:

 Програмний код додатка: 

Private Sub Form_Load()

Dim a As String

Label1.Caption = InputBox("Введіть рядок")

End Sub

Private Sub Command1_Click()

a = Right(Label1.Caption, 1)

Call A1(a)

End Sub

Private Function A1(a) As String

If a = "." Or a = "!" Or a = "?" Then

Label3.Caption = "ТАК"

Else

Label3.Caption = "НІ"

End If

End Function

  1.  Створив додаток, який малює граф обміну інформаційними ресурсами між трьома країнами.

Вікно робочого додатка:

Програмний код додатка:

Private Sub Command1_Click()

Call n(A, B, C)

Call Triangle(A, B, C)

End Sub

Private Sub Form_Load()

Label4.Caption = InputBox("Введіть значення інформаційного ресурсу країни А")

Label5.Caption = InputBox("Введіть значення інформаційного ресурсу країни B")

Label6.Caption = InputBox("Введіть значення інформаційного ресурсу країни C")

End Sub

Function n(A, B, C) As Integer

Picture1.Scale (0, 10)-(10, 0)

Picture1.Circle (2, 3), 0.1

Picture1.Print " A"

Picture1.Circle (8, 3), 0.1

Picture1.Print "  B"

Picture1.Circle (5, 8), 0.1

Picture1.Print "   C"

Picture1.Line (2.1, 3.1)-(7.9, 3.1)

Picture1.Line (2.1, 3.1)-(4.9, 7.9)

Picture1.Line (5.1, 7.9)-(7.9, 3.1)

End Function

Function Triangle(A, B, C) As Single

A = Val(Label4.Caption)

B = Val(Label5.Caption)

C = Val(Label6.Caption)

If A > B Then

Picture1.PSet (7.6, 2.9)

Picture1.Print "--"

Picture1.PSet (2.5, 2.9)

Picture1.Print "+"

Else

Picture1.PSet (7.6, 2.9)

Picture1.Print "+"

Picture1.PSet (2.5, 2.9)

Picture1.Print "--"

End If

If A > C Then

Picture1.PSet (4.4, 7.9)

Picture1.Print "--"

Picture1.PSet (2.5, 3.3)

Picture1.Print "+"

Else

Picture1.PSet (4.4, 7.9)

Picture1.Print "+"

Picture1.PSet (2, 3.7)

Picture1.Print "--"

End If

If B > C Then

Picture1.PSet (5.8, 7.9)

Picture1.Print "--"

Picture1.PSet (7.9, 3.7)

Picture1.Print "+"

Else

Picture1.PSet (5.8, 7.9)

Picture1.Print "+"

Picture1.PSet (7.9, 3.7)

Picture1.Print "--"

End If

End Function

  1.  Створив додаток, що повертає ціле випадкове число в заданому інтервалі.

Вікно працюючого додатка:

Програмний код додатка:

Private Sub Form_Load()

Label1.Caption = InputBox("Введіть початок діапазону")

Label2.Caption = InputBox("Введіть кінець діапазону")

End Sub

Private Sub Command1_Click()

Dim a, b As Single

a = Val(Label1.Caption)

b = Val(Label2.Caption)

Call Random(a, b, n)

Label4.Caption = Str(n)

End Sub

Private Function Random(a, b, n) As Integer

n = Int((b - a + 1) * Rnd + a)

End Function


 

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

48992. Аналіз рентабельності окремих видів продукції 531.5 KB
  Теоретичні основи аналізу рентабельності окремих видів продукції. Рентабельність продукції як критерій формування виробничої програми. Фактори які впливають на рентабельність окремих видів продукції.
48995. Контурно-графічний аналіз результатів двохфакторного експерименту 396.5 KB
  Автоматизація господарського обліку з використанням баз даних Ключові слова: науковими програмами дослідження проблеми. Аннотация: Досліджено еволюцію існуючих форм і технологій ведення обліку. Визначено провідні тенденції в розвитку компютерних технологій ведення обліку й обгрунтовано підходи щодо їх побудови з використанням баз даних. Запропоновано архівнокомп'ютерну форму обліку на основі автоматизації банком поточного архіву електронних документів планового облікового та нормативнодоговірного характеру.
48996. Розробка шляхів підвищення ефективності операційного менеджменту ІФД УДППЗ «Укрпошта» 618 KB
  Теоретикометодичні основи дослідження системного аналізу Поняття системи і системного аналізу Сутність системного аналізу Класифікація методів та прийомів системного аналізу Аналітична частина.
48997. Массовые коммуникации (Public Relations) 204.56 KB
  Public Relations, СО, Связи с общественностью — комплекс мероприятий по продвижению человека, компании, общественного движения, партии и пр., основанных на предоставлении общественности информации и сотрудничестве с ней. На сегодняшний день, существует более пятисот определений PR.
48998. Профессиональная диагностика 532.5 KB
  Ставится задача создания системы специализированной подготовки профильного обучения в старших классах общеобразовательной школы ориентированной на индивидуализацию обучения и социализацию обучающихся. Введение профильного обучения –- одно из важных направлений модернизации российской школы. Создание системы информационной организационной и педагогической деятельности для профессиональной мотивации школьниками способствует определению ими профиля обучения и выбора сферы деятельности. С сентября 2003 года в школьную систему было...
48999. Оценка стоимости квартир 582.5 KB
  Искусственные нейронные сети НС имеет клеточную структуру и состоит из клеток – нейронов сгруппированных в нейронные ансамбли и сети. Искусственные нейронные сети Нейронные сети представляют собой сеть элементов математических нейронов связанных между собой синоптическими соединениями. Работа сети состоит в преобразовании входных сигналов во времени в результате чего меняется внутреннее состояние сети и формируются выходные воздействия.
49000. Риск родителей быть лишенными родительских прав в отношении своих несовершеннолетних детей 1.77 MB
  Практическое применение нейронных сетей для определения риска родителей быть лишенными родительских прав в отношении своих несовершеннолетних детей. В данной курсовой работе я попытаюсь решить такую задачу как принятие решения о возможности родителей быть лишенными родительских прав в отношении своих несовершеннолетних детей. Цель данной работы: показать можно ли использовать нейронные сети и будет ли эффективным их использование в области социологии при решении лишения родительских прав.