Финансовые пирамиды в Республике Казахстан.
В РК вновь появились сомнительные финансовые пирамиды
Финансовые пирамиды, которые появлялись в начале девяностых, вновь завлекают Казахстанцев. Главный стимул, заставляющий людей вступать в сомнительные объединения - большие деньги. Что в кризисное время особо активно действует на психологию9. Пенсионерки или безработные домохозяйки - все могут быть жертвами "добровольного вступления". Тему продолжит Данияр Батырбаев.
Октябрина Каримовна о компании, где можно заработать большие деньги и путешествовать за копейки, как и многие пенсионеры, узнала от подруг. В 73 года ей не хватает внимания, и, придя на встречу, она попала в общество, где ее ценят, любят и нуждаются в ней. Правда, стоимость такого общения составляет 300 долларов. За эти деньги ей обещали путешествие с большой скидкой, недвижимость и стабильный заработок. Только требовалось привести еще людей.
Когда родные пенсионерки узнали, что она отнесла деньги и не имеет на руках ни фискального, ни товарного чека и даже договора, подняли тревогу.10
В Казахстане под прикрытием микрокредитных организаций (МКО) начали свою деятельность финансовые пирамиды. Об этом сегодня на пресс-конференции в центральном аппарате НДП "Нур Отан" заявил председатель правления Ассоциации микрокредитных организаций Казахстана Шалкар Жусупов, передает корреспондент агентства.
"Под прикрытием МКО в Казахстане начали свою деятельность финансовые пирамиды", - сказал Ш. Жусупов. По его словам, пользуясь потребностью населения в кредитовании, финансовые пирамиды собирают предварительные взносы - якобы для последующего предоставления кредитов.
"Деятельность таких пирамид недопустима, она дискредитирует весь сектор микрофинансирования", - сказал Ш. Жусупов, отметив, что Ассоциация микрокредитных организаций готова проконсультировать все заинтересованные государственные органы для недопущения подобных фактов. 11
Глава 2: Практическая часть. Сравнение финансовых пирамид и принципа работы маркетинговых компаний.
Принцип построения финансовых пирамид, вывод расчетных формул реального дохода маркетинговых компаний.
Формулы геометрической прогрессии лежащие в основе программы рассчитывающей доход каждого из уровней финансовой пирамиды
q=an+1/an; Где q является коэффициентом прогрессии, а An – один из членов прогрессии.
qn-m=an/am; Где An- любой член геометрической прогрессии, Am- последующий член.
a1=an/qn-1 Где A1- первый член прогрессии.
an+1=an*q;
an=a1*qn-1
Программа, рассчитывающая уровни дохода финансовых пирамид.
(Программа написана на языке программирования - паскаль (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.
