2009年8月24日月曜日

リネ アルタイル鯖で詐欺

こちらがアデナの買取で募集していたところ売りでメールしてきたムラヤマという人物です。


千葉県の住所で、ムラヤマ ○○○
UFJ銀行 千葉支店の口座です。


EZWEBのメール、及び080の携帯電話を使用しています。


よくある詐欺ですのであえて詳細省き分かりにくい書き方にしましたが、取引中に何かおかしいな?と思ってここを見た方がいれば口座をチェックしてみてください


UFJ銀行 千葉支店 普通 4○○19○3 
ムラヤマ ○○○


080からはじまるAUの携帯電話を使用しています。


固定電話も催促すれば番号は載せてきますが、連絡には携帯電話を使用してきます。


僕は面倒なので第三者に彼の処分を依頼しますが、(元金以上にかかるでしょうが仕方がないので)もしまた同じことされる方がでたらと思うと不愉快なので載せておきます

2009年8月20日木曜日

手順6

RMT(リアルマネートレーディング)取引において、はじめての相手の時は、小額のRMT取引から始めましょう。また、どうしてもRMT取引が不慣れで自信が持てないや確認したが不安があるなどの時は、エスクローサービスを利用するのもよいでしょう。エスクローサービスは、第三者が取引を仲介するサービスを指します。RMTをすることを決定したら.、振込みをし、 貿易
RMT取引相手に入金の確認をしてもらいましょう。

2009年8月9日日曜日

Fraction

var FF11 RMT
intNumerator, intDenominator, intNegative: integer;
dblFraction, dblDecimal, dblAccuracy, dblinteger: Double;
begin
dblDecimal := decimal;
if trunc(decimal) = decimal then
result := floattostr(decimal)
else
begin
if abs(decimal) > 1 then /
begin
dblinteger := trunc(decimal);
dblDecimal := abs(frac(decimal));
end
else dblDecimal := decimal;

dblAccuracy := 0.01;
intNumerator := 0;
intDenominator := 1;
intNegative := 1;
if dblDecimal < 0 then intNegative := -1;
dblFraction := 0;
while Abs(dblFraction - dblDecimal) > dblAccuracy do
begin
if Abs(dblFraction) > Abs(dblDecimal) then
intDenominator := intDenominator + 1
else
intNumerator := intNumerator + intNegative;
dblFraction := intNumerator / intDenominator;
end;
// edit2.Text := inttostr(intNumerator) + '/' + inttostr(intDenominator);
if abs(decimal) > 1 then
result := floattostr(dblinteger) + ' ' + inttostr(intNumerator) + '/' + inttostr(intDenominator)
else
result := inttostr(intNumerator) + '/' + inttostr(intDenominator);
end;
end;