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

7 чел.

ЗВІТ

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


 

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

59071. Повторення вивченого про спілкування і мовлення. Ситуація спілкування та її складові 30.5 KB
  Мета: поновити в памяті учнів те що відомо їм про відмінності між мовленням та види мовленнєвої діяльності про мовленнєву ситуацію; розвивати в учнів логіку мислення звязне мовлення; виконувати правила етикету.
59072. Повторення вивченого про текст. Види звязку речень у тексті (практично). Складний план готового тексту 32.5 KB
  Мета: поновити в памяті учнів відоме про мовлення його форми і текст; ознайомити учнів із видами звязку речень у тексті вчити учнів складати складний план розвивати логічне мислення мовлення виховувати любов до рідного слова.
59073. Повторення вивченого про типи і стилі мовлення 31 KB
  Про що в тексті розповідається Що в ньому описується Щодо чого наводиться в тексті роздум Чому складено оцінку Назвати відомі вам типи мовлення. Який тип мовлення є у тексті основним а який допоміжним.
59074. Виховний захід у молодшій школі. Поговоримо про культуру... 64.5 KB
  Слово культура має низку значень а одне з них освіченість вихованість звідси культурний той хто освічений та вихований Культурна людина зайшовши до школи обовязково усміхнеться та привітається з охоронцями з технічками а не вдаватиме що окрім неї у вестибулі нікого немає.
59075. Погода рідного краю. Природознавство 4-й клас 46.5 KB
  Мета: познайомити учнів зі складом атмосфери планети Земля, утворенням хмар, вітру, збагатити уявлення про опади, дати поняття про погоду, указати на значення прогнозу погоди для людини, розвивати спостережливість, уяву, логічне мислення, узагальнювати знання про явища природи...
59076. Урок-телерепортаж із природознавства у 4-му класі. Подорож бутерброда 49 KB
  Обладнання: додатковий теоретичний матеріал таблицямозаїка Органи травлення модель бутерброда картки моніторингу Дерево підсумків. Сьогодні ми познайомимося з органами травлення. Що ж таке травлення Що ви уявляєте коли вимовляєте це слово Які асоціації воно викликає у вас...
59077. Урок математики з використанням інтерактивних методів навчання. Подорож до зимового лісу 30 KB
  Мета: учити додавати двоцифрові числа; розвивати логічне мислення, уміння аналізувати, класифікувати, узагальнювати; виховувати охайність, самостійність, інтерес до математики, дбайливе ставлення до природи.
59078. Виховне заняття 3-5-ті класи. Подорож до країни мультиплікації 41.5 KB
  Мета: привернути увагу дітей до вітчизняних мультфільмів, познайомити з історією мультиплікації, сформувати уявлення про механізм створення анімаційних фільмів, розвивати комунікативні здібності дітей у різних формах ігрової діяльності.
59079. Поняття про офіційно-діловий стиль. План роботи 30.5 KB
  Мета: ознайомити учнів з поняттям офіційноділовий стиль; вчити учнів правильно його відрізняти серед інших стилів мовлення; навчати учнів вмінню складати план роботи; розвивати в учнів мислення та мовлення; виховувати працьовитість уважність.