були досягнуті всі поставлені цілі і вирішені відповідні завдання.
Була вивчена розробляється предметна область, а саме іпотечне кредитування фізичних осіб. Для цього треба було розібратися з термінологією даної області, зібрати необхідні нормативні та правові документи. p align="justify"> У результаті проведення цих заході була отримана інформація, на основі якої проведено початковий аналіз кредитних програм.
На основі проаналізованих кредитних програм була вирішена математична задача з визначення оптимального кредиту.
На основі вирішеною завдання, була написана програма, яка автоматизує вибір оптимального кредиту.
Список використаної літератури
. Глухів В.В. Математичні методи і моделі для менеджменту. - СПб.: Питер, 2002. - 675 с. p>. Кузнєцов А.В. Економіко-математичні методи і моделі. - М.: Норма, 2002. - 524 с. p>. Козирєв Є.С. Інформаційні технології в економіці та управлінні. - СПб.: Питер, 2002. - 388 с. p>. # "Justify"> Лістинг програмного коду
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls; = class (TForm): TButton;: TButton;: TEdit;: TEdit; : TLabel;: TEdit;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TPanel;: TButton;: TPanel;: TLabel ;: TLabel;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{a: array [0 .. 6,0 .. 6] of double;: array [0 .. 6] of string;: double;, j, chek: integer;};: TForm1;
{a: array [0 .. 6,0 .. 6] of double;: array [0 .. 6] of string;: double;, j, chek: integer;}: array [0 .. 6,0 .. 6] of double;: array [0 .. 6] of string;: double;, j, chek: integer;
{$ R *. dfm} TForm1.FormCreate (Sender: TObject);: = 0;: = 0;: = 0;; TForm1.Button1Click (Sender: TObject);: = i + 1; [i-1]: = Edit4.Text; j: = 1 to 5 do [j] [i]: = StrToFloat (Edit1.Text);. Clear;. Clear;. Clear;. Clear;. Clear; 12.Caption: = 'Введення установок успішний ......... Банк:';
label11.Caption: = T [i-1];; TForm1.Button2Click (Sender: TObject);: array [0 .. 6,0 .. 6] of double;, G2, G3 , G4, k1, k2, k3, k4: double;: array [0 .. 5] of double;: integer;: integer;: = a [1] [1] + a [1] [2] + a [ 1] [3] + a [1] [4] + a [1] [5]; [0] [0]: = a [1] [1]/G1; [0] [1]: = a [ 1] [2]/G1; [0] [2]: = a [1] [3]/G1; [0] [3]: = a [1] [4]/G1; [0] [4] : = a [1] [5]/G1;: = a [2] [1] + a [2] [2] + a [2] [3] + a [2] [4] + a [2] [5]; [1] [0]: = a [2] [1]/G2; [1] [1]: = a [2] [2]/G2; [1] [2]: = a [ 2] [3]/G2; [1] [3]: = a [2] [4]/G2; [1] [4]: ​​= a [2] [5]/G2;: = a [3] [4] + a [3] [2] + a [3] [3] + a [3] ...
