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


 

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

20075. Мостовая схема включения емкостных преобразователей 61 KB
  Экранирование. Для устранения влияния внешних электромагнитных полей применено экранирование.
20076. Прямоугольно-координатный компенсатор переменного тока. Условие компенсации 43 KB
  Uax = Uak Upx = Upk Вследствие этого компенсаторы потенциометры переменного тока должны иметь схему более сложную чем компенсаторы постоянного тока. Различают два вида потенциометров переменного тока: Полярнокоординатные в которых отдельно регулируется модель компенсирующего напряжения и отдельно его фаза обычно с помощью фазорегулятора того или иного вида. Цепь имеет два контура: Первый контур тока IР содержит измерительный резистор Ra первичную обмотку катушки взаимоиндуктивности М и амперметр А.
20077. Устройства выборки зазора в винтовых механизмах 8.53 MB
  Устройства выборки зазора в винтовых механизмах. 1корпус 2винт 3двусторонняя цанга 4регулировочная цанга 5стопорный винт При повышенной сложности устройство может применяться как в силовых так и кинематических передачах и работоспособна при высоких скоростях вращения. Выборка осевого зазора между винтом и базой. винт Корпус Упорный подшипник Упорный подшипник служит для снижения потерь при значительных осевых нагрузках на винт.
20078. ЗУБЧАТЫЕ МЕХАНИЗМЫ. КЛАССИФИКАЦИЯ. БОКОВОЙ ЗАЗОР. МЕРТВЫЙ ХОД. УСТРОЙСТВА ВЫБОРКИ МЕРТВОГО ХОДА 82 KB
  в которых движение передается и преобразуется за счет зацепления зубьев колес. По расположению и форме зубьев прямозубые косозубые и шевронные По назначению силовые кинематические и скоростные . По профилю зубьев в приборостроении нашли применение эвольвентное и часовое зацепление упрощенный профиль. уменьшать число зубьев трибки до z = 6 сохраняя плавность но при этом передаточное отношение перестает быть строго постоянным.
20079. Выявление первичных погрешностей. Методика акад. Н.Г. Бруевича 101.5 KB
  Бруевича Под первичной погрешностью понимают любое отклонение параметров цепи от расчетных приводящих к искажению градуировочных характеристик. Первичная погрешность механизма это отклонение в расстоянии м у кинематическими отклонениями звена это отклонение размеров их формы и расположения. Все первичные погрешности разделяют на 2 категории: скалярные перв.
20080. Выявление первичных погрешностей. Методика проф. Н.А.Калашникова 44.5 KB
  Первичные погрешности делятся на : скалярные направление их действия заранее известно а значение их или модуль заранее предсказать нельзя но оно может быть принято в пределах поля допуска . значение их или модуль любое в пределах поля допуска и направление любое в пределах зоны действия. Они характеризуются неопределенным непредсказуемым направлением действия. Для нахождения значения и характера изменения действующей погрешности необходимо учитывать что воздействие между профилями поверхностей элементов кинематических пар происходит...
20081. Конструирование при циклическом нагружении. Факторы, повышающие и снижающие предел выносливости 101.5 KB
  Уменьшение концентрации напряжений. Если устранить концентраторы напряжений полностью невозможно то следует заменять сильные концентраторы умеренно действующими. Концентраторы следует удалять из наиболее напряженных участков детали и переносить если это допускает конструкция в зоны наименьших напряжений. С целью уменьшения номинальных напряжений целесообразно увеличивать сечения детали на участках расположения концентраторов.
20082. Условия обеспечения качественной и производительной сборки. Исключение неправильной сборки 92 KB
  Исключение неправильной сборки. Для обеспечение правильной и быстрой сборки и разборки конструкций при проектировании нужно учитывать следующие условия: использовать где это возможно взаимозаменяемые детали и узлы; исключать подгоночные работы и и работы по обеспечению взаимного расположения деталей непосредственно при сборке; предусматривать удобный подход инструмента и оснастки используемой при сборке; использовать в конструкциях агрегатный способ сборки т. Так же увеличивается скорость сборки так как сборку узлов и агрегатов можно...
20083. Осевая и радиальная сборка. Особенности, достоинства и недостатки этих схем 420.5 KB
  В конструкциях с продольными и поперечными осями симметрии часто применяют схемы с осевой и радиальной сборки. При осевой сборке все детали устанавливают в осевом направлении при радиальной в радиальном поперечном. При осевой сборке конструкция корпуса как правило простая удобно производить механическую обработку не сложно уплотнять внутренние полости при герметизации. НЕДОСТАТКИ: конструкция корпуса сложная следовательно механическая обработка более сложная чем в осевой сборке.