|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.10.2017, 15:31 | #1 |
Новичок
Джуниор
Регистрация: 26.10.2017
Сообщений: 4
|
Кто подскажет, как создать функцию
Хотел создать функцию по алгоритму , что то не получается - кто подскажет?
Формула с переменными (ДатаЗаключенияСделки, ЕжемесячныйПлатежТело, ЕжемесячныйПлатежНадбавка, СрокФинансирования, БазаДанныхПогашений – количество ячеек = кол-ву месяцев СрокФинансирования) Разность дат в месяцах = ДатаЗаключениеСделки - ТекущаяДата (кол-во полных месяцев) Долг = 0 N = 0 Цикл N = N+1 до (кол-во полных месяцев) 1. ДатаЗаключенияСделки + 1 месяц 2. Прибыль =0 3. Начисляем Долг = ЕжемесячныйПлатежТело + Долг 4. Отнимаем Погашение за месяц (из БазыДанныхПогашения) 5. Если Долг > Погашение за месяц (из БазыДанныхПогашения) - то Долг = Долг - Погашение за месяц Прибыль = Долг - Погашение за месяц , иначе если (ЕжемесячныйПлатежТело + ЕжемесячныйПлатежНадбавка + Долг < Погашение за месяц ) - то Прибыль = ЕжемесячныйПлатежНадбавка Долг = ЕжемесячныйПлатежТело + ЕжемесячныйПлатежНадбавка + Долг - Погашение за месяц - иначе Прибыль = Погашение за месяц - ЕжемесячныйПлатежТело - ЕжемесячныйПлатежНадбавка - Долг Долг = 0) Возвращаемся к шагу 1 (КонецЦикла) Вывод - переменной Прибыли |
27.10.2017, 07:49 | #2 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
по-моему, от вас хотят избавиться на факультете. судя по заданию....
------------- Код:
Код:
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
Последний раз редактировалось NetSpace; 27.10.2017 в 08:53. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Может я не совсем по теме, но я надеюсь что найдется кто нибудь кто мне подскажет... | xoi90 | Работа с сетью в Delphi | 1 | 23.01.2012 16:35 |
Ищу программу (или кто подскажет как это самому создать) | Derty | Помощь студентам | 1 | 23.08.2011 13:21 |
Кто подскажет как же бить?( | незнайка315 | Microsoft Office Access | 1 | 24.05.2011 11:59 |
Кто подскажет функцию для вычетания квадратного кореня | Progsenya | Общие вопросы C/C++ | 1 | 01.09.2010 23:04 |
Кто мне подскажет как сделать так чтобы... | Alexij | Общие вопросы Delphi | 9 | 16.06.2008 12:47 |