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

6 чел.

ЗВІТ

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


 

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

22721. Політика США щодо Японії у 90-х роках 43.5 KB
  Політика США щодо Японії у 90х роках. Все эти особенности существенно осложняют политику США в отношении Японии хотя мало влияют на сложившийся консенсус по вопросу о ее фактической безальтернативности. Сторонники сближения с Китаем в свою очередь также не ставят под сомнение необходимость наращивания сотрудничества с Японией отчасти в целях усиления американских позиций в Китае отчасти для сохранения самой Японии в орбите США. Немало американских политиков продолжают относиться к Японии с настороженностью не исключают ее эвентуальный...
22722. Політика США на Близькому та Середньому Сході у період адміністрації Дж. Буша (ст.) 30.5 KB
  Політика США на Близькому та Середньому Сході у період адміністрації Дж. Бюджетные проблемы о которых в основном и говорили средства массовой информации США освещая работу правительства и конгресса 2 августа 1990 г. Президент США отдал приказ о прекращении всех видов торговли с Ираком и о замораживании иракских и кувейтских активов в американских банках. Политика США в данном вопросе базируется на четырех принципах: требование вывода иракских войск из Кувейта; восстановление законного правительства этой страны; приверженность к миру и...
22723. Відносини між США та Російською Федерацією у 1992 р 27.5 KB
  Відносини між США та Російською Федерацією у 1992 р. Отношений США и СНД как таковых не существует так как СНД юридически не существует. В основном это отношения двусторонние США и стран СНД. После распада СССР внимание США было сосредоточено в основном на Росси.
22724. Еволюція відносин США з Російською Федерацією 29.5 KB
  Буш и Путин заявили что они осознают важность многосторонних контртеррористических усилий в том числе под эгидой ООН восьмерки Евросоюза Организации по безопасности и сотрудничеству в Европе ОБСЕ группы 6 2 и в формате НАТОРоссия а также такие региональные контртерроористические инициативы как Шанхайская организация сотрудничества. Публикуется в связи с саммитом НАТОРоссия 28 мая 2002 в Италии Ниже приводится текст справки Белого дома о новом Совете НАТОРоссия опубликованной в связи с проведением 28 мая саммита НАТОРоссия...
22725. Американсько-канадське військово-стратегічне співробітництво в роки холодної війни 24.5 KB
  Канада принимала активное участие в деятельности ООН и внесла значительный вклад в осуществление так называемого плана Коломбо программы по совместному экономическому и социальному развитию принятой на конференции стран британского Содружества в г. В то же время в вопросах обороны Канада полагалась в основном на систему военных блоков в первую очередь НАТО в создании которой в 1949 принимал участие премьерминистр Канады СенЛоран. В 1958 Канада заключила с США соглашение о создании Объединенного командования противовоздушной обороны...
22726. Позиція Канади щодо війни в Індокитаї 21.5 KB
  The next big issue of contention was the war in Vietnam. In early 1965 the war was expanded with the start of an extensive U. As the war escalated Pearson became increasingly doubtful of the wisdom of U. ground troops to Vietnam might lead to a wider war in Asia the Secretary of State for External Affairs Paul Martin decided to make an independent approach to the North by sending Chester Ronning Canada's leading China expert as an emissary.
22728. План Маршалла 22.5 KB
  План Маршалла. Ще одним приводом для розколу світу на два табори став конфлікт що виник у зв'язку з планом Маршалла. Він сформулював основні положення комплексу економічних та політичних заходів щодо здійснення реконструкції в Європі що здобули назву плану Маршалла. СРСР відмовився від участі у плані Маршалла.
22729. Політика США щодо країн Закавказзя 82.5 KB
  Політика США щодо країн Середньої Азії. Політика США щодо країн Закавказзя. Экономическая экспансия США в республиках бывшего СССР приобрела к настоящему времени очень широкие масштабы. В большинстве этих каспийских проектов принимали участие нефтяные корпорации США такие как Амоко Amoco Юнокал Unocal Пеннзойл Pennzoil Рамко Ramco Экссон Exxon Figaro economie 25.