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


 

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

45393. Функции государства 45.94 KB
  Функции государства нельзя отождествлять с функциями его отдельных органов которые являются частью аппарата государства и находят свое выражение в компетенции в предмете ведения в правах и обязанностях полномочиях закрепленных за ними. Внутренние функции обеспечивают его внутреннюю политику: V политическая выработка внутренней политики государства регулирование сферы политических отношений обеспечение народовластия; 2 экономическая регулирование сферы экономических отношений создание условий для развития производства:...
45394. Правовые формы осуществления функций государства: понятие и виды юридической деятельности 56.7 KB
  К правовым формам относятся: 1 правотворческая деятельность по подготовке и изданию нормативных актов способствующих осуществлению той или иной функции государства; 2 правоприменительная деятельность по реализации нормативных актов путём принятия актов применения права; это повседневная работа по выполнению законов и по разрешению разнообразных вопросов управленческого характера; 3 правоохранительная деятельность по защите прав и свобод человека и гражданина по предупреждению правонарушений и привлечению к юридической...
45395. Государственные органы: понятие, виды, принципы формирования и функционирования 95.76 KB
  Здесь необходимо подчеркнуть важную роль юридической квалификации в применении права ибо именно это правоприменительное действие есть условие обеспечивающее качество реализации юридических предписаний в практической жизни. Задача юридической квалификации в определении юридической природы конкретного фактического обстоятельства т. Обоснованность справедливость и эффективность итогового решения как результата квалификации зависят от качества установления юридической природы фактических обстоятельств от соблюдения правоприменителем...
45396. Форма государства: понятие и общая характеристика вопросов 51.9 KB
  форма государства: понятие и общая характеристика вопросов Любое государство помимо его сущности и социального назначения характеризуется также некоторыми внешними признаками. Совокупность его внешних характеристик определяющих порядок формирования и осуществления государственной власти административнотерриториальное устройство и составляет форму государства или форму организации государственной власти. Форма государства характеризует отношения между людьми и государством в процессе управления ими способы организации высших органов...
45397. Форма правления. Понятие и виды 68.28 KB
  Толкование права:понятие цели способы виды Толкование правовых норм важнейшее условие их правильного понимания и применения. Толкование древнейший правовой институт. В данном случае под толкованием понимается выяснение точного смысла содержания толкуемой право вой нормы. При этом толкование прибавляя новое знание о норме ни в коей мере не изменяет и не заменяет её; тем более не создаёт новой.
45398. Монархия как форма правления: понятие, признаки, виды 49.33 KB
  Буржуазные в которых власть короля ограничивается конституцией и парламентом и которые подразделяются на дуалистические когда монарх сохраняет всю полноту исполнительной власти в частности назначает министров ответственных перед ним и парламентарные когда монарх как глава исполнительной власти ограничен в правах и в частности назначаемые им министры зависят от вотума доверия парламента например Великобритания Швеция. Система права: понятие признаки элементы Под системой права понимается определённая внутренняя его структура...
45399. Республика как форма правления, понятие, виды, признаки 49.09 KB
  Наличие у президента права вето на законы принимаемые парламентом. Парламент также имеет возможность контролировать правительство путём утверждения ежегодного бюджета страны а также посредством права вынесения правительству вотума недоверия. критерии отраслевого деления системы права В основе деления права на отрасли и институты лежат два критерия: 1 предмет правового регулирования; 2 метод правового регулирования. Под методом понимаются определённые приёмы способы средства воздействия права на общественные отношения.
45400. Форма территориально-государственного устройства: понятие и общая характеристика 51.88 KB
  Субъекты федерации - территориальные единицы обладающие не всеми а некоторыми признаками государства например конституцией законодательными органами. Поэтому современное понимание федерации означает что это такое государство в состав которого входят территориальные образования субъекты федерации штаты кантоны провинции обладающие определенным суверенитетом т. Таким образом субъекты федерации имеют определенную политическую самостоятельность. Государственная власть в федеративном государстве разделена между центральными...
45401. Унитарное государства: понятие, признаки, виды 57.48 KB
  Взаимодействие этих тенденций центробежных и центростремительных представляет большой интерес для исследователей работающих в области теории государства и права и сегодня. lw juridicl legl institution совокупность норм права обособленных в рамках определенной отрасли права регулирующих группу взаимосвязанных общественных отношений напр. Отрасль права чаще всего складывается не непосредственно из юридических норм а из П. III и IV ГК РФ содержат общую и особенную части обязательственного права; разд.