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


 

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

17909. Контроль налогообложения доходов физических лиц 66.5 KB
  Тема № 9 Контроль налогообложения доходов физических лиц План Аудит начисления и удержания налога на доходы физических лиц. Контроль в сфере налогообложения доходов физических лиц от предпринимательской деятельности 1. Аудит начисления и удержания...
17910. Плата за специальное использование водных ресурсов 90.5 KB
  Тема № 11 План Основная цель установления платы за ресурсы. Плата за специальное использование водных ресурсов. 3. Лесной доход. 4. Плата за пользование полезными ископаемыми. 5. Сбор за геологоразведовательные работы. Учитывая то что природные ре...
17911. Контроль в сфере имущественного налогообложения 140 KB
  Тема № 12 Контроль в сфере имущественного налогообложения План Налог на имущество юридических лиц Налог на недвижимое имущество физических лиц Налог на имущество переходящее в порядке наследования или дарения. Налог с владельцев транспортных сред
17912. Местные налоги и сборы 42 KB
  Тема № 13 Местные налоги и сборы Состав местных налогов и сборов порядок их установления. Коммунальный налог. Налог с рекламы. Местные сборы в Украине их характеристика. 1. Состав местных налогов и сборов порядок их установления Местн...
17913. Учет налоговых платежей 123 KB
  Лекция №3. Учет налоговых платежей. План. 1. Понятие оперативного учета налогов и сборов поступающих в бюджеты и в государственные целевые фонды 2.Документы на основании которых проводится учет платежей в бюджет. Порядок ведения лицевых счетов плател...
17914. Порядок погашения налогового долга 102.5 KB
  Лекция № 4. Порядок погашения налогового долга. План 1. Понятие налоговой обязанности 22.Возникновение изменение и прекращение налоговой обязанности 5 Исполнение налоговой обязанности 8 Понятие налогового долга 9 Порядок погашения налогового
17915. ВИДЫ ПРОВЕРОК НАЛОГОВЫХ ОРГАНОВ 269.5 KB
  ВИДЫ ПРОВЕРОК НАЛОГОВЫХ ОРГАНОВ План Виды налогового контроля. Программа проверки. Требования к документам проверяющих. Оформление результатов документальной проверки. Порядок изъятия документов. Обжалование действий налоговых органов. ...
17916. Упрощенная система налогообложения. Фиксированный налог с доходов вот предпринимательской деятельности 173.5 KB
  Упрощенная система налогообложения План Единый налог плательщики объект обложения. Условия перехода на упрощенную единую систему налогообложения. Ставки сроки уплаты и порядок учета единого налога СПД малого бизнеса Фиксированный налог...
17917. Таможенная пошлина, сбор 66.5 KB
  Тема № 14 Таможенная пошлина сбор. План Пошлина как источник доходов бюджета. Классификация пошлин их виды. Понятие единого таможенного тарифа. Элементы начисления и уплаты пошлины. Взимание пошлины и порядок перечисления в бюджет. Таможенный сбо...