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


 

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

52273. Профессиональная азбука духовности 81 KB
  Установочномотивационный этап 5 мин Осмысление поставленных задач формирование установки на сотрудничество. Ситуация для группы Мир Труд не позорит человека: к несчастью иногда попадают люди позорящие работу. Вспомните и запишите поговорки пословицы о труде и изобразите их в виде рисунка. Бенчли Великая радость – работа В полях за станком за столом Работай до жаркого пота Работай без лишнего счета Все счастье земли – за трудом В.
52274. Азбуку міста вивчай до ладу, щоб не потрапити раптом в біду 285.5 KB
  Приспів: На дорозі не спіши Щоб не трапилось біди. Світлофор не спить і не дріма До порядку на дорозі всіх нас кличе. На дорозі зупинись Вліво вправо подивись Чемним будь ти у автобусі й трамваї. Я друзі гарно прогулявся Там де машини так награвся Я немаленький вже на зріст До того ж маю гарний хвіст Нікого слухать не збираюсь Бо я дорослий і на дорозі часто граюсь.
52275. Весела нотна азбука 247.5 KB
  Вміння співати по нотах сприяє розвитку музичних здібностей дітей. Навчання молодших школярів музичної грамоти передбачає такі завдання: – розвинути музичні здібності дітей: ладове чуття музичнослухові уявлення музичноритмічне чуття чуття цілого форми; – дати основи нотної грамоти яка є складовою музичної грамоти навчити дітей розуміти нотний запис і сформувати вміння співати по нотах; – сформувати уявлення про елементи музичної мови засоби музичної виразності та музичні явища; – навчити розуміти ідейнохудожній зміст музичних...
52276. Повторювально-узагальнюючий урок за темою: «Передня Азія» 40 KB
  Назвати річки що протікають через Межерічча. Назвати та показати місто яке називали Ворота Божі. Назвати військову державу що розташована у верхній течії р. Назвати столицю Ассирійської імперії яку називали містом крові.
52277. Уроки державної мови 5.42 MB
  Ось що радить доктор філологічних наук Світлана Єрмоленко. У мовній практиці часом використовують ці лексеми як взаємозамінні. Але взаємозамінність у термінологічних висловах – річ небажана, і зрештою в кожному конкретному звороті утворюється якесь одне термінологічне слово, а інші, якщо вони не мають додаткових значеннєвих відтінків, виходять із літературно-нормативного вжитку.
52278. Бабуся – берегиня нашого роду 117 KB
  Та запросили у гості сьогодні тих людей яких обєднує не вік а високе почесне звання бабуся Ми зібралися великою родиною щоб вітати й вшановувати найрідніших найближчих нам людей. Що в мене є бабуся. Учитель: Так кого ж ми називаємо таким теплим іменем бабуся Діти відповідають а вчитель їх підводить до висновку що це мати мами або...
52279. Жизненная сила музыки И.С. Баха 69 KB
  Баха Цели и задачи урока: Закрепить понятие полифония на примерах вокального инструментального и произведения изобразительного искусства; Определить особенности содержания музыки И. Баха; Формировать: представление о стилистических особенностях музыки И. Баха понятие Сюита навыки хорового пения. Баха иллюстрации по теме урока стихи и высказывания по теме урока нотный материал.
52280. Бактериологическое оружие и его поражающие факторы 50.5 KB
  11й класс Цели: Познакомить учащихся с видами поражающими факторами бактериологического оружия. Обучить способам защиты от бактериологического оружия. Учебные вопросы: История применения бактериологического оружия. Краткая характеристика бактериологического оружия и его боевых свойств.
52281. Злочини бактерій проти людства 68 KB
  Характеристика холери менінгококової хвороби дифтерії туберкульозу сифілісу. Стан захворюваності на туберкульоз в Україні. Обладнання: ПК; мультимедійний проектор; презентації: Хвороботворні бактерії: вчора і сьогодні Туберкульоз підступний вбивця Профілактика бактеріальних хвороб ; оцінювальні завдання; слайд із відповідями на завдання; виставка газетбюлетенів: Кишкові інфекції Туберкульоз підступний вбивця Імунітет на сторожі здоров’я . Фтизіатри з’ясувати особливості збудника туберкульозу причини поширення...