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


 

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

1372. Анализ предприятия Слуцкие электрические сети 227.5 KB
  Описание структуры энергетического предприятия.Порядок организации рабочих мест и контроль над их выполнением. Организация мероприятий по технике безопасности. Технико-экономические показатели работы энергопредприятия. Мероприятия по охране окружающей среды на энергопредприятии.
1373. Влияние типов вируса папилломы человека на течение ювенильного респираторного папилломатоза 92 KB
  Организация статистического исследования. Заболеваемость ЮРП у детей. Карта сбора материала для детей, страдающих ЮРП. Распределение детей, страдающих ЮРП, по полу и методу лечения. . Статистические методы использованные для анализа материала.
1374. Вирішення економічних задач за допомого електронних таблиць 84.5 KB
  Обчислення в електронних таблицях. Моделювання математичних процесів. Моделювання розгалужених процесів. Моделювання циклічних процесів. Моделювання обчислень в економічних задачах табличного вигляду.
1375. Вычислительная техника 111 KB
  Возвращаем массив битов в место вызова функции. Сложение в двоичном коде уже преобразованных чисел. Перевод двоичного числа в десятичное представление. Количество битов в двоичном представлении числа.
1376. Конструктивное планирование жилого здания 174 KB
  В основе будущих жилых комплексов лежит идея открытого пространства. Здесь важнейшую роль играет солнечный свет, он создает настроение. За счет трансформации размеров здания и планировки (изменено соотношение глубины и ширины квартиры) свет максимально проникает во все точки ее пространства.
1377. Проектирование общежития 126.5 KB
  Изыскания выполнены для стадии рабочий проект с целью выяснения геологического строения и гидрогеологических условий площадки. Наружные сети по водоснабжению и канализации зданий общежитий запроектированы на основании Техусловий на водоснабжение
1378. Дакументы i матрыялы па гiсторыi паустання 1863-1864 гг. у Беларусi 161 KB
  Ход паустання, яго асаблiвасцi i уплыу на палiтыку царызма на Беларусi. Значэнне дзейнасцi К. Калiноўскага. Рэвалюцыйныя дакументы i матэрыялы паустання 1863-1864. Задача курсавой работы заключаецца у аналiзе падзей, дакументау i матрыялау гiсторыi паустання 1863-1864 гг. у Беларусi. Задача даследвання дазваляе дасягнуць мэты курсавой работы.
1379. История Китайской цивилизации 158 KB
  Возникновение Китайской цивилизации. Объединение Китая, Империя Цинь. Китай в период правления династии Хань. Китай в период династий Суй и Тан. Первые контакты с европейцами. Обострение социальных противоречий. Манчжурское завоевание и падение династии Мин.
1380. Создание приложений с информационной базой данных 140.5 KB
  Выбор состава технических и программных средств. Обоснование управления реляционной базой данных с помощью SQL. Описание БД, содержащей сведения о файлах и справочную информацию с промежуточными результатами поиска. Описание процедуры, определяющей выбранные критерии поиска.