Программа, рассчитывающая уровни дохода финансовых пирамид.

(Программа написана на языке программирования - паскаль (Pascal).

unit MainUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus;

type

TMainForm = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

procedure FormCreate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

Currency: String; \\\Вводим переменную отвечающую за значение валюты

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

Begin

\\\Здесь присваиваются значания для элементов формы: надписи, названия. Также заданы значения поумолчанию для некоторых переменных: Currency.

Currency:='Тенге';

Label1.caption:='Процент вплат вашего уровня: ';

Label2.caption:='Процент выплат уровня выше\ниже: ';

Label3.caption:='Ваш уровень: ';

Label4.caption:='';

Label6.caption:='';

Label7.caption:='';

Label10.caption:='';

Label11.caption:='Множитель Вашей пирамиды:';

Label13.caption:='Соотношение Вашего заработка и заработка лидера:';

Label14.caption:='Pаработок основателя: ';

Label15.caption:='Ваш заработок:';

Label8.caption:=Currency;

Label9.Caption:='';

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Button1.caption:='Произвести расчет';

End;

\\\Далее идут процедуры отрабатывающие события нажатия кнопок выбора валюты

procedure TMainForm.N5Click(Sender: TObject);

Begin

Currency:=' тенге';

Label10.caption:='Тенге';
end;

procedure TMainForm.N6Click(Sender: TObject);

Begin

Currency:=' тенге';

Label10.caption:='Тенге';

End;

procedure TMainForm.N7Click(Sender: TObject);

Begin

Currency:=' евро';

Label10.caption:='Евро';

End;

procedure TMainForm.N8Click(Sender: TObject);

Begin

Currency:=' рублей';

Label1.caption:='Рубли';

End;

procedure TMainForm.N2Click(Sender: TObject);

Begin

Close;

End;

\\\Основная процедура произвадящая все расчеты

procedure TMainForm.Button1Click(Sender: TObject);

Var

\\\Вводим переменные Summain - содержит значение 1-го члена прогрессии. Sum1 – содержит значение процентов выплат Вашего уровня. Sum2 - содержит значение процентов выплат уровня выше\ниже вашего.

SumMain, Sum1, Sum2: real;

\\\Вводим переменную содержащую значения Вашего заработка.

An:real;

\\\Вводим переменные Q1 – содержит значение первичного множителя геометрическойпрогрессии. Qn – множитель геометрической прогрессии на данном уровне.

Qn, Q1: real;

\\\Вводим переменную содержащую значение Вашего уровня.

n: integer;

Begin

\\\Производим проврку: если значение процентов выплат вашего уровня не введены, тоустанавливаем значение поумолчанию – 1.

if Edit1.Text='' then

Sum1:=1

\\\Иначе считываем его:

Else

Sum1:=StrToFloat(Edit1.Text);

\\\Производим проврку: если значение процентов выплат уровня выше\ниже не введены, тоустанавливаем значение поумолчанию – 1.

If Edi2.Text='' then

Sum2:=1

\\\Иначе считываем его:

Else

Sum2:=StrToFloat(Edit2.Text);

\\\Производим проврку: если значение Вашего уровня не введены, тоустанавливаем значение поумолчанию – 1.

if edit3.Text='' then

n:=1

\\\Иначе считываем его:

Else

n:=StrToInt(Edit3.Text);

\\\Определем значение какого уровня введено: уровня выше или уровня ниже:

if Sum1<Sum2 then

\\\Расчитывае м первичный множитель прогрессии если введено уровень предыдущий

Q1:= Sum2/Sum1

Else

\\\Расчитывае м первичный множитель прогрессии если введено уровень следующий

Q1:= Sum1/Sum2;

\\\Расчет множителя прогрессии на данном уровне

Qn:=Exp((n-1)*ln(Q1));

\\\Расчет 1 –го члена прогресси

SumMain:=Sum1/Qn;

\\\Расчет n-го члена прогрессии, т.е. на Вашем уровне

An:=SumMain*Qn;

\\\Вывод значений:

Label4.Caption:=FloatToStrF(Q1,fffixed,7,3); \\\Разница между уровнями

Label6.Caption:=FloatToStrF(Qn,fffixed,7,3); \\\Соотношения между Вашим заработком и заработком Основателя

Label9.Caption:=FloatToStrF(SumMain,fffixed,7,3) + ' '+ Currency; \\\т.к. Основатель пирамиды является ее последним членом, то нуобходимо поменять значения Вашего заработка и заработка Основателя. Следовательно выводится заработок Ваш
Label7.Caption:=FloatToStrF(An,fffixed,7,3) + ' '+ Currency; \\\Заработок Основателя

end;

End.

Дата добавления: 2015-07-19