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

6 чел.

ЗВІТ

з лабораторної роботи № 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


 

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

44244. Анализ качества атмосферного воздуха в салоне автотранспортных средств (АТС) 650 KB
  Вызывает тревогу тот факт что несмотря на проводимую работу выбросы загрязняющих веществ в атмосферу от автотранспортных средств увеличиваются в год в среднем на 31. В масштабах страны доля транспорта в суммарных выбросах загрязняющих веществ в атмосферу от всех источников достигает 45 в выбросах парниковых газов примерно 10 в массе промышленных отходов 2 в сбросах вредных веществ со сточными водами около 3 в потреблении озоноразрушающих веществ не более 5 Чуйкова 1996. т вредных веществ что представляет серьезную...
44245. Разработка рекомендаций по использованию стратегии диверсификации в организации на примере «ООО Премьер» 439.5 KB
  Сущность и виды стратегии диверсификации Разработка рекомендаций по использованию стратегии диверсификации в организации на примере ООО Премьер Рекомендации по реализации стратегии диверсификации Динамичность развития и глобализация современной мировой экономики обусловили необходимость диверсификации как способа снижения рисков неопределенности внешней среды и повышения конкурентоспособности компаний.
44246. Анализ и оценка текущего финансового состояния предприятия, и разработка возможных рекомендаций по его улучшению и эффективности деятельности ФГУП «ПО Завод имени Серго» 8.75 MB
  Цель работы провести анализ и оценку текущего финансового состояния предприятия и разработать рекомендации по его улучшению и эффективности деятельности предприятия. Рассмотрены теоретические и методологические основы финансового анализа его роль и значение в эффективности деятельности предприятия. Произведен полный анализ финансового состояния предприятия за 20092010 года предложены пути совершенствования финансовой и хозяйственной деятельности предприятия....
44247. Основные принципы и закономерности микромира 649 KB
  Квантовая (волновая) механика пытается объяснить как корпускулярные, так и волновые свойства веществ. Гипотеза об универсальности корпускулярно-волнового дуализма была предложена Луи де Бройлем в 1923 г. Он утверждал, что не только фотоны, но и электроны, и любые другие частицы материи наряду с корпускулярными обладают волновыми свойствами
44248. Изучение основных характеристик микрофлюидного чипа, определяющих его аналитические свойства 3.92 MB
  Смачиваемость поверхности.42 Изменение смачиваемости в зависимости от шероховатости поверхности. Измерения контактных углов после физической обработки поверхности. Измерения контактных углов после химической обработки поверхности.
44249. ППР на возведение офисного здания банка в г. Новосибирске 4.05 MB
  Дополнительным офисом Помещение специалистов Комната отдыха Зал обслуживания юридических лиц Серверная Гардероб Вент камера Помещение VIP клиентов Наружные стены выполнены толщиной 510 мм из керамического кирпича размерами В качестве утеплителя предусмотрены пенополистирольные плиты Урса толщиной. ЗАКЛЮЧЕНИЕ Дипломный проект состоит из пяти графических листов и пояснительной записки.
44252. Методические рекомендации. Экономика труда 469.5 KB
  Учебно-методические материалы предназначены для студентов обучающихся по специальности 060200 Экономика труда и проходящих преддипломную практику в организациях различных отраслей и организационно-правовых форм и форм собственности. наук доцент кафедры экономики труда УрСЭИ Рецензент Белкин В. Уральский социально-экономический институт Академии труда и социальных отношений 2005 Белкина Н.