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


 

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

61074. Поняття про мову розмітки гіпертексту – мову НТМL. НТМL-файл. Коди (теги) мови. Засоби створення НТМL-документів. Оформлення тексту в HTML-документі 272.5 KB
  Оформлення тексту в HTML документі. Теги управління зовнішнім виглядом HTMLдокументу. Використовувані матеріали: презентація карточки додаткові електронні матеріали файли...
61075. Павутина життя. Контрольна робота 54 KB
  There is a show on tonight. I’d like to see it. (which) 2) Angela wants to talk to you. Her brother is a member of a rock band. (whose) 3) I told you about the hotel. We stayed there last summer. (where)
61076. Додаткове читання. Й. Ґете. Вибрані поезії 78.5 KB
  Мета: поглибити знання про поетичний талант Ґете; розвивати творчі здібності учнів виховувати повагу до виявів чужих почуттів; працювати над виразним читанням віршів. Актуалізація опорних знань...
61077. ПИСЬМОВИЙ СТИСЛИЙ ПЕРЕКАЗ РОЗПОВІДНОГО ТЕКСТУ З ЕЛЕМЕНТАМИ ОПИСУ МІСЦЕВОСТІ В ХУДОЖНЬОМУ СТИЛІ 45.5 KB
  Школярі знайомляться з цілісним висловлюванням. Робота за змістом і структурою тексту Довести належність висловлювання до художнього стилю наводячи приклади з тексту. Якою ви уявили місцевість описану письменником...
61078. Контрольний твір за творчістю Й. В. Ґете 31.5 KB
  Мета: розвивати письмове звязне мовлення та творчі здібності учнів; виховувати інтерес до аналізу літературних творів; учити аргументувати власну точку зору; провести контроль знань з теми Життя та творчість...
61079. І. Котляревський. «Енеїда». Історія створення. Національний колорит. Проблеми і мотиви твору. Характеристика героїв, що уособлюють самодержавство, панів, чиновників, духовенство 132 KB
  Венера Афродита богиня кохання побічна дочка Зевса мати Енея. Анхіз цар Трої батько Енея. Початок подорожі Енея. Відвідини Енея із Сівіллою.
61080. Складнопідрядне речення, його будова і засоби зв’язку в ньому 48 KB
  Мета: ознайомити девятикласників з поняттям про складнопідрядне речення його будову і засоби звязку в ньому; розвивати організаційноконтрольні вміння оцінювати роль складнопідрядних речень у текстах...
61081. Виды линий 36 KB
  Луч выходит из точки бесконечен в одну сторону. Нарисовать в тетради 2 точки и провести через них прямую. Как вы думаете можно ли провести ещё одну прямую через эти две точки А луч А отрезок Сколько лучей и отрезков можно провести через 2 точки бесконечное количество Пробуем. Как вы думаете почему через две точки можно провести только одну прямую и бесконечно много лучей и отрезков Попробуйте объяснить.
61082. Рисуем Сосну 298.5 KB
  Сначала рисуем ствол. Прямой ствол как мачта и корявый. Наш ствол приобретает конусную форму. Теперь ствол и ветки.