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


 

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

76113. Проектирование и расчет показателей работоспособности и надежности ЛВС 31.77 MB
  В процессе выполнения работы студент решает следующие задачи: выбор типа одноранговая или с выделенным сервером и топологии ЛВС для организации; выбор устройств физического и канального уровня в соответствии с моделью OSI и физическая структуризация сети...
76116. ТЕХНОЛОГІЯ ВИРОБНИЦТВА ГЛЮКОРНУ 1.1 MB
  Актуальність теми. У сучасних умовах забруднення навколишнього середовища недоброякісного виробництва продуктів харчування та високого рівня урбанізації вживання людиною додаткових нутрієнтів із підвищеним рівнем ферментів вітамінів мікро та макроелементів стає все більш необхідним.
76117. НОВЫЙ ВЗГЛЯД НА РУССКУЮ РЕВОЛЮЦИЮ 52.5 KB
  И цель предлагаемой статьи рассмотреть влияние которое недавние политические и интеллектуальные изменения оказывают на изучение революции. В течение семи десятилетий дискуссии о русской революции 1917 г.
76118. Петровские реформы 48.5 KB
  Такова притягательная сила личности Петра Великого первого Российского императора великого реформатора. История России до Петра Великого и после него знала немало реформ. Реформы проводились в течение всего правления Петра I.
76120. Принципы организации и виды финансовой политики предприятия 29.79 KB
  В данной работе рассматривается финансовая палитика предприятия стратегические направления которые определяют долгосрочную и среднесрочную перспективу использования финансов и предусматривают решение главных задач вытекающих из...