የዘፈቀደ ቁጥር ጀነሬተር። አደጋ፣ አጋጣሚ፣ ስርዓተ-ጥለት

ቁልፍ ቃላት፡ ጀነሬተር፣ የዘፈቀደ፣ ቁጥሮች፣ ቁጥር፣ አልጎሪዝም፣ የዘፈቀደ፣ የዘፈቀደ፣ ስርጭት፣ ዩኒፎርም፣ ሎተሪ

በ 1C ውስጥ ጠቃሚ ይሆናል ብዬ አላሰብኩም ነበር, ነገር ግን ለእናንተ ... ደንበኞቹ እንደ "ካፒታል ሰብስቡ" ማስተዋወቂያ ለመያዝ ወሰኑ, እርስዎ ብቻ ቃላትን መሰብሰብ ያስፈልግዎታል, ማንም ትክክለኛውን ቃል ከደብዳቤዎቻቸው ውስጥ የሚሰበስብ ሁሉ. ያሸንፋል። በአጠቃላይ ስራው ቀላል ይመስላል-ፊደል አለ, አንድ የተወሰነ ቃል መሰብሰብ ያስፈልገዋል, ለምሳሌ "ኮኛክ", እርስዎ እንደሚመለከቱት 6 ፊደሎች አሉት.

ያስፈልግዎታል-ከየትኛውም የፊደል ሆሄያት የተወሰኑ የዘፈቀደ ባለ ስድስት-ፊደል ጥምረት ማመንጨት ፣ ቃሉ አሁንም ሊጨመርባቸው የሚችሉ የተወሰኑ አማራጮችን ይጨምሩ ፣ ለምሳሌ ፣ “nkkoya” - ቃሉ ተፈጠረ ፣ ግን "kavry" በግልጽ ተስማሚ አይደለም.

ተጨማሪ ሁኔታ፡ እነዚህ ሁሉ አማራጮች (ትክክል እና ያልሆኑ) መቁጠር አለባቸው ስለዚህ "የሽልማት" ካርድ ሲቀበሉ ቁጥሩን (አንድ እንደነበረ) ማረጋገጥ ይችላሉ.

የሚመስለው, 1C ከእሱ ጋር ምን ግንኙነት አለው? ስለዚህ ለእነዚህ ካርዶች እና ሽልማቶች የሂሳብ አያያዝን በሂሳብ መርሃ ግብር ውስጥ መጨመር ይፈልጋሉ, እና በተመሳሳይ ጊዜ የዘፈቀደ ጥምረት ለመፍጠር ጠይቀዋል (በደንብ, በእጅ ለመጻፍ አይደለም).
ለእያንዳንዱ ማስተዋወቂያ, ጥምረት አንድ ጊዜ ይፈጠራል, ከዚያም ካርዶች በእነሱ ላይ ተመስርተው ይሠራሉ, ማለትም. በሚቀጥለው ጊዜ ቃሉ የተለየ ይሆናል, ወዘተ.

በአጠቃላይ, ስራው ወደሚከተለው ይደርሳል.
1. በዘፈቀደ ቁጥሮች ይፍጠሩ፣ በተለይም በትልቅ ስርጭት።
2. ቁጥሩን በመጠቀም, የፊደሎችን ጥምር ያሰሉ (ማለትም, ሊሆኑ በሚችሉ ጥምሮች እና ቁጥራቸው መካከል አንዳንድ ደብዳቤዎችን ያግኙ).
3. ከቀዳሚው ጋር ተቃራኒ ነጥብ - ጥምር ቁጥርን በቃላት ያረጋግጡ.

መፍትሄ፡-
1. ምክንያቱም ጄነሬተር ከ avb እና NS ትንሽ የዘፈቀደ ቁጥሮችን ሰጠ ፣ ትንሽ የተለየ ስልተ ቀመር መጠቀም ነበረብኝ።

የዘፈቀደ ተግባር()
ባዶ እሴት (ራንድ ዘር) = 1 ከሆነ
randSeed = _getperformancecounter ();
endif;

RandSeed=(a*randSeed+c)%m;
ራንድ ዘር መመለስ;
መጨረሻ ተግባር

እዚህ፡
ሀ=1664525; c=1013904223; m=4294967296;
የመጨረሻው ተለዋዋጭ ከ 2 እስከ 32 ኛ ሃይል ነው, የተቀሩት ሁለቱ ለእንደዚህ ዓይነቶቹ ዓላማዎች የሚመከሩት ጥምርታዎች ናቸው

ከፍተኛው የ2^32 እሴት ገደብ በከፍተኛው የጥምረቶች ብዛት ላይ ተመርጧል (ለተከረከመ ፊደላት እያንዳንዳቸው 28 ፊደሎች እና 7 ቃላት ፣ በእውነተኛው ችግር ውስጥ በትክክል 7 የሚሆኑት ስላሉት ፣ አጠቃላይ የጥምረቶች ብዛት 28 ይሆናል። ^ 7, ስለዚህ የተመረጠው ገደብ በግምት መካከል ባለው ክፍተት መካከል ነው, ይህም ለ 20-30 ሺህ አማራጮች ናሙና በቂ ነው)

እንዲሁም አንድ ተጨማሪ ረዳት ተግባር እንፈልጋለን - ወደ አወንታዊ የኢንቲጀር ኃይል ማሳደግ።

የተግባር ዲግሪ(እሴት ሀ፣ እሴት ለ፣ ሬስ=1)
b>0 ከሆነ ከዚያ
Res=Res*a;
b=b-1;
ዲግሪ (a,b,Res);
መመለሻ;
አለበለዚያ
መመለሻ;
መጨረሻ ከሆነ;
መጨረሻ ተግባር

እዚህ: ሀ - የዲግሪው መሠረት, b - ገላጭ, ሬስ - ውጤቱ

2. በቅደም ተከተል ጥምረት መካከል ያለውን ግንኙነት መለየት በሚያስደንቅ ሁኔታ ቀላል ሆነ።

ብዙ አካላትን በቅደም ተከተል ካዘጋጀሁ ፣ የምልክቶችን አቀማመጥ ከቁጥር ስርዓቱ ጋር ተመሳሳይነት ገለጽኩ ፣ አስርዮሽ ብቻ አይደለም ፣ ግን በዚህ ሁኔታ “ሄክሳዴሲማል” (በውጤቱ “ቃል” የቁምፊዎች ብዛት)።
ስለዚህም ጥምርን በቁጥር ለማስላት ቁጥሩን ወደዚህ የቁጥር ስርዓት መቀየር አስፈላጊ ነበር።

ለቁጥር ስርዓታችን, መሰረቱ የስድስት ኃይሎች ይሆናል, ማለትም. በግራ በኩል የመጀመሪያውን አሃዝ ለማግኘት የኛን ውህድ ቁጥር በ 6 ወደ 5 ኛ ሃይል ከዚያም የቀረውን ክፍል በ 6 ወደ 4 ኛ ኃይል, ወዘተ መከፋፈል ያስፈልግዎታል.

ስለዚህም በፊደሎቻችን ውስጥ ያሉት የፊደሎች ተከታታይ ቁጥሮች የሆኑትን የስድስት ቁጥሮች ስብስብ እናገኛለን።

የተገኘው ኮድ፡-

ተግባር GetCharacters(Pos,TexCharacter=1,SymStr=")
TekSymv Divisor=Degree(የጠንካራ ርዝመት(ደብዳቤ)፣k-TekSymv ከሆነ);
TechOst=Pos% Divide;
SimStr=ሕብረቁምፊ(SimStr)+Av(ደብዳቤዎች፣ኢንቲጀር(Pos/Divisor+?(TekOst>0,1,0))),1);
GetSymbols(TekOst፣TekSymv+1፣SymStr);
SimStr መመለስ;
አለበለዚያ
SimStr=SimStr+አማካኝ(ፊደሎች፣(?(Pos=0፣StrLength(ደብዳቤዎች)፣ፖስ))),1);
SimStr መመለስ;
መጨረሻ ከሆነ;
መጨረሻ ተግባር

እዚህ፡
ፖስ - ጥምር ቁጥር (ሐሰተኛ ቁጥር)
TechSym - የአሁኑ ምልክት እየተሰራ ነው።
SimStr - የቁምፊዎች ሕብረቁምፊ ውጤት
ፊደሎች = በመደበኛ ቅደም ተከተል ("abv...yuya") ውስጥ የፊደሎችን ፊደላት የያዘ ሕብረቁምፊ
k - በፍለጋ ቃሉ ውስጥ የቁምፊዎች ብዛት (በዚህ ሁኔታ = 6)

3. የተገላቢጦሽ ለውጥ እንዲሁ ቀላል ነው፡-

የተግባር Get ጥምር(ቃል፣TexCharacter=0፣Pos=0)
NomSymv=አግኝ(ደብዳቤዎች፣ኤም(ቃል፣k-TekSymv፣1));
TechCym>0 ከሆነ ከዚያ
TechCym Pos=Pos+(NomSym-1)*ዲግሪ(የጠንካራ ርዝመት(ደብዳቤዎች)፣ቴክሲም) ከሆነ፤
አለበለዚያ
ፖስታ መመለስ;
መጨረሻ ከሆነ;
አለበለዚያ
Pos=?(NomCym=StrLength(ደብዳቤ)፣0፣NomSymv);
GetCombination(ቃል፣ ቴክ ካራክተር+1፣ ፖስ);
ፖስታ መመለስ;
መጨረሻ ከሆነ;
መጨረሻ ተግባር

እዚህ፡
ቃል የምንፈልጋቸው ቁጥራቸው የቁምፊዎች ጥምረት ነው።
TekSymv - አሁን ያለው ምልክት በሂደት ላይ ያለ (በዋናነት የአስራስድስትዮሽ “ቁጥር” አሃዝ)
Pos - የሚፈለገው ጥምር ቁጥር

************************

ቅልቅል N ቁጥሮች፡-

ለ a=1 ወደ N ዑደት
ድርድር[a]=a;
የዑደት መጨረሻ;
ለ a=1 እስከ N-1 ዑደት
Sl=ጉዳይ(a፣N)፤// ኢንቲጀር የዘፈቀደ ቁጥር በጊዜ ክፍተት [a..N]
K=ድርድር[a];
ድርድር[a]=ድርድር[Sl];
አደራደር[Sl]=K;
የመጨረሻ ዑደት;

//********************************************************************************
************************

Sc = CreateObject ("MSScriptControl.ScriptControl");
Sc.language = "VBscript";
sc.executeStatement ("ዘፈቀደ");
እዚህ ይሆናል = Sc.eval ("rnd");

ቁጥሮችን በዘፈቀደ ከ1 እስከ 100 እንዴት ማድረግ እችላለሁ?

ራንድ=_GetPerformanceCounter()%(100+1);

ይህ ምርጥ ይመስላል

//********************************************************************************
************************

በ 8.0 ውስጥ የዘፈቀደ ቁጥሮችን ለመፍጠር አብሮ የተሰራውን GUID ጄኔሬተር መጠቀም ይችላሉ።
የቀላል ተግባር ምሳሌ ይኸውና፡-

// ለኢንቲጀር ብቻ
ተግባር GetRandomNumber(ደቂቃ፣ ከፍተኛ)

// ከ Randomize ይልቅ
ለ n = 1 እስከ 100 ዑደት
ልዩ = አዲስ ልዩ መለያ;
የመጨረሻ ዑደት;

// GUID ፍጠር
ልዩ = AbbrLP(አዲስ ልዩ መለያ);

// ቁጥሮችን ብቻ ያስቀምጡ
ልዩ = StrReplace (ልዩ "-""");
ልዩ = StrReplace (ልዩ "a""");
ልዩ = StrReplace(ልዩ "b""");
ልዩ = StrReplace(ልዩ፣ሐ""");
ልዩ = StrReplace (ልዩ "d","");
ልዩ = StrReplace(ልዩ "e""");
ልዩ = StrReplace (ልዩ "f","");

// መለያው ተመሳሳይ የዜሮዎች + 1 ቁጥር ሊኖረው ይገባል።
መለያ = 10;
ለ n = 2 በ (የጥንካሬ ርዝመት(StrReplace(ልዩ፣ገጸ-ባህሪያት.NPP,"))) ምልልስ
አካታች = መለያ * 10;
የመጨረሻ ዑደት;

ጉዳይ = ቁጥር (ልዩ) / መለያ; // እዚህ ክፍልፋይ የዘፈቀደ ቁጥር ከ 0 ወደ 1 እናገኛለን

// ከተጠቀሰው የጊዜ ክፍተት ወደ የዘፈቀደ ቁጥር ይለውጡት ፣ ክብ ወደ ቅርብ ኢንቲጀር
NumberOfInterval = ደቂቃ (ማክስ(አብ (ሚን + (ማክስ-ሚን)*ራንድ)፣ሚኒ)፣ማክስ);

ቁጥርFromInterval ይመለሱ;

መጨረሻ ተግባር

ከ [ሊንኩን ለማየት መመዝገብ አለብዎት] የተወሰደ

//********************************************************************************
************************

ፒ.ኤስ. የዘፈቀደ ቁጥር ጄኔሬተር እየፈለግኩ ነው ይህን ጽሁፍ ያገኘሁት። ስለዚህ ለራሴ ምርጫውን መርጫለሁ
ራንድ=_GetPerformanceCounter()%(100+1);

ቁልፍ ቃላት፡ ጀነሬተር፣ የዘፈቀደ፣ ቁጥሮች፣ ቁጥር፣ አልጎሪዝም፣ የዘፈቀደ፣ የዘፈቀደ፣ ስርጭት፣ ዩኒፎርም፣ ሎተሪ

በ 1C ውስጥ ጠቃሚ ይሆናል ብዬ አላሰብኩም ነበር ፣ ግን እዚህ እርስዎ ነዎት ... ደንበኞቹ እንደ “ካፕ ሰብስቡ” ማስተዋወቂያ ለመያዝ ወሰኑ ፣ እርስዎ ብቻ ቃላትን መሰብሰብ ያስፈልግዎታል ፣ ማንም ትክክለኛውን ቃል ከነሱ ስብስብ ውስጥ የሚሰበስብ ሁሉ ። ደብዳቤዎች ያሸንፋሉ. በአጠቃላይ ስራው ቀላል ይመስላል-ፊደል አለ, አንድ የተወሰነ ቃል መሰብሰብ ያስፈልገዋል, ለምሳሌ "ኮኛክ", እርስዎ እንደሚመለከቱት 6 ፊደሎች አሉት.

መፍትሄ፡-
1. ምክንያቱም ጄነሬተር ከ avb እና NS ትንሽ የዘፈቀደ ቁጥሮችን ሰጠ ፣ ትንሽ የተለየ ስልተ ቀመር መጠቀም ነበረብኝ።

ተግባር Random () ባዶ እሴት (randSeed) = 1 ከሆነ randSeed = _getperformancecounter (); endif; randSeed=(a*randSeed+c)%m; ራንድ ዘር መመለስ; መጨረሻ ተግባር

እንዲሁም አንድ ተጨማሪ ረዳት ተግባር እንፈልጋለን - ወደ አወንታዊ የኢንቲጀር ኃይል ማሳደግ።

የተግባር ዲግሪ (እሴት a, እሴት b, Res=1) b>0 ከሆነ ከዚያ Res=Res*a; b=b-1; ዲግሪ (a,b,Res); መመለሻ; ያለበለዚያ መልሶ መመለስ; መጨረሻ ከሆነ; መጨረሻ ተግባር

እዚህ: ሀ - የዲግሪው መሠረት, b - ገላጭ, ሬስ - ውጤቱ

2. በቅደም ተከተል ጥምረት መካከል ያለውን ግንኙነት መለየት በሚያስደንቅ ሁኔታ ቀላል ሆነ።

ስለዚህም በፊደሎቻችን ውስጥ ያሉት የፊደሎች ተከታታይ ቁጥሮች የሆኑትን የስድስት ቁጥሮች ስብስብ እናገኛለን።

የተገኘው ኮድ፡-

ተግባር GetCharacters(Pos,TechChar=1,SymStr="") TechChar ከሆነ<к Тогда Делитель=Степень(СтрДлина(Буквы),к-ТекСимв); ТекОст=Поз%Делитель; СимСтр=Строка(СимСтр)+Сред(Буквы,Цел(Поз/Делитель+?(ТекОст>0,1,0)),1); GetSymbols(TekOst፣TekSymv+1፣SymStr); SimStr መመለስ; ያለበለዚያ SimStr=SimStr+Average(ደብዳቤዎች፣(?(Pos=0፣StrLength(ደብዳቤዎች)፣ፖስ))፣1 ); SimStr መመለስ; መጨረሻ ከሆነ; መጨረሻ ተግባር

3. የተገላቢጦሽ ለውጥ እንዲሁ ቀላል ነው፡-

ተግባር GetCombination (ቃል, TechCharacter=0, ፖስታ = 0) NomCharacter = አግኝ (ደብዳቤዎች, መካከለኛ (ቃል, ወደ-TechCharacter, 1)); TechCym>0 ከሆነ TechSym ከሆነ<к Тогда Поз=Поз+(НомСимв-1 )*Степень(СтрДлина(Буквы),ТекСимв); ПолучитьКомбинацию(Слово,ТекСимв+1 ,Поз); Иначе Возврат Поз; КонецЕсли; Иначе Поз=?(НомСимв=СтрДлина(Буквы),0 ,НомСимв); ПолучитьКомбинацию(Слово,ТекСимв+1 ,Поз); Возврат Поз; КонецЕсли; КонецФункции

ቅልቅል N ቁጥሮች፡-

ለ a=1 በN loop array[a]=a; የዑደት መጨረሻ; ለ a=1 እስከ N-1 ዑደት Cl=case(a,N); // ኢንቲጀር የዘፈቀደ ቁጥር በክፍተቱ ውስጥ [a..N] K=ድርድር[a]; ድርድር[a]=ድርድር[Sl]; አደራደር[Sl]=K; የመጨረሻ ዑደት;

Sc = CreateObject ("MSScriptControl.ScriptControl"); Sc.language = "VBscript"; sc.executeStatement ("ዘፈቀደ"); እዚህ ይሆናል = Sc.eval ("rnd");

ቁጥሮችን በዘፈቀደ ከ1 እስከ 100 እንዴት ማድረግ እችላለሁ?

ራንድ=_GetPerformanceCounter()%(100 +1);
ይህ ምርጥ ይመስላል

የቤተ መፃህፍት ምንጣፍ. የ sl. ጄነሬተር ባለበት ተግባራት. ቁጥሮች፡-
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=92&lid=2688

በ 8.0 ውስጥ የዘፈቀደ ቁጥሮችን ለመፍጠር አብሮ የተሰራውን GUID ጄኔሬተር መጠቀም ይችላሉ።
የቀላል ተግባር ምሳሌ ይኸውና፡-

// ለኢንቲጀር ብቻተግባር GetRandomNumber(ደቂቃ፣ማክስ) // ከ Randomize ለ n = 1 በ 100 ሳይክል ልዩ = አዲስ ልዩ መለያ; የመጨረሻ ዑደት; // GUID ልዩ = AbbrLP (አዲስ ልዩ መለያ) መፍጠር; // ቁጥሮችን ብቻ ያስቀምጡልዩ = StrReplace (ልዩ,"- ",""); ልዩ = StrReplace (ልዩ, a ",""); ልዩ = StrReplace( ልዩ፣ b ",""); ልዩ = StrReplace(ልዩ፣c ",""); ልዩ = StrReplace(ልዩ፣d ",""); ልዩ = StrReplace (ልዩ, e ",""); ልዩ = StrReplace(ልዩ፣f ",""); // መለያው ተመሳሳይ የዜሮዎች + 1 ቁጥር ሊኖረው ይገባል።መለያ = 10; ለ n = 2 በ (StrLength (StrReplace (ልዩ, ቁምፊዎች.NPP,»))) ዑደት መለያ = መለያ * 10; የመጨረሻ ዑደት; ጉዳይ = ቁጥር (ልዩ) / መለያ; // እዚህ ክፍልፋይ የዘፈቀደ ቁጥር ከ 0 ወደ 1 እናገኛለን // ከተጠቀሰው የጊዜ ክፍተት ወደ የዘፈቀደ ቁጥር ይለውጡት ፣ ክብ ወደ ቅርብ ኢንቲጀር NumberOfInterval = ደቂቃ (ማክስ(አብ (ሚን + (ማክስ-ሚን)*ራንድ)፣ሚኒ)፣ማክስ); ቁጥርFromInterval ይመለሱ; መጨረሻ ተግባር

ሌላ የስርዓት አማራጭ:
Rnd = CreateObject ("System.Random"); ሪፖርት (Rnd.ቀጣይ());

ጽሑፉን የጀመርኩት በዚህ አጋኖ ብቻ አይደለም። ተከሰተ፣ ፕሮግራመር በጦር ጦሩ ውስጥ በዘፈቀደ ኢንቲጀር በተወሰነ የጊዜ ክፍተት እንዲያገኝ የሚያስችል ምቹ መሳሪያ አለው። መደበኛ ተግባራት በሌሎች የፕሮግራም አወጣጥ ቋንቋዎች ከ 0 እስከ 1 ባለው ክልል ውስጥ ክፍልፋይ ቁጥር ፈጥረዋል ። ይህ ቁጥር ለመጠቀም በጣም ምቹ አይደለም ፣ በተወሰነ ክልል ውስጥ የዘፈቀደ ቅደም ተከተል ለማግኘት የበለጠ ጠንክሮ መሥራት አለብዎት ፣ ለምሳሌ ፣ 1 ለ 5

ምቹ የሆነ መሳሪያ መፈተሽ ያስፈልጋል፣ ብዙ ጊዜ RNGs በጣም ከፍተኛ ጥራት የላቸውም እና በተጨማሪም በደንብ ያልተቀላቀሉ የውሸት ቅደም ተከተሎችን ለማስወገድ የተፈጠሩትን ቁጥሮች በዘፈቀደ ለመጨመር ሂሳብን መለማመድ አለቦት። ብዙ ጊዜ የዘፈቀደ ቁጥሮችን በምስጢር፣ በፋይናንሺያል ሀብቶች፣ በመዝናኛ፣ በሞዴሊንግ፣ በወሳኝ አውቶሜትድ ቁጥጥር ስርዓቶች መሞከር፣ የሙከራ ፕሮግራሞችን እናምናለን፣ ስለዚህ ከዋጋ ክፍተቶች እስከ ዲግሪው ድረስ የተለያዩ የተገለጹ ባህሪያትን የያዘ ልዩ ተከታታይ ቅደም ተከተል መያዝ በጣም አስፈላጊ ነው። የተከታታይ ቁጥሮች ድብልቅ.

ያልተሳካ የዘፈቀደ ቁጥር ማመንጨት ምሳሌ ልስጣችሁ። እ.ኤ.አ. በ 1993 ፣ ቀለም ያልሆነ ቪጂኤ ማሳያ 640x480 ጥራት ጥሩ ተደርጎ ሲወሰድ እና የፕሮግራም አውጪዎች አይኖች ብዙ ደክሟቸው ነበር ፣ ፓራዶክስ ዲቢኤምኤስ በሰፊው ተስፋፍቶ ነበር። ከቦርላንድ ኢንተርናሽናል የመጡ ስግብግብ ሰዎች ተጨማሪ ገንዘብ ለማግኘት ወሰኑ እና ለኔትወርክ መዳረሻ 10 አሃዞችን የያዘ ቁልፍ ፈለጉ። ብዙ ቁልፎች ባስገቡ ቁጥር ብዙ ተጠቃሚዎች በአንድ ጊዜ ከመረጃ ቋቱ ጋር መገናኘት ይችላሉ።

አሁን ስለ ስኬቶቼ መኩራራት እጀምራለሁ :). በተለያየ መንገድ፣ 3 ቁልፎች ወደ እኔ መጡ እና ቅደም ተከተላቸው የውሸት-የዘፈቀደ እና በደንብ ያልተደባለቀ እንደሆነ ገባኝ። ያለ ምንም ቴክኖሎጂ ፣ ውስብስብ ስሌቶች እና ያለ ካልኩሌተር እንኳን ፣ ከእነዚህ ቁልፎች ውስጥ ማንኛውንም ቁጥር ለማንሳት ችያለሁ። እርግጥ ነው, የቦርላንድ ኩባንያ ትልቅ ኪሳራ አላደረሰም, ነገር ግን ቀድሞውኑ በጥበቃ ላይ ስለተሰማሩ, በደንብ ያድርጉት, ወይም በማይረባ ስራ ጊዜ አያባክኑ. ከዚህ ሞራል አልወስድም, RNG አስፈላጊ ጉዳይ እንደሆነ የበለጠ ግልጽ እንደሚሆን ተስፋ አደርጋለሁ.

የውሸት-የዘፈቀደ ቅደም ተከተሎችን ለመከላከል, አንዳንድ ጊዜ አስፈላጊ ናቸው እላለሁ, ለምሳሌ, የደህንነት ቁልፉ ቀመርን በመጠቀም ሲሰላ እና ፕሮግራሙ በአካባቢያዊ ሁነታ ቁልፍን በተሳካ ሁኔታ ለማረጋገጥ ይወስናል. እ.ኤ.አ. በ 1993 በይነመረብ አልተስፋፋም እና ፕሮግራመሮች በሶስተኛ ወገን አገልጋዮች ላይ ሳይሞክሩ በቅደም ተከተል ስልተ ቀመሮችን ማምጣት ነበረባቸው። ግን በደንብ መቀላቀልዎን እርግጠኛ ይሁኑ. በዘመናዊ የኔትወርኮች ልማት የማረጋገጫ አገልጋዮችን በመጠቀም የሁለቱንም ፕሮግራሞች እና መሳሪያዎች ተከታታይ ቁጥር ማረጋገጥ ተችሏል። ይህ ስርዓት የሐሰት ምርቶችን የመቋቋም አቅም በከፍተኛ ሁኔታ ጨምሯል ፣ ግን ይህ ቢሆንም ፣ ያልተፈቀደ የሶፍትዌር አጠቃቀም አሁንም መከሰቱ ምስጢር አይደለም።

መደምደሚያው ይህ ነው-መቆለፊያዎች እና የሆድ ድርቀት በቅን ሰዎች ተጭነዋል.

በ 1C መድረክ ውስጥ ያለው የነገሩ አሠራር እጅግ በጣም ቀላል ነው, ምንም እንኳን አንዳንድ ልዩነቶች ቢኖሩም.

RNG = NewRandomNumberGenerator (መጀመር); // እዚህ የነሲብ ቁጥር ጄነሬተርን አሠራር መቀየር ይችላሉ, የቁጥሩን መጀመሪያ መቀየር የተለያዩ ውጤቶችን ይሰጣል RNG.RandomNumber (1, SettingsOption) ይመለሱ;

መነሳሳትን ካልገለጹ, ቅደም ተከተሎቹ በዘፈቀደ ይፈጠራሉ, እራሳቸውን ያስጀምራሉ. የተሰጠው የመነሻ ቁጥር ሊገመት የሚችል ቅደም ተከተል ይመለሳል, አንዳንድ ጊዜ አስፈላጊ እና ጠቃሚ ነው. እና በእያንዳንዱ ጊዜ የተለየ ቁጥር ከገለጹ, የቁጥሮች ቅደም ተከተል በጣም ጥሩ ድብልቅ ያገኛሉ.

በ 1C ውስጥ የዘፈቀደ ቁጥር ጄኔሬተር ሥራን ለማጥናት ሁለት ሕክምናዎችን ፈጠርኩ እና አንድ በጨዋታ መልክ የበለጠ አስደሳች ለማድረግ ፣ ግን ጨዋታው በኋላ ፣ ንግድ መጀመሪያ።

ከ0 እስከ 10000 ባለው ክልል ውስጥ 500 የዘፈቀደ ቁጥሮች ተፈጥረዋል፣ ጄኔሬተሩ ያለማቋረጥ በCurrentUniversalDateInMilliseconds() ተግባር ተጀምሯል። ስዕሉ ጥሩ የእሴቶችን ስርጭት ያሳያል። የጌጥ ጥለት። በ Y ዘንግ ላይ የቁጥሩ ዋጋ ነው, በ X ዘንግ ላይ የድግግሞሽ ቁጥር ነው.

የነጥቦቹ አቀማመጥ በጣም ትንሽ ነው, እርስ በርስ አይጣበቁም ማለት ይቻላል, በጣም ጥሩ ነው, ይህም ማለት የተፈጠሩት ቁጥሮች በጣም የተለያዩ ናቸው.

ሰው ሰራሽ በሆነ መንገድ የዲያግራሙን መጥፎ ስሪት እንፍጠር፡-

በመልካም ትውልድ ይህ መሆን የለበትም።

የዘፈቀደ ቁጥር አመንጪ ቅንጅቶች በጣም አስፈላጊ ነጥብ ናቸው። ጥቂቶቹ ናቸው, ግን ሁሉም ነገር በእነሱ ላይ የተመሰረተ ነው.

በዚህ ቅንብር ከ 0 እስከ 10000 ባለው ክልል ውስጥ የ 500 ቁጥሮች ቅደም ተከተል ተመስርቷል እና ጀነሬተር ያለማቋረጥ በአዲስ ቁጥር ይጀምራል።

በጄነሬተር የተሰጡ ተደጋጋሚ ቁጥሮች መኖራቸውን ለማየት ቀደም ሲል በእሴቶች ከፋፍለን የመነጨውን የእሴት ሰንጠረዥ እንይ።

የተደረደሩት ዝርዝር ፈጣን የእይታ ፍተሻ ድግግሞሾች እንዳሉ አሳይቷል፣ ምንም እንኳን የመከሰት እድላቸው ዝቅተኛ ነው። ለትውልድ ሰፋ ያለ የቁጥሮች ብዛት ተወስኗል ፣ ግን በደረጃ 10 እና 30 ቁጥሮቹ ተደጋግመዋል።

እናጠቃልላለን፡ የዘፈቀደ ቁጥር ጀነሬተር ነገር ተደጋጋሚ ቁጥሮችን መፍጠር ይችላል።

ይህ አንዳንድ ጊዜ ተቀባይነት የለውም. ለምሳሌ፣ አንድ የተወሰነ ሰነድ ማን እንደሚከፍት ለተጠቃሚው ለማሳወቅ የዘፈቀደ ሰነድ ቁጥር እንፈጥራለን። በዚህ ሁኔታ, ድግግሞሽ ተቀባይነት የለውም, አለበለዚያ, ሲደጋገሙ, የትኛው ሰነድ እንደሚከፈት ግልጽ አይሆንም.

የዘፈቀደ ቁጥር ለምን ያስፈልጋል? ለጥገና ለተረከቡ መሳሪያዎች አጋሮቻችንን የሰነድ ቁጥሮች እንሰጣለን እንበል. ቀጣይነት ያለው ተከታታይ የቁጥር ቁጥሮች ማውጣት ይችላሉ, ነገር ግን ደንበኛው, አንድ ቁጥር ያለው, ቢያንስ ጎረቤቶቹን መመልከት ይችላል እና የቁጥር ክፍተቶችን ማወቅ ሁሉንም ሰነዶች ማየት ይችላል. በተሰጠው ምሳሌ, ይህ እንደዚህ አይነት ሚስጥር አይደለም, ነገር ግን አንዳንድ ጊዜ ከሌሎች ሰነዶች ሚስጥራዊ መረጃን መጠበቅ አስፈላጊ ነው.

በትላልቅ የትውልዶች ብዛት እሴቶች ፣ ክስተቶችን የመድገም እድሉ ይቀንሳል ፣ ግን አንድ ክስተት ሊከሰት ከቻለ በእርግጥ ይከሰታል።

መፍትሄው የተፈጠረውን ቁጥር ለልዩነት ማረጋገጥ ሊሆን ይችላል ፣ ግን በጣም ረጅም ቅደም ተከተል ይህ ብዙ ጊዜ ይወስዳል። ስለ ውስብስብ ድብልቅ ማሰብ አለብን, ነገር ግን ይህ ስራውን የበለጠ አስደሳች ያደርገዋል;).

በገበታ ውስጥ እሴቶችን በሚያሳዩበት ጊዜ ማቀናበሪያው 1000 እሴቶችን ከጨመርኩ በኋላ በኮምፒውተሬ ላይ በሚያስደንቅ ሁኔታ ፍጥነት መቀነስ ይጀምራል ፣ ስለሆነም በቅንብሮች ውስጥ “ገበታ አትፍጠር” የሚል አመልካች ሳጥን አለ። ሲጫኑ ረጅም ቅደም ተከተሎችን በሚፈጥሩበት ጊዜ የሥራው ፍጥነት በከፍተኛ ሁኔታ ይጨምራል, ስለዚህ በሚመረመሩበት ጊዜ, የተፈጠሩትን ቁጥሮች ሲያዘጋጁ ይጠንቀቁ.

ጀነሬተሩ የተወሰነ የመነሻ ዋጋ ሊሰጠው ይችላል, ከዚያ ምንም ያህል ጊዜ ቢጫኑ ውጤቱ አንድ አይነት ይሆናል. የማስኬጃ መስክ "RNG ማስጀመሪያ ቁጥር" ወደ 0 ሲዋቀር፣ የውሸት-የዘፈቀደ ጅምር የሚከሰተው ተከታታይ ቁጥሮችን ሲያመነጭ ነው።

የጄነሬተሩ ፍጥነት ጥሩ ነው, ለምሳሌ, ከ 0.5 ሰከንድ ባነሰ ጊዜ ውስጥ 100,000 ቁጥሮች ተፈጥረዋል.

የጨዋታውን ሮክ፣ ወረቀት፣ መቀስ ምሳሌ በመጠቀም RNGን በትንሽ የቁጥር ክልል የመጠቀም ምሳሌ አሳይሻለሁ።

ደንቦቹ ቀላል ናቸው-ሁለት ተጫዋቾች የተጠቆሙትን እቃዎች በምልክት ያሳያሉ. በአሁኑ ጊዜ ጠንካራ ሰው ያለው ሁሉ ያሸንፋል።

ሮክ መቀሶችን አሸንፏል።

መቀሶች ወረቀት ይመታል.

ወረቀት ድንጋይ አሸንፏል።

በዚህ አማራጭ, ሁሉም ነገር እኩል ነው እና የማሸነፍ እድሉ ተመሳሳይ ነው.

99 ጨዋታዎችን ከተጫወትኩ በኋላ በእያንዳንዱ ምስል ላይ ተመሳሳይ የጠቅታ ብዛት 33 ጊዜ አድርጌያለሁ ይህ ከታች በቀኝ በኩል ባለው ስእል ላይ ይታያል። ኮምፒዩተሩ ከእኔ በበለጠ ብዙ ጊዜ አሸንፏል፣ ይህም ትንሽ ተስፋ አስቆራጭ ነበር። ከታች በግራ ገበታ ላይ እንደሚታየው ኮምፒዩተሩ ብዙ ጊዜ ወረቀት ይጠቀም ነበር። በመሃል ላይ ያለው ግራፍ አሸናፊ እንዳልነበርኩ ያሳያል። የኮምፒዩተር አሸናፊዎች ቀይ ግራፍ ከአረንጓዴው (የእኔ አሸናፊዎች) ከፍ ያለ ነው።

ዕድልዎን ይሞክሩ! ቁርጥራጮቹ የመውደቅ ተመሳሳይ ዕድል ቢኖራቸውም ውጤቱ ሁልጊዜ የተለየ ነው.

የጨዋታ ስታቲስቲክስ በመሃል ላይ ፣ ከላይ በሮዝ የንጥረ ነገሮች ቡድን ውስጥ ይታያል።

አዝራሩን አንዴ በመዳፊት ጠቅ በማድረግ ተፈላጊውን ምስል ለመምረጥ በቁልፍ ሰሌዳው ላይ ያሉትን ቁጥሮች መጠቀም ይችላሉ (ተጨማሪ አይደለም)። ቁልፎቹን በመጫን ውሂቡን በትንሹ በፍጥነት ማስገባት ይችላሉ ፣በተለይ ስታቲስቲክስን ለመሰብሰብ አእምሮ የሌላቸው ጨዋታዎችን መጫወት ከፈለጉ።

ጨዋታውን እናወሳስበው። ወደ ክላሲክ አሃዞች ጉድጓድ እንጨምር።

ሮክ መቀሶችን አሸንፏል።

መቀሶች ወረቀት ይመታል.

ወረቀት ሮክ እና ዌልን ያሸንፋል።

በደንብ ሮክ እና መቀስ ያሸንፋል።

በዚህ ልዩነት ውስጥ የቁራጮቹ እኩል ያልሆነ እሴት ይታያል እና በንድፈ ሀሳብ ፣ ወረቀት እና ደህናን በመምረጥ ለማሸነፍ ብዙ እድሎች አሉ ፣ ምክንያቱም በጦር መሣሪያዎቻቸው ውስጥ በሁለት ተጓዳኝ ክፍሎች ላይ ድል ስላለባቸው። በተግባር እንፈትሸው፡-

በጠንካራ ቁርጥራጮች ላይ ብቻ ጠቅ አድርጌ አሸንፌያለሁ። ጽንሰ-ሐሳቡ በተግባር ተረጋግጧል.

በደካማ ቁርጥራጮች ላይ ብቻ ጠቅ ማድረግም ውጤት አስገኝቷል, አጣሁ.

ይበልጥ ውስብስብ የሆነው የጨዋታው ስሪት የአምስተኛው ክፍል እሳት መግቢያ ነው።

ሮክ መቀስ ያሸንፋል እና በደንብ በወረቀት እና በእሳት ተሸንፏል።

መቀሶች ወረቀትን እና እሳት በሮክ እና ዌል ተሸንፈዋል።

ወረቀት ሮክን እና ዌልን በእሳት እና በመቀስ ተሸንፏል።

እሳቱን በደንብ ያሸንፋል እና መቀስ በሮክ እና ወረቀት ተሸንፏል።

እሳት ወረቀት አሸንፏል እና ሮክ Scissors እና በደንብ ተሸንፏል.

በዚህ ተለዋጭ ውስጥ፣ ቁርጥራጮቹ እኩል ናቸው፣ ነገር ግን ሁለት ክፍሎች ያሸንፋሉ እና ይሸነፋሉ፣ ይህ አንዳንድ ሽንገላዎችን ይጨምራል እና የመሳል እድሎችን ይቀንሳል።

ጠቅታዎቼ ምስቅልቅል ነበሩ እና ኮምፒዩተሩ እንደገና ደበደበኝ። በጨዋታው ወቅት ኮምፒዩተሩ ብዙ ጊዜ የሚጠቀመውን ክፍል ማየት ይችላሉ፡ በዚህ መረጃ መሰረት፡ በተዘበራረቀ ሁኔታ ለመጫወት መሞከር ይችላሉ ነገር ግን በአስተሳሰብ እና ምናልባትም የስኬት እድሎችን ይጨምራል።

የዘፈቀደ ቁጥር ጀነሬተርን ማዘጋጀት የራሱ ባህሪያት አሉት. "የተጠቃሚ ምላሽ አትጠቀም" የሚለው ባንዲራ ሲጸዳ በተጫዋቹ የተጫነው ቁልፍ ቁጥር RNG ን ሲያስጀምር ጥቅም ላይ ይውላል፣ ይህም ለትውልድ የዘፈቀደነትን ይጨምራል። ሰው በጣም ጥሩ የዘፈቀደ ቁጥሮች ጄነሬተር ነው ፣ ግን አሁንም አንጎል እንዲሁ የውሸት ቅደም ተከተል አለው። አንድ ሰው 100 ቁልፎችን እንዲጭን ካስገደዱት, ይህ አሰራር በንቃተ-ህሊና ሊከናወን ይችላል, በተቻለ መጠን ብዙ የተለያዩ ቁልፎችን በመጫን, ወይም በግዴለሽነት, አንድ ቁልፍ ብቻ በመጫን ሊከናወን ይችላል. ይህ ባንዲራ ሲዋቀር የኮምፒዩተር መቀያየር ብቻ ነው የሚሰራው።

ከአንድ ሰው የዘፈቀደ ቅደም ተከተል ሲቀበሉ ፣ ለምሳሌ ፣ የኤሌክትሮኒክ ፊርማ ቁልፍን ለመፍጠር ፣ የተጫኑትን ቁልፍ ብቻ ሳይሆን በፕሬስ መካከል ያለውን ልዩነት ግምት ውስጥ ማስገባት ይመከራል ። ይህ በጣም የዘፈቀደ መረጃ ነው, ምንም እንኳን ጥሩ ሙዚቀኛ ብዙ ጊዜ ተመሳሳይ ቅደም ተከተል ማመንጨት ይችላል.

የ"RNG ማስጀመሪያን አትጠቀም" የሚለው ባንዲራ የማስጀመሪያ ሁነታን ያበራል/ያጠፋል። የዘፈቀደ ቁጥር ጀነሬተር ነገርን ሲፈጥሩ ማስጀመሪያን ካልገለፁት ድብልቅ ቅደም ተከተል ይፈጠራል፡ እኔ እንደተረዳሁት የሆነ አይነት ጅምር ተካቷል ይህም ለእኔ በጣም ውጤታማ መስሎ ይታየኛል።

RNG = NewRandomNumberGenerator ();

እንዲሁም በሂደቱ ወቅት የራስዎን የመነሻ ቁጥር ማዘጋጀት ይችላሉ, ከዚያ ተመሳሳይ ቁጥር አስቀድሞ ሊፈጠር ይችላል.

አሸናፊዎችን ለማስላት ሂደትን በምጽፍበት ጊዜ ውጤቱን የመግለጽ ችግር አጋጥሞኛል ፣ በተለይም አምስት አሃዞች ላለው ጨዋታ። ነገሩን ካወቅሁ በኋላ ብዙ ቅርጾች ያሉት ብዙ አማራጮች ስላሉ ብዙ ፊደሎች እንደሚኖሩ ተገነዘብኩ። Combinatorics በሶስት አሃዞች ቢበዛ 9 አማራጮች፣ በአራት 16 አማራጮች እና በአምስት 25 አማራጮች እንዳሉን ይነግረናል። ስዕሎችን መጣል ፣ ይህ ተመሳሳይ አሃዝ ሲመረጥ ነው ፣ 19 ዓይነት ሁኔታዎችን መጻፍ እንዳለብኝ ተገነዘብኩ።

በደንብ የማይነበብ ኮድ ስለሚያስገኝ፣ እና ጥሩ መፍትሄ ነው ብዬ የማስበውን ነገር አገኘሁበት ብዬ አሰብኩ። በጠቅላላው 9 ሁኔታዎች.

ሪስ = ተጫዋች - ኮም; ከሆነ SettingsOption = 3 ከዚያም (Res = -1) ወይም (Res = 2) ከሆነ 1 መመለስ; // አሸነፈ አለበለዚያ 2 መመለስ; // ሽንፈት EndIf; ElseIfSettingsOption = 4 ከዚያም (Res = -1) ወይም (Res = 2) ወይም (Res = 3) ከሆነ 1 መመለስ; // አሸነፈ አለበለዚያ 2 መመለስ; // ሽንፈት EndIf; ElseIf Settings Option = 5 ከዚያም (Res = -1) ወይም (Res = 2) ወይም (Res = -3) OR (Res = 4) ከዚያም 1 መመለስ; // አሸነፈ አለበለዚያ 2 መመለስ; // ሽንፈት EndIf; መጨረሻ ከሆነ;

የታመቀ፣ ግልጽ፣ ለማርትዕ ቀላል።

እያንዳንዱ አሃዝ የራሱ ቁጥር እንዳለው አሰብኩ-1 - ድንጋይ, 2 - መቀስ, 3 - ወረቀት, 4 - ደህና, 5 - እሳት. በጨዋታው ምክንያት በቁራጮቹ ቁጥሮች መካከል ያለውን ልዩነት አስላለሁ, እና ይህ ልዩነት ማን አሸነፈ ለሚለው ጥያቄ ግልጽ መልስ ይሰጠኛል.

የሚተዳደር መተግበሪያ የዘፈቀደ ቅደም ተከተሎች ባህሪያትን ለማሰስ የሚያግዝ እና ውቅረትን ሳያካትት የተፃፈ ሂደት። በቀጭኑ ደንበኛ ላይ በመድረክ 8.3.10፣ 8.3.11 ተፈትኗል።

በዚህ ጽሑፍ የዘፈቀደ ቁጥር ቅደም ተከተሎችን የማመንጨትን አስፈላጊነት እና አሳሳቢነት ለማስተላለፍ ተስፋ አድርጌ ነበር።

21
// ተግባሩ በቀላሉ ለማንበብ የእሴቶችን ውክልና ያመነጫል። // የቁጥር ቅርጸት ምሳሌዎች ValueFormat = ቅርጸት (123456.789, "NRT=10; NRT=2"); //ValueFormat = "123,456.79"ValueFormat = ቅርጸት (123456.789, "HH=0; NHV=2"); //እሴት 16
የሙሉ ጽሑፍ ፍለጋ - በጥቅም ላይ በሚውል ውቅረት ውስጥ በማንኛውም ቦታ የሚገኝ የጽሑፍ መረጃ እንዲያገኙ ያስችልዎታል። በዚህ አጋጣሚ አስፈላጊውን መረጃ በጠቅላላው ውቅረት ውስጥ በአጠቃላይ ወይም በማጥበብ ... መፈለግ ይችላሉ. 8
"ነጥብ በጊዜ" ምናባዊ መስክ ነው, በመረጃ ቋቱ ውስጥ አልተከማቸም. በጊዜ ነጥብ የያዘ ነገር (ቀን እና ከሰነድ ጋር የሚያያዝ) በ 7.7 ውስጥ የሰነድ አቀማመጥ ጽንሰ-ሀሳብ ነበረ እና በ 8.x ነጥብ በጊዜ ማግኘት... 6
ለ 8.x FindByLinks (FindDataByRef) አገባብ፡ FindByLinks (የአገናኞች ዝርዝር) መለኪያዎች፡ የሚፈለጉ የአገናኞች ዝርዝር፡ ድርድር። አገናኞቻቸው መፈለግ ወደሚያስፈልጋቸው ነገሮች የሚወስዱ አገናኞች ዝርዝር ያለው ድርድር። ...