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

2 чел.

ЗВІТ

з лабораторної роботи № 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


 

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

50717. Определение напряжений в днищах, нагруженных внутреннем давлением 216 KB
  Цель работы: Задачи исследования: Теоретический расчет напряжений и деформаций в эллиптическом и плоском днищах нагруженных внутренним давлением; Экспериментальное определение напряжений и деформаций в днищах сравнение их с расчетными значениями; Сравнение днищ различной формы с точки зрения возникающих в них напряжений Теоретическая часть Напряжения и деформации в эллиптических днищах нагруженных внутренним давлением В инженерной практике для расчета напряжений и деформаций пользуются...
50718. Исследование распределения напряжений в эллиптическом и коническом днищах 441.5 KB
  Расчет напряжений и деформаций в днищах нагруженных внутренним давлением. Экспериментальное определение напряжений и деформаций в днищах. Анализ результатов теоретической и экспериментального исследования напряженного...
50719. ИССЛЕДОВАНИЕ ТРЕХФАЗНОЙ ЦЕПИ ПРИ СОЕДИНЕНИИ НАГРУЗКИ ЗВЕЗДОЙ 595.5 KB
  Экспериментальное определение основных соотношений между токами, напряжениями и мощностями в симметричных и несимметричных цепях. Исследование различных режимов работы трехфазной цепи. Выяснение практической роли нейтрального провода.
50720. Анализ напряженного состояния аппарата, нагруженного внутренним давлением и изгибающим моментом 253.5 KB
  Из приведенных соотношений видно что напряжения вызванные внутренним давлением р постоянны не зависят от положения сечения на оболочке. При изгибе колонны в её стенках возникают нормальные в меридиональном направлении а также касательные напряжения которыми в виду их малости можно пренебречь. Меридиональные напряжения определяются по...
50721. ИССЛЕДОВАНИЕ НЕЛИНЕЙНОЙ ЭЛЕКТРИЧЕСКОЙ ЦЕПИ ПОСТОЯННОГО ТОКА 213.5 KB
  Цель работы Совершенствование навыков снятия вольтамперных характеристик ВАХ нелинейных элементов. Некоторые нелинейные элементы на отдельных участках ВАХ имеют малое стабилитрон или отрицательное терморезистор динамическое сопротивление. Для снятия таких ВАХ необходимо предусмотреть включение в схему эксперимента последовательно с нелинейным элементом добавочного резистора Rд рис. ВАХ линейного резистора проходит через начало координат поэтому для ее построения достаточно экспериментально получить одну точку.
50722. Определение молярной массы и плотности газа 35 KB
  Вычисление молярной массы воздуха Вычисление плотности воздуха Вычисление границ неисключенных систематических погрешностей отдельных измерений: Вычисление границы относительной погрешности результата измерения молярной массы воздуха...
50723. Використання покажчиків для роботи з функціями 37 KB
  Тема: Використання покажчиків для роботи з функціями. Ціль роботи: виробити практичні навички в написанні програм з функціями й у використання покажчиків для роботи з функціями. Обладнання: ПК,ПО Borland C++
50724. Використання спадкування для створення ієрархії класів 37 KB
  Тема: використання спадкування для створення ієрархії класів. Ціль роботи: одержати навички у використанні спадкування для створення похідних класів при простому спадкуванні. Обладнання: ПК, ПО Borland C++
50725. Використання віртуальних і покажчиків для роботи з обєктами класів 38.5 KB
  Тема: Використання віртуальних і покажчиків для роботи з обєктами класів. Ціль роботи: вивчити і навчитися використовувати віртуальні функції в мові С++. Обладнання: ПК,ПО Borland C++