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


 

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

28211. Екологія. Основи екології 1.36 MB
  Вирішення екологічних проблем людства залишається основним завданням сучасного розвитку. Екологізація економіки передбачає формування нового екологічно орієнтованого мислення. Екологічна освіта стає базовим знанням
28212. Виды ощущений. Сенсорная организация человека (по Б.Г.Ананьеву) 39.5 KB
  Так тактильные вибрационные мышечные вестибулярные ощущения отражают определенные моменты и свойства механического движения различных тел в том числе и тела человека. Интерорецепция вкусовые болевые температурные ощущения специфически связаны с основными явлениями жизнедеятельности биологической формой движения материи. Биологические формы движения интероцептивные болевые вкусовые температурные ощущения В совместной деятельности различных анализаторов имеется объективный порядок постоянных взаимосвязей определяемых общностью...
28213. Психологичсское значение дистантных ощущений. Отражение пространства при парной работе дистантных анализаторов 42 KB
  1 базальные ощущения тактилънокинестетическое осязание 2 ведущие зрение слух от них идет максимальная информация 3 сквозные ощущения кинестетические движение. Дистанционные ощущения в процессе эволюции развились позже контактных: вибро и хеморецепция обоняние слух зрение как повышение адаптивных возможностей организма ОТРАЖЕНИЕ ПРОСТРАНСТВА функция парных анализаторов напр. Бинокулярное зрение. При раздражении несоответствующих диспарантных точек бинокулярное зрение или диссоциируется раздваевается или...
28214. Операциональная природа мышления как процесса отражения связей и отношений. Виды мыслительных операций 45.5 KB
  Операциональная природа мышления как процесса отражения связей и отношений. Виды мышления =стадии развития: 1Нагляднодейственное элементарная форма практического мышления направленного на разрешение элементарных практических задач. Виды мышления: А. Типологические классификации мышления: При построении типологий виды мышления обычно различаются попарно как противостоящие друг другу по тем или иным конкретным характеристикам.
28215. Развитие мышления в онтогенезе: сравнительный анализ эмпирических характеристик допонятийного и понятийного мышления 43.5 KB
  Мышление – высший психический процесс обобщенного и опосредованного отражения действительности в ходе ее анализа и синтеза при обязательном участии языка речи. В онтогенезе мышление развивается по пути все большей генерализации признаков и объединения их в более крупные классы.Допонятийное мышление нагляднодейственное через практическое действие с объектом нагляднообразное с помощью образных представлений 2.Понятийное мышление словеснологическое с помощью логических понятий и знаков Допонятийное мышление – мышление при...
28216. Понятия «эгоцентризм» и «децентрация» в стадиальной концепции интеллекта Жана Пиаже 36.5 KB
  Пиаже показал что ребенок на определенной ступени развития в большинстве случаев рассматривает предметы такими какими их дает непосредственное восприятие то есть он не видит вещи в их внутренних отношениях. Ребенок думает например что луна следует за ним во время его прогулок останавливается когда он останавливается бежит за ним когда он убегает. Свое мгновенное восприятие ребенок считает абсолютно истинным. Вербальный эгоцентризм ребенка определяется тем что ребенок говорит не пытаясь воздействовать на собеседника и не осознает...
28217. Стадии формирования понятия (по Выготскому). Методы исследования и диагностики понятийного мышления 42 KB
  Методы исследования и диагностики понятийного мышления. Понятийное мышление – ведущий вид мышления характеризуется использованием понятий логических конструкций которые существуют на базе языка и языковых средств. Понятийное мышление – осознанное вербальное мышление. С ее помощью было установлено что формирование понятий у детей проходит через 3 основные ступени: Образование неоформленного неупорядоченного множества отдельных предметов их синкретического сцепления обозначаемого одним словом.
28218. Отношение мышления и речи. Роль внутренней речи в процессе мышления (по А.Н.Соколову). Методы исследования внутренней речи 37 KB
  Отношение мышления и речи. Роль внутренней речи в процессе мышления по А. Методы исследования внутренней речи. Внутренняя речь – производная форма внешней звуковой речи специально приспособленная к выполнению мыслительных операций в уме.
28219. Язык и речь: виды речи и ее функции 38.5 KB
  Язык и речь: виды речи и ее функции. Речь – конкретный продукт использования носителем языка системы вербальных знаков проявляющийся в различных процессах речи. Речь форма общения опосредствованная языком. Речь процесс использования языка.