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


 

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

20111. Позиционные, интегрирующие и дифференцирующие типовые динамические звенья их частотные характеристики 45.5 KB
  Типовое динамическое звено описываемое уравнением не выше второго порядка так как реальные звенья составляются на основании законов выражаемых уравнениями не выше второго порядка.1 Безинерционное идеальное звено звено которое в установившемся режиме и в переходном режиме описывается уравнением y = kx На практике идеальным звеном принимают то звено у которого постоянная времени значительно меньше постоянной времени последующих звеньев 1.2 Апериодическое звено первого порядка звено которое...
20112. Структурные схемы систем автоматического управления 903 KB
  Структурной схемой называется схема отражающая взаимодействие динамических звеньев в процессе работы системы. Может содержать: 1 элемент с 1 входом и 1 выходом 1 элемент 2 входа и 1 выход узел сумматор сравнивающее устройство Последовательное соединение динамических звеньев Общая передаточная функция равна произведению составляющих функций динамических звеньев Параллельное соединение Встречнопараллельное соединение – общая передаточная функция если обратная связь отрицательна если обратная связь положительна Если в...
20113. Качество переходных процессов. Частотные показатели качества САР 44 KB
  При этом используют АЧХ замкнутой системы Фjw АЧХ разомкнутой системы Wjw ВЧХвещественночастотная характеристика замкнутой системы Uw.22π Wm 2Использование ВЧХ замкнутой системы для оценки качества. Для устойчивых автоматических систем ВЧХ связана с переходной функцией ht следующей зависимостью: Используя это соотношение можно косвенно оценить границы переходного процесса по амплитуде и длительности. Для того чтобы косвенно судить о качестве рассмотрим свойства ВЧХ и свойства и свойства соответствующих им переходных...
20114. Синтез последовательных корректирующих звеньев 130.5 KB
  Рассмотрим основные виды обр. Жесткая отрицательная обр. связь осуществляется за счет охвата некоторого элемента сисмы обр. связью с передаточной функцией усилительного звена то есть в цепи обр.
20115. Шлифовальные станки. Их классификация 7.26 MB
  Шлифовальные станки. В зависимости от вида обработки шлифовые станки подразделяются на: станки общего назначения; специализированные станки. Круглошлифовальные станкию.
20116. Причины возникновения погрешностей измерительных устройств 27 KB
  Погрешности схемы прибора. Технологические погрешности. Динамические погрешности. Температурные погрешности.
20117. Методы размерного точностного синтеза. 104.5 KB
  Основная задача: выбор номинальных параметров измерительной цепи по критерию min теоретической погрешности. С точки зрения min погрешности существуют 3 категории ИУ: Устройство которые должны иметь min погрешность только при определенном значении входного сигнала. Для них min погрешность – это min наклон погрешности Все остальные ИУ у которых при любом значении входного сигнала одинакова неприятна теоретическая погрешность. Min погрешность для них – min модуля максимума погрешности.
20118. Погрешности показаний, обусловленные схемой измерительного устройства 34 KB
  устройства: Действительное показание устройства: Погрешность показаний измер. устройства: Функция в общем случае не линейна может быть сложной и только в частном случае линейной. устройства а второй член оставшийся в правой части.
20119. Средства измерения шероховатости поверхности 188.5 KB
  В настоящее время накоплен значительный теоретический и эксплуатационный материалы по связи шероховатости со следующими эксплуатационными показателями: 1 – износостойкость при всех видах трения; 2 – контактная жесткость; 3 – выносливость; 4 – прочность посадок с натягом; 5 – отражательная способность поверхности; 6 – прочность сцепления при склеивании; 7 – коррозионная стойкость; 8 – лакокрасочные покрытия; 9 – точность при измерении. После отражения от поверхности пучок проходит 2 и 10 и попадает на 6. Поэтому оператор через окуляр 7 видит:...