23824

Програмування нелінійних алгоритмів

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

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

Зовнішній вигляд додатку: Програмний код додатку: Private Sub Command1_Click Dim a b c As Integer a = ValText1.Text b = ValText2.Text c = ValText3. Зовнішній вигляд додатку: Програмний код додатку: Private Sub Command1_Click Dim A B C A1 B1 C1 P1 P2 As Single A = ValText1.

Украинкский

2013-08-05

92 KB

2 чел.

ЗВІТ

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

" Програмування  нелінійних  алгоритмів "

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

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

Дата виконання "19" листопада 2008 р.

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

  1.  У  середовищі  VB  запрограмував  додаток  «Парламентська  більшість». Користувач    вводить  загальну  кількість  депутатів, кількість  присутніх  і  відсоток  депутатів, необхідний  для  прийняття  певного  рішення. Додаток    видаває  результат – «Кворум  є», якщо  кількість  присутніх  депутатів  не  менше  необхідного  відсотку  від  загальної  кількості  і  «Кворуму  немає», якщо – менше  необхідного  відсотку.

Зовнішній вигляд додатку:

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

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If b / a * 100 >= c Then

Label4.Caption = "Кворум є"

Else

Label4.Caption = "Кворуму  немає"

End If

End Sub

2. У  середовищі  VB  запрограмував  додаток  «Могутність  двох  держав». Користувач    вводить  такі  показники  могутності  двох  держав: N – чисельність  населення (млн), M – кошти, що  виділяються  на  військові  цілі (млрд. $)  та  S – обсяг  валового  національного  продукту (млрд. $). Програма   не  тільки  розраховує  могутність (Р) держав  за  формулою: P = 0,37 N^0,41*S^0,62*M^0,28, але  й  повідомляє, могутність  якої  держави  більше  і  в  скільки  разів.

Зовнішній вигляд додатку:

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

Private Sub Command1_Click()

Dim A, B, C, A1, B1, C1, P1, P2 As Single

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)

P1 = 0.37 * A ^ 0.41 * B ^ 0.62 * C ^ 0.28

Label9.Caption = Str(P1)

A1 = Val(Text4.Text)

B1 = Val(Text5.Text)

C1 = Val(Text6.Text)

P2 = 0.37 * A1 ^ 0.41 * B1 ^ 0.62 * C1 ^ 0.28

Label10.Caption = Str(P2)

If P1 > P2 Then Label11.Caption = "Перша держава потужніша за другу у" + Str(P1 / P2) + " разів"

If P1 < P2 Then Label11.Caption = "Друга держава потужніша за першу у" + Str(P2 / P1) + " разів"

End Sub

3.Запрограмуйте  додаток, за  допомогою  якого  можна  перевірити  істинність  виразу  (X > 5) Or (X = 0 And Y < 0) Or (Not (X > -Z))  для  будь-яких  значень  величин, що  вводяться  вами  X, Y, Z

Зовнішній вигляд додатку:

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

Private Sub Command1_Click()

Dim X, Y, Z As Integer

X = Val(Text2.Text)

Y = Val(Text3.Text)

Z = Val(Text4.Text)

If (X > 5) Or (X = 0 And Y < 0) Or (Not (X > -Z)) = True Then

Label2.Caption = "Умова виконується"

Else

Label2.Caption = "Умова не виконується"

End If

End Sub


 

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

43651. Зона технического обслуживания 1 ремонтно-механических мастерских дорожного ремонтно-строительного управления 151.8 KB
  Техническая характеристика машин табличная форма 2. Фактическое число часов работы машин за год 2. Корректирование трудоемкости выполнения ТО и Р машин 2. Под организацией производственной структуры системы ТО и ремонта машин понимается состав и взаимоподчиненность подразделений обеспечивающих техническую готовность машин в требуемой комплектации и в сроки заданные строительными и другими организациями.
43652. Разработка интенсивной технологии возделывания сахарной свеклы в условия КСУП «Коленское» Житковичского района Гомельской области 963.62 KB
  Важная роль в решении зернофуражной проблемы в Белоруссии, республиках Прибалтики, Нечерноземной зоны РФ, лесостепи Украины и других районах принадлежит яровому ячменю, как одной из наиболее урожайных зерновых культур.
43653. Геологические данные месторождения, его структуру и физико-химические свойства 314.92 KB
  Одной из важных задач этой проблемы является повышение фондоотдачи основных промышленнопроизводственных фондов основную долю которых в нефтяной промышленности составляют скважины: добывающие и нагнетательные. Скважина обеспечивает связь недр с земной поверхностью служит каналом доступа человека к пласту. Нормальная работа добывающих или нагнетательных скважин нарушается по различным причинам что приводит либо к полному прекращению работы скважин либо к существенному сокращению ее дебита особенно по нефти. Причины прекращения или снижения...
43654. Предложения по повышению экономической эффективности технологий управления персоналом Арт-кафе «Галерея» и оценка их эффективности 1.5 MB
  Теоретические аспекты технологий управления персоналом в ресторанно гостиничном бизнесе.Сущность технологий управления предприятиями 7 1. Особенности современных технологий управления персоналом на предприятиях ресторанно гостиничного бизнеса 22 ГЛАВА 2. Анализ технологий управления персоналом Арткафе Галерея.
43655. Сквер в ст.Старокорсунской 3.3 MB
  Назначение скверов может быть различным. Сквер, создаваемый на площадках общегородского или районного значения, а также перед отдельными крупными общественными зданиями, предназначен главным образом для кратковременного отдыха граждан.
43656. Повышение качества наплавляемой поверхности за счет повышения износостойкости применением электродуговых процессов 2.35 MB
  После этого был произведен патентный поиск для того, чтобы найти устройство реализации процесса, по которому будет разрабатываться конструкция нового оборудования для наплавки, позволяющее наиболее точно выполнить поставленную цель. Из всех найденных аналогов устройств, был выбран прототип
43657. Расчет перекрытия и стальной балки 1.03 MB
  Нагрузка на балки передаётся через стальной плоский настил. Пролёт главной балки 12 м шаг главных балок 7 м.1 Расчёт нагрузки на балки настила Нормативная нагрузка: ; 0305 кН м предварительный вес балки настила; кН м. 2 Проверяем прочность балки по касательным напряжениям: ; Rs расчётное сопротивление на срез; ; кН см2; d = 6 мм = 06 см толщина стенки двутавра; h = 270 мм = 27 см высота двутавра; ; 344 кН см2 1463 кН см2.
43659. Влияние сезонных условий на надёжность электрооборудования автомобилей 1.92 MB
  Тема дипломного проекта Влияние сезонных условий на надёжность электрооборудования автомобилей. Целью дипломного проекта является установление закономерностей формирования потока отказов электрооборудования автомобилей с учетом влияния сезонных условий эксплуатации и совершенствование на этой основе методик планирования потребности в ресурсах автотранспортных предприятий. В ней рассмотрены особенности эксплуатации электрооборудования определена его роль в поддержании работоспособности современных автомобилей...