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


 

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

50613. Создаем окно и дверь для кафе «МАХ» в виде полисеток 256.5 KB
  Теперь когда вы получили опыт работы с полисетками изготовление двери не должно вызвать затруднений. В данном случае длина соответствует высоте полотна будущей двери а высота его толщине. Рисунок Заготовка для двери с двумя сегментами по высоте будущего полотна Давайте сформируем для начала рамку полотна двери создав на нем две филенки то есть вставки которые могут быть и стеклянными сверху и снизу. Полигоны ограничивающие полотно двери по бокам не должны быть выделены.
50614. Простейшие стандартные материалы 1.53 MB
  Введите для материала рис.3 Настройте следующие значения основных цветов материала в свитке Phong Bsic Prmetrs: mbient Подсветка 190; 190; 190 светлосерый; Diffuse Диффузный 240; 240; 240 почти белый; Speculr Зеркальный 255; 255; 255 чистобелый. Величины всех остальных параметров материала оставьте равными их исходным значениям.8 Теперь сохраните только что созданный материал в новой библиотеке: Если окно Mteril Mp Browser Просмотр материалов и карт текстур еще открыто можно просто щелкнуть на образце...
50615. Моделирование асинхронных вычислительных процессов 86 KB
  Пять философов прогуливаясь и размышляя время от времени испытывают приступы голода. Рис 41 При конструировании управления в этой задаче следует учитывать самые разнообразные варианты поведения философов. Необходимо организовать действия философов так чтобы они все были накормлены и не случилось бы так что пять философов одновременно войдут в столовую возьмут левую вилку и застынут в ожидании освобождения правой вилки. Голодная смерть всех философов неминуема если никто из них не захочет расстаться па время со своей левой вилкой.
50617. Изучение твердотельных приборов различного назначения 837 KB
  К твердотельным приборам относят полупроводниковые диоды транзисторы тиристоры варисторы генераторы Ганна оптоэлектронные приборы. Полупроводниковые диоды Полупроводниковым диодом называют прибор c одним или несколькими электрическими переходами и двумя внешними выводами. Основные типы полупроводниковых диодов: выпрямительные диоды стабилитроны варикапы высокочастотные и импульсные диоды туннельные и обращенные диоды. Разновидностью выпрямительных диодов являются лавинные диоды приборы имеющие на обратной ветви вольтамперной...
50618. Тороид, намотанный на сердечник из однородного и изотропного магнетика 865 KB
  Из соображений симметрии ясно что линии вектора поля тороида представляют собой окружности центры которых расположены на оси вращения 00 тора. Поэтому при расчете поля внутри тороида в качестве контура интегрирования L удобно взять одну из таких линий с произвольным радиусом r. Тогда на основании теоремы о циркуляции вектора можно записать: 11 где N число витков в обмотке тороида все витки охватываются контуром интегрирования. 13 Анализ формулы 9 показывает что магнитное поле внутри тороида...
50620. Удельный заряд электрона и его расчет методом магнетрона 1.24 MB
  Ознакомиться с определением удельного заряда частицы методом магнетрона и определить удельный заряд электрона. Удельный заряд электрона можно определить различными методами. В данной работе для определения удельного заряда электрона используется метод магнетрона. лежит в одной плоскости с вектором скорости электрона нормальна ему и сообщает частице центростремительное ускорение.
50621. Дихотомия 177.5 KB
  Задание Минимизировать унимодальную функцию fx методом дихотомии: Пpостейшим методом минимизации функции одной пеpеменной является дихотомия деление отpезка пополам. Для успешной pеализации этого метода не тpебуется вычислять или оценивать пpоизводную функции. Обозначим через X множество точек минимума функции fx. Для унимодальной функции X=[ α β].