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


 

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

51388. Построить решение, включающее в себя три проекта, которые содержат: проект DLL(библиотеку классов), консольный проект и Windows-проект 205.17 KB
  Построить Решение включающее в себя три проекта которые содержат: проект DLLбиблиотеку классов консольный проект и Windowsпроект. Построим аналог класса Mth и поместим этот класс в проект DLLбиблиотеку классов что позволит повторно использовать его присоединяя при необходимости к различным проектам. Все три проекта будут находиться в одном Решении. Создание проектов: 1 Создание DLL проекта типа Библиотека классовClss Librry Запустить VS со стартовой страницы перейти к созданию проекта и в качестве типа проекта указать...
51391. Подсчитать количество точек, пробелов и символов «b» в потоке данных 17.77 KB
  Алгоритм Начало Обьявление переменных ch=0 pt=0 sp=0 bi=0 Вывод списка команд Getchr=EOF вывод подсказки на экран printf vvedide chislo n; while ch=getchr=EOF до тех пор пока ch не равно EOF выполнять цикл ifch.
51393. Прямые измерения активного электрического сопротивления.(Измерения омметром, мультиметром и мостом) 1.4 MB
  Цель работы Получение навыков измерения активного электрического сопротивления далее сопротивления. Ознакомление с методами измерения активного сопротивления. Сведения необходимые для выполнения работы Перед выполнением работы повторите вопросы обработки и представления результата прямых и косвенных измерений и ознакомьтесь со следующими вопросами: Измерение электрического сопротивления постоянному току методами непосредственной оценки и сравнения с мерой.
51394. Измерение постоянного напряжения методом компенсации 978 KB
  Измерение постоянного напряжения методом компенсации Получение сведений о погрешностях измерения напряжения компенсационным методом. Устройство принцип действия и основные характеристики делителя постоянного напряжения. Компенсаторы потенциометры постоянного тока предназначены для измерения методом сравнения с мерой ЭДС напряжения и величин функционально с ними связанных.
51395. Индуктивные измерительные преобразователи. Измерение перемещения 589.46 KB
  Цель работы Ознакомление с устройством и применением индуктивного измерительного преобразователя на примере измерителя перемещения изучение метрологических характеристик измерительных преобразователей и схем их включения. В измерительной технике используются конструкции преобразователя с переменным воздушным зазором и соленоидные или плунжерные преобразователи которые и изучаются в данной работе. Это вызывает изменение магнитного сопротивления и индуктивности преобразователя L. При некоторых допущениях индуктивность преобразователя можно...