Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Программирование линейного алгоритма





Алгоритм, в котором все действия выполняются последовательно одно за другим, называется линейным. Приведем пример программы, в которой реализуем линейный алгоритм.

Пример.

Условие задачи:

Какого роста цен за год можно ожидать, если правительство гарантирует, что инфляция в новом году составит р%?

Если за каждый месяц цены возрастут в 1 + р/100 раз, то за год рост цен составит (1+р/100)12 раз или прирост в процентах

Поясним формулу. За один месяц цены возрастут на р/100 и составят 1 + р/100. Для того чтобы сократить изложение, обозначим эту величину за Х.

Х = 1 + р/100

Единица — это условная цена единица товара. В следующем месяце цены возрастут на тот же процент, но уже от имеющихся цен на остаток месяца: Х* р/100. Цены будут иметь значение Х + Х * р/100 или Х*(1 + р/100).

Х*(1 + р/100) = Х2

В следующем (третьем месяце) цены будут иметь значение:

Х2 + Х2*р/100 = Х2*(1+р/100) = Х3

И так далее. В конце 12-го месяца года цена единицы товара будет равна Х12 или(1 + р/100)12. Очевидно, что рост цены будет равен (1 + р/100)12 – 1.

Чтобы получить прирост в процентах, необходимо умножить на 100%.

Схема алгоритма:

Разработка пользовательской формы

Форма На форму установлены компоненты
Label1 — свойство Caption = «Введите процент месячной инфляции». TextBox1 — все свойства без изменений. Label2 — свойство Caption = «Годовой рост цены». Label1 — свойство Caption очищено. CommandButton1 — свойство Caption = «Ok».  

Обработчик события (Click для CommandButton1)

Рабочее окно Обработчик события
Private Sub CommandButton1_Click() ‘ Заголовок процедуры Dim p, a As Single, s As Single ‘ Описание переменныхp — процент инфляции в месяц. ‘a — кратность роста цен. S — рост цен за год в процентах. p = Val(TextBox1.Text) ‘ Ввод числа из окна редактора a = (1 + p / 100) ^ 12 ‘ Оператор присваивания s = (a - 1) * 100 ‘ Оператор присваивания Label3.Caption = Str(s) ‘ Вывод в метку End Sub  

 

Date: 2015-07-11; view: 483; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию