Программа полностью на русском языке. При запуске программы, сразу появляется окно ввода информации, которая содержит в себе: Название банка, первоначальный взнос, процентная ставка в рублях, процентная ставка в валюте, и срок кредита. А так же управляющие кнопки: выход, вывести, запомнить.
Данные о банках и названия самих банков вводятся с клавиатуры в соответствующие поля. После того, как ввели данные для банка, нажимаем кнопку "Запомнить".
После ввода данных, в строке состояния отображается, правильность ее ввода. Поля для ввода автоматически очищаются, для ввода новых значений.
После завершения ввода данных, нажимаем на кнопку "Вывести". После чего программа выводит, банк в котором мы можем взять оптимальный ипотечный кредит.
Заключение
В ходе выполнения данного курсового проекта были достигнуты все поставленные цели и решены соответствующие задачи.
Была изучена разрабатываемая предметная область, а именно ипотечное кредитование физических лиц. Для этого потребовалось разобраться с терминологией данной области, собрать необходимые нормативные и правовые документы.
В результате проведения этих мероприятии была получена информация, на основе которой проведен первоначальный анализ кредитных программ.
На основе проанализированных кредитных программ была решена математическая задача по определению оптимального кредита.
На основе решенной задачи, была написана программа, автоматизирующая выбор оптимального кредита.
Листинг программного кода
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][4]+a[3][5];[2][0] := a[3][1]/G3;[2][1] := a[3][2]/G3;[2][2] := a[3][3]/G3;[2][3] := a[3][4]/G3;[2][4] := a[3][5]/G3;:= a[4][1]+a[4][2]+a[4][3]+a[4][4]+a[4][5];[3][0] := a[4][1]/G4;[3][1] := a[4][2]/G4;[3][2] := a[4][3]/G4;[3][3] := a[4][4]/G4;[3][4] := a[4][5]/G4;:=0.26;:=0.22;:=0.35;:=0.17;[0]:=x[0][0]*k1+x[1][0]*k2+x[2][0]*k3+x[3][0]*k4;[1]:=x[0][1]*k1+x[1][1]*k2+x[2][1]*k3+x[3][1]*k4;[2]:=x[0][2]*k1+x[1][2]*k2+x[2][2]*k3+x[3][2]*k4;[3]:=x[0][3]*k1+x[1][3]*k2+x[2][3]*k3+x[3][3]*k4;[4]:=x[0][4]*k1+x[1][4]*k2+x[2][4]*k3+x[3][4]*k4;:= 0;i := 1 to 4 doAm[i] < Am[min] then:= i;.Caption:=T[min];
|