23827

Програмування повторень

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

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

Виконання завдань: Створив додаток який обчислює середнє значення ВВП країни за nроків.Caption a = 0 b = 0 For n = 1 To n a = InputBox Введіть розмір ВВП b = b a Next Label2.Caption = Strb n 1 End Sub Створив додаток який визначає кількість країн ВВП яких перевершує заданий рівень. Назви країн та ВВП вводяться в діалоговому вікні.

Украинкский

2013-08-05

62 KB

7 чел.

ЗВІТ

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

" Програмування повторень "

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

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

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

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

  1.  Створив додаток, який обчислює середнє значення ВВП країни за n-років. Вхідні дані вводяться за допомогою системних функцій.

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

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

Private Sub Form_Load()

Dim a, b, n As Single

Label13.Caption = InputBox("Введіть кількість років")

n = Val(Label13.Caption)

a = 0

b = 0

For n = 1 To n

a = InputBox("Введіть розмір ВВП")

b = b + a

Next

Label2.Caption = Str(b / (n - 1))

End Sub

  1.  Створив додаток, який визначає кількість країн, ВВП яких перевершує заданий рівень. Назви країн та ВВП вводяться в діалоговому вікні.

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

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

Private Sub Form_Load()

Dim a, b, c, d, e, f, g  As String

Dim k, x, y, z, i As Single

a = InputBox("Введіть рівень ВВП", "Введення заданого рівня")

Label2.Caption = a

b = InputBox("Введіть назву країни", "Введення назви країни")

Label5.Caption = b

c = InputBox("Введіть рівень ВВП країни", "Введення рівня ВВП")

Label8.Caption = c

d = InputBox("Введіть назву країни", "Введення назви країни")

Label6.Caption = d

e = InputBox("Введіть рівень ВВП країни", "Введення рівня ВВП")

Label9.Caption = e

f = InputBox("Введіть назву країни", "Введення назви країни")

Label7.Caption = f

g = InputBox("Введіть рівень ВВП країни", "Введення рівня ВВП")

Label10.Caption = g

k = Val(a)

x = Val(c)

y = Val(e)

z = Val(g)

i = o

If x > k Then i = i + 1

If y > k Then i = i + 1

If z > k Then i = i + 1

Label4.Caption = Str(i)

End Sub

  1.  Створив додаток, що будує графік зміни рівня інформатизації країни за n-років.

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

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

Private Sub Form_Load()

Dim i As Integer

Dim x As Single

Dim y As Single

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

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

For i = -10 To 10 Step 2

   Picture1.Line (i, -10)-(i, 10)

Next i

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

For i = -10 To 10 Step 2

   Picture1.Line (-10, i)-(10, i)

Next i

Picture1.ForeColor = vbRed

   x = -10

   y = Sin(x)

Picture1.CurrentX = x

Picture1.CurrentY = y

For x = -1 To 8 Step 0.005

   y = x ^ 2 / 9

   Picture1.PSet (x, y)

Next x

End Sub


 

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

33173. Финансовые рынки. Финансовые институты 59 KB
  Формируется финансовый рынок. Современный финансовый рынок это сложный экономический механизм перераспределения денежных средств между странами регионами и отраслями. Свободные денежные средства сбережения всех экономических агентов поступают на финансовый рынок посредством сделок на котором происходит их инвестирование в различные финансовые активы. Финансовый рынок служит своего рода механизмом обеспечивающим перемещение потоков денежных сбережений от домашних хозяйств к предприятиям инвестирующим капиталы на свое развитие.
33174. Сущность и происхождение денег. Функции денег. Виды денег. Роль денег в современной экономике 55.5 KB
  Сущность и происхождение денег. Функции денег. Виды денег. Роль денег в современной экономике.
33175. Инфляция: ее сущность, причины и типы. Антиинфляционная политика государства 52.5 KB
  Под инфляцией в настоящее время понимают любой процесс роста цен на товары и услуги того же качества вне зависимости от вызвавшей его причины. При такой ситуации наблюдается повышенный спрос на какиелибо отдельные виды или вообще на все товары вследствие чего продавцы товаров повышают цену реализации. Факторами развития инфляции спроса являются: чрезмерная эмиссия наличных денег центральным банком без ориентации на товарную массу. Последний может допустить чрезмерную эмиссию денег в различных ситуациях: при необходимости покрыть...
33176. Сущность и необходимость кредита, его функции и законы. Ссудный процент и влияющие на него факторы 60 KB
  Еще в древности за два тысячелетия до нашей эры были известны многочисленные виды натуральных ссуд с уплатой процента в натуральной форме скотом зерном и т. В условия выдачи денежных ссуд процент соответственно уплачивается в денежной форме Уплата процента есть передача части прибыли получаемой заемщиком кредитору. Можно утверждать что ставка процента это цена кредита. Ситуация на финансовых рынках при которой объем предлагаемых заемных средств соответствует платежеспособному спросу и определяет равновесную ставку ссудного...
33177. Понятие ценной бумаги. Виды долевых ценных бумаг и их характеристика 12.79 KB
  Долевые ценные бумаги – акции представляют долю их владельцев в реальной собственности. В зависимости от характера обращения акции делятся на именные и на предъявителя. Акции на предъявителя могут свободно обращаться на рынке ценных бумаг именные акции или не подлежат обращению или их переход к другому владельцу связан с регистрацией этой сделки. Акции акционерного общества можно разделить на размещенные и объявленные.
33178. Виды долговых ценных бумаг и их характеристика 13.9 KB
  К долговым ценным бумагам относятся облигации казначейские обязательства государства депозитные сберегательные сертификаты и векселя. Облигации выступают главным инструментом мобилизации средств правительствами различными государственными органами и муниципалитетами. Облигации действуют строго определенный срок. По сроку действия обычно облигации подразделяются на краткосрочные среднесрочные и долгосрочные.
33179. Понятие эмиссионной ценной бумаги. Виды и методики расчета цены и доходности 16.54 KB
  В подавляющем большинстве случаев цена размещения существенно превышает номинальную стоимость что обусловлено ростом стоимости активов в расчете на одну акцию вследствие развития фирмы. Используется именно текущая цена а не та цена которая была заплачена за облигацию инвестором. Пусть текущая цена облигации равна 100 ставка купона 10 то тогда облигация будет иметь: Текущая доходность без учета стоимости погашения ценной бумаги в размере 10 . Купон 10 х 100 = х 100 = 10 Цена 100 Одно из основных...
33180. Финансовые отношения организаций. Особенности финансов организаций различных организационно-правовых форм и отраслей экономики 18.84 KB
  59 Финансовые отношения возникают только при наличии денежных отношений: формирование имущества предприятия получение доходов привлечение заемных источников финансирования хозяйственной деятельности распределение доходов образующихся в результате этой деятельности их использование на цели развития предприятия. Финансовые отношения возникают между: учредителями в момент создания предприятия при формировании уставного капитала; предприятиями и организациями в процессе формирования и распределения валового дохода при оплате поставок...
33181. Характеристика активов, их группировка по степени ликвидности, обязательств – по степени срочности погашения. Оценка ликвидности баланса 17.13 KB
  скорости превращения в денежные средства все активы организации условно можно подразделить на пять групп. Наиболее ликвидные активы А денежные средства и краткосрочные финансовые вложения. Быстрореализуемые активы А2 активы для обращения которых в наличные средства требуется определенное время. Медленно реализуемые активы А3 производственные запасы незавершенное производство и готовая продукция.