23823

Вирази та функції

Лабораторная работа

Информатика, кибернетика и программирование

5 демонструє роботу даного додатка перебування значення річного приросту при відомих значеннях числа виплат24 суми кредиту 120000 і величини щомісячної виплати 6000 Вікно робочого додатка Кредит: Програмний код для цього додатка: Dim r As Single n As Integer v As Currency p As Currency Private Sub Command1_Click r = ValText1.Text n = ValText2.Text v = ValText3.Text r = r 1200 p = Pmtr n v Text4.

Украинкский

2013-08-04

50 KB

6 чел.

ЗВІТ

з лабораторної роботи № 3

" Вирази та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "5" листопада 2008 р.

Виконання завдань:

1. На екранній формі 4 текстових поля і 3 командні кнопки. Текстові поля призначені для вводу чи виводу наступних величин:

  1.  річного банківського приросту вартості (у відсотках);
  2.  числа періодичних (наприклад, щомісячних) виплат;
  3.  суми отриманого в банку кредиту (приведеної вартості);
  4.  величини однієї виплати.

1-у, 3-у і 4-у величини цього списку можна знайти за допомогою представлених вище фінансових функцій, якщо інші величини цього списку відомі.

Для цієї мети і служать командні кнопки. Для кожної з них написана окрема процедура подія Клік кожної з цих кнопок після вводу трьох чисел у три текстові поля викликає появу четвертого числа в текстовому полі, що залишилося незаповненим.

Мал. 4.5 демонструє роботу даного додатка — перебування значення річного приросту при відомих значеннях числа виплат(24), суми кредиту (120000) і величини щомісячної виплати (6000)

Вікно робочого додатка «Кредит»:

Програмний код для цього додатка:

Dim r As Single, n As Integer, v As Currency, p As Currency

Private Sub Command1_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

v = Val(Text3.Text)

r = r / 1200

p = -Pmt(r, n, v)

Text4.Text = Str(p)

End Sub

Private Sub Command2_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

p = Val(Text4.Text)

r = r / 1200

p = -p

v = PV(r, n, p)

Text3.Text = Str(v)

End Sub

Private Sub Command3_Click()

n = Val(Text2.Text)

p = Val(Text4.Text)

v = Val(Text3.Text)

p = -p

r = Rate(n, p, v) * 1200

Text1.Text = Str(r)

End Sub

2. Створив форму, яка  містить п’ять об’єктів типу текстове поле. У текстове поле вводиться один рядок, що містить назву країни, столицю і кількість територіальних одиниць адміністративного поділу. Програма поміщує в окремих  текстових полях інформацію про назву країни, столицю і кількість територіальних одиниць адміністративного поділу.

Програмний код для цього додатка:

Private Sub Command1_Click()

Dim a, b, c As Integer

a = InStr(Text1.Text, " ")

Text2.Text = Left(Text1.Text, a)

b = InStr(a + 1, Text1.Text, " ")

c = b - a

Text3.Text = Mid(Text1.Text, a + 1, c)

Text4.Text = Mid(Text1.Text, b + 1)

End Sub


 

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

26554. ВСЭ ПРОДУКТОВ УБОЯ ДИКИХ ПРОМЫСЛОВЫХ ЖИВОТНЫХ 8.84 KB
  ВСЭ ПРОДУКТОВ УБОЯ ДИКИХ ПРОМЫСЛОВЫХ ЖИВОТНЫХ В зависимости от вида диких животных их мясо отличается по органолептическим признакам морфологическому и химическому составу вкусовым и кулинарным качествам. У одних животных его мало лось заяц и такое мясо относится к тощему у других бывают значительные отложения медведь северный олень кабан. У большинства диких животных сразу после снятия шкуры мясо красного цвета. МЯСО ЛОСЯ темнокрасного цвета мышцы на разрезе грубоволокнистые однородного цвета покрыты плотными хорошо...
26555. ВСЭ ПРОДУКТОВ УБОЯ ЖИВОТНЫХ ПРИ ЛУЧЕВОЙ БОЛЕЗНИ,ВЫЗВАННОЙ ВНЕШНИМ ГАММА-ОБЛУЧЕНИЕМ 3.55 KB
  ВСЭ ПРОДУКТОВ УБОЯ ЖИВОТНЫХ ПРИ ЛУЧЕВОЙ БОЛЕЗНИВЫЗВАННОЙ ВНЕШНИМ ГАММАОБЛУЧЕНИЕМ. При внешнем облучении и первом начальном периоде болезни возбуждение сменяется угнетением и общей слабостью снижается атшетит 'появляется тахикардия гиперемия слизистых оболочек одышка 'повышение температуры на 03 05 С усиливается перистальтика возможны рвота и . Третий период разгар болезни характеризуется лихорадкой снижением аппетита общим угнетением поносом с кровью j нарушениями в органах кроветворения и сердечнососудистой...
26556. ВСЭ ПРОДУКТОВ УБОЯ ПРИ ВНУТРЕННЕМ ПОРАЖЕНИИ РВ 2.97 KB
  Выздоровление длится более 3 мес а при крайне тяжелой степени наступает смертельный исход.При хроническом течении различают три степени болезни: легкую среднюю и тяжелую. При легкой степени наблюдаются функциональные изменения в сердечнососудистой системе и органах пищеварения дистоння. При средней степени снижается количество лимфоцитов и нейтрофилов с общей лейкопенией проявляется тромбоцитопения и умеренная эритропения.
26557. ВСЭ ПРОДУКТОВ УБОЯ ПРИ ЛЕПТОСПИРОЗЕ И ЛИСТЕРИОЗЕ 8.32 KB
  Если имеются дегенеративные изменения мускулатуры или желтушное окрашивание не исчезающее в течение двух суток тушу и все внутренние органы направляют на техническую утилизацию. При отсутствии дегенеративных изменений в мускулатуре но при наличии в ней желтушного окрашивания исчезающего в течение двух суток тушу а также внутренние органы не имеющие патологических изменений выпускают после проварки. Кишечник и патологически измененные органы направляют на техническую утилизацию. Патологически измененные органы кровь и головы от...
26558. ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА 21.73 KB
  ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА. В практике встречаются случаи отравлений сельскохозяйственных животных минеральными удобрениями ядовитыми растениями хлоридом натрия и другими солями минеральными ядами мышьяк медь и др. Особо опасны при отравлениях животных фосфорорганические хлорорганические карбаматные ртутьсодержащие и другие пестициды ядохимикаты} которые используют в борьбе с...
26559. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ РОЖЕ СВЕНЕЙ 7.89 KB
  Мускулатура туши иногда гиперемирована и с кровоизлияниями. В случае обнаружения в мясе или внутренних органах этих бактерий туши обеззараживают проваркой а внутренние органы направляют на техническую утилизацию или уничтожают. Кроме того такие туши можно направлять на изготовление вареноконченых грудинок и кореек. В случаях убоя животных туши со всеми внутренними органами и шкурой уничтожают.
26560. ВСЭ И САНОЦЕНКА ТУШ И ОРГАНОВ ПРИ САРКОЦИСТОЗЕ, ЭХИНОКОККОЗЕ, ЦЕНУРОЗЕ, ДИКТИОКАУЛЕЗЕ. ЦЕНУРОЗ МОЗГА 19.36 KB
  При поедании собаками и волками голов животных инвазированных ценурами происходит их заражение ценурозом. Болезнь наблюдается у молодых животных не старше 2 лет и характеризуется бесцельными круговыми движениями в одну сторону. При убое животных в начале болезни отмечают следы миграции онкосфер на мягкой мозговой оболочке интенсивную гиперемию ее на отдельных участках со свежими кровоизлияниями. Остро и хронически протекающая болезнь травоядных животных крупный рогатый скот овцы лошади и др.
26561. ВСЭ ТУШ И ОРГАНОВ ПРИ СТОЛБНЯКЕ И ПСЕВДОТУБЕРКУЛЕЗЕ. ВСЭ ПРИ СТОЛБНЯКЕ 1.21 KB
  При установлении столбняка тушу с внутренними органами и шкурой уничтожают. При наличии истощения и множественных поражений лимфатических узлов или при обнаружении псевдотуберкулезных изменений в мышцах тушу и внутренние органы утилизируют. При отсутствии истощения и поражении только внутренних органов или лимфатических узлов внутренние органы направляют на утилизацию а тушу и другие продукты убоя выпускают без ограничений.
26562. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ 3.52 KB
  ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ. У свиней трихинеллез протекает без выраженных признаков. ВСЭ: все туши свиней начиная с 3недельного возраста исследуются на трихинеллез.