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


 

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

33841. ФИЛОСОФИЯ И. КАНТА 15 KB
  КАНТА Иммануил Кант 17241804 является родоначальником немецкой классической философии. В критическом периоде наиболее важными произведениями Канта являются Критика чистого разума Критика практического разума Критика способности суждения. Гносеологические взгляды Канта включают в себя анализ трех ступеней познания. В работе Критика практического разума Кант утверждает что объектом познания является материальная вещь находящаяся вне человека и его сознания.
33842. Марксизм. Материалистическая философия жизни 15.08 KB
  и особенно XX столетия явился марксизм. Маркс и Ф. В марксистской философии появилось новое содержание отсутствовавшее в прежних философских системах но выработанное на базе внутренней преемственности в решении ряда кардинальных проблем. Сущность нового внесенного марксизмом в философию можно проследить по следующим линиям: по функциям философии; по соотношению в ней партийности гуманизма и научности; по предмету исследования; по структуре составу и соотношению основных сторон разделов содержания; по соотношению теории и метода; по...
33843. ПРЕДПОСЫЛКИ ФИЛОСОФИИ А. ШОПЕНГАУЭРА 16.61 KB
  НИЦШЕ Французский философ Анри Бергсон 18591941 понимал жизнь в космологическом плане. Для немца Фридриха Ницше 18441900 в основе всего находится не воля к жизни как у Шопенгауэра а воля к власти. Лозунг Ницше: Живи опасно. Ницше прекрасный филолог и музыкальный импровизатор к тому же страдающий от недугов.
33844. ПОЗИТИВИСТСКАЯ КОНЦЕПЦИЯ 14.12 KB
  Последняя уничижительно объявляется позитивистами псевдознанием мимикрией под науку спекулятивным умозрительным теоретизированием не имеющим для современной науки не только никакого позитивного значения а скорее отрицательное так как философский дискурс способен только заразить науку вирусом псевдознания. Ньютон вот формулы позитивистского решения вопроса о соотношении философии и науки. Спенсер методология науки Дж.
33845. ПОНЯТИЕ ГЕРМЕНЕВТИКИ 18.05 KB
  Понимание тогда выступает как непосредственное проникновение в жизнь. Понимание собственного духовного мира достигается в процессе самонаблюдения понимание чужого мира путем вживания сопереживания вчувствования. Именно в стихии языка осуществляется понимание людьми и окружающего мира и самих себя и других.
33846. Философская антропология, Макс Шелер (1874–1928) 15.15 KB
  В центре внимания этого течения проблема человека а основная идея создание интегральной концепции человека. Философская антропология объявив себя основополагающей философской дисциплиной пытается на основе тех или иных особенностей человека найти способы постановки и решения всех философских проблем. В отличие от рационалистических учений философская антропология вовлекает в сферу исследования душевнодуховную жизнь человека эмоции инстинкты влечения что зачастую приводит к иррационализму: представители данного направления...
33848. Характеристика западной философии 16.81 KB
  Эти же вопросы являются предметом исследования и других форм общественного сознания в частности и философии. Теология как одна из форм выражения религиозного сознания имеет ряд специфических черт которые отличают ее от философии. Проблема соотношения философии и теологии возникла в первые века существования христианства и несостоятельная своей актуальности до наших дней.
33849. Особенности развития русской философии 20.54 KB
  В качестве самостоятельного духовного явления о русской философии может идти речь начиная с конца XVIII начала XIX в. Первые известные за пределами России представители русской православной философии В. Дальнейшее развитие русской философии связано с тремя основными направлениями: психологическим рефлексология Бехтерева и Павлова теософскомистическим в лице русского космизма Е.