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


 

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

44849. Культура речи как качество 15.93 KB
  Центральным понятием нормативного аспекта является понятие языковой нормы. Нормы литературного языка включают единнообразную систему образцов общепринятые элементы языка обусловленные правилами исполнения речевых средств исторически принятые в языковом коллективе. Нормы отражают процесс. Признаки языковой нормы.
44851. Взаимоотношения связей с общественностью и смежных видов деятельности 19.67 KB
  Взаимоотношения связей с общественностью и смежных видов деятельности Смежные коммуникационные форматы: PR реклама журналистика. PR управленческая коммуникативная деятельность совокупность социальных практик направленная на оптимизацию взаимодействий социального субъекта со значимыми сегментами социальной среды с его общественностью. Цель Согласие с общественностью Стратегическая цель Понимание Задачи Обеспечение равноправного диалога с общественностью Методы медиарилейшнз спец. Цель ...
44852. Українська літературна мова і мова професійного спрямування 22.5 KB
  Літературна мова і мова професійного спрямування. Літературна мова унормована стандартна правильна з погляду усталених кодифікованих норм форма національної мови що обслуговує культурноосвітні потреби нації виконує консолідуючу функцію шляхом використання у сферах державного управління ЗМІ науки культури та літератури; це мова освіти науки культури державних інституцій. Вона має такі ознаки: унормованість стандартність внутрішня єдність і цілісність уніфікованість наддіалектність поліфункціональність наявність усної і...
44854. Оборотный капитал предприятия 16.77 KB
  Бухгалтерское деление Оборотные средства также именуемые оборотным капиталом это те средства которые компания употребляет для воплощения собственной ежедневной деятельности полностью потребляемые в промежуток производственного цикла. К ним точно относятся: Запасы материалы полуфабрикаты сырьё энергия запчасти топливо затраты в незаконченном производстве уже полностью готовые товары и продукция расходы в дальнейшем будущем периоде НДС по купленным ценностям Дебиторский долг больше 12 месяцев Краткосрочные финансовые...
44855. Язык SQL. Особенности языка SQL как инструмента работы с реляционными БД. Подмножества языка SQL 28.5 KB
  Набор операторов языка для определения данных и ограничения целостности. Набор операторов языка для извлечения изменения данных. Язык SQL наиболее распространённый язык управления базами данных типа клиент сервер. В SQL определены два подмножества языка: SQLDDL Dt Definition Lnguge язык определения структур и ограничений целостности баз данных.
44856. Методы правового регулирования (коллизионный и материально-правовой) 39.85 KB
  Даже в тех случаях когда государства пришли к согласию относительно необходимости разработки того или иного договора они не всегда способны прийти к такому соглашению относительно содержания составляющих его норм. Целью заключения международного договора коллизионного характера является максимальное обеспечение так называемого международного соответствия судебного решения то есть такой ситуации при которой судебное решение будет идентичным основанным на идентичных коллизионных принципах независимо от того в какой стране это судебное...