7548142623
SetDecimalSeparator(',')
SetNumberFormat(DecimalSeparator := ',' и куча других параметров)
s.ToReal(nfi)
s.ToReals(nfi)
StrToReal(nfi)
StrToFloat(nfi)
FloatToStr(nfi)
var nfi := NumberFormat(DecimalSeparator := ',')
s.ToReal(DecimalSeparator := ',')
s.ToReals(DecimalSeparator := ',')
StrToReal(DecimalSeparator := ',')
119 lines
16 KiB
HTML
119 lines
16 KiB
HTML
<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="Cartesian">
|
|
<param name="Keyword" value="Iterate">
|
|
<param name="Keyword" value="PartitionPoints">
|
|
<param name="Keyword" value="Range">
|
|
<param name="Keyword" value="ReadSeqInteger">
|
|
<param name="Keyword" value="ReadSeqIntegerWhile">
|
|
<param name="Keyword" value="ReadSeqReal">
|
|
<param name="Keyword" value="ReadSeqRealWhile">
|
|
<param name="Keyword" value="ReadSeqString">
|
|
<param name="Keyword" value="ReadSeqStringWhile">
|
|
<param name="Keyword" value="Seq">
|
|
<param name="Keyword" value="SeqFill">
|
|
<param name="Keyword" value="SeqGen">
|
|
<param name="Keyword" value="SeqRandom">
|
|
<param name="Keyword" value="SeqRandomInteger">
|
|
<param name="Keyword" value="SeqRandomReal">
|
|
<param name="Keyword" value="SeqWhile">
|
|
<param name="Keyword" value="Zip"></object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
|
|
</HEAD><body><H1>Ïîäïðîãðàììû äëÿ ãåíåðàöèè ïîñëåäîâàòåëüíîñòåé</H1>
|
|
<table border=0 cellpadding=5><tr><td><code><b>function</b> Cartesian<T, T1, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; func: (T,T1)->TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé, ïðîåêòèðóÿ êàæäóþ ïàðó íà çíà÷åíèå</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; func: (T,T1,T2)->TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé, ïðîåêòèðóÿ êàæäóþ òðîéêó íà çíà÷åíèå</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2, T3, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; func: (T,T1,T2,T3)->TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé, ïðîåêòèðóÿ êàæäóþ ÷åòâ¸ðêó íà çíà÷åíèå</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2, T3, T4, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; e: <b>sequence </b> <b>of</b> T4; func: (T,T1,T2,T3,T4)->TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé, ïðîåêòèðóÿ êàæäóþ ïÿò¸ðêó íà çíà÷åíèå</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1): <b>sequence </b> <b>of</b> (T, T1);</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé â âèäå ïîñëåäîâàòåëüíîñòè ïàð</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2): <b>sequence </b> <b>of</b> (T, T1, T2);</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé â âèäå ïîñëåäîâàòåëüíîñòè òðîåê</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2, T3>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3): <b>sequence </b> <b>of</b> (T, T1, T2, T3);</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé â âèäå ïîñëåäîâàòåëüíîñòè ÷åòâ¸ðîê</td></tr>
|
|
<tr><td><code><b>function</b> Cartesian<T, T1, T2, T3, T4>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; e: <b>sequence </b> <b>of</b> T4): <b>sequence </b> <b>of</b> (T, T1, T2, T3, T4);</code>
|
|
<br> Âîçâðàùàåò äåêàðòîâî ïðîèçâåäåíèå ïîñëåäîâàòåëüíîñòåé â âèäå ïîñëåäîâàòåëüíîñòè ïÿò¸ðîê</td></tr>
|
|
<tr><td><code><b>function</b> Iterate<T>(first: T; next: T->T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò áåñêîíå÷íóþ ðåêóððåíòíóþ ïîñëåäîâàòåëüíîñòü ýëåìåíòîâ, çàäàâàåìóþ íà÷àëüíûì ýëåìåíòîì first è ôóíêöèåé next</td></tr>
|
|
<tr><td><code><b>function</b> PartitionPoints(a, b: real; n: integer): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ â òî÷êàõ ðàçáèåíèÿ îòðåçêà [a,b] íà n ðàâíûõ ÷àñòåé</td></tr>
|
|
<tr><td><code><b>function</b> Range(a, b: integer): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ îò a äî b</td></tr>
|
|
<tr><td><code><b>function</b> Range(a, b, step: integer): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ îò a äî b ñ øàãîì step</td></tr>
|
|
<tr><td><code><b>function</b> Range(a, b: BigInteger): <b>sequence </b> <b>of</b> BigInteger;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü äëèííûõ öåëûõ îò a äî b</td></tr>
|
|
<tr><td><code><b>function</b> Range(a, b, step: BigInteger): <b>sequence </b> <b>of</b> BigInteger;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü äëèííûõ öåëûõ îò a äî b ñ øàãîì step</td></tr>
|
|
<tr><td><code><b>function</b> Range(c1, c2: char): <b>sequence </b> <b>of</b> char;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ñèìâîëîâ îò c1 äî c2</td></tr>
|
|
<tr><td><code><b>function</b> Range(c1, c2: char; step: integer): <b>sequence </b> <b>of</b> char;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ñèìâîëîâ îò c1 äî c2 ñ øàãîì step</td></tr>
|
|
<tr><td><code><b>function</b> Range(a, b, step: real): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ îò a äî b ñ øàãîì step</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqInteger(n: integer): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n öåëûõ, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqInteger(prompt: string; n: integer): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n öåëûõ, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqIntegerWhile(cond: integer->boolean): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqIntegerWhile(prompt: string; cond: integer->boolean): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqReal(n: integer): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n âåùåñòâåííûõ, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqReal(prompt: string; n: integer): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n âåùåñòâåííûõ, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqRealWhile(cond: real->boolean): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqRealWhile(prompt: string; cond: real->boolean): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqString(n: integer): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n ñòðîê, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqString(prompt: string; n: integer): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n ñòðîê, ââåäåííûõ ñ êëàâèàòóðû</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqStringWhile(cond: string->boolean): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ñòðîê, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> ReadSeqStringWhile(prompt: string; cond: string->boolean): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âûâîäèò ïðèãëàøåíèå ê ââîäó è âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ñòðîê, ââîäèìûõ ñ êëàâèàòóðû ïîêà âûïîëíÿåòñÿ îïðåäåëåííîå óñëîâèå</td></tr>
|
|
<tr><td><code><b>function</b> Seq<T>(<b>params</b> a: <b>array</b> <b>of</b> T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü óêàçàííûõ ýëåìåíòîâ</td></tr>
|
|
<tr><td><code><b>function</b> SeqFill<T>(count: integer; x: T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç count ýëåìåíòîâ x</td></tr>
|
|
<tr><td><code><b>function</b> SeqGen<T>(count: integer; f: integer->T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç count ýëåìåíòîâ, çàïîëíåííûõ çíà÷åíèÿìè f(i)</td></tr>
|
|
<tr><td><code><b>function</b> SeqGen<T>(count: integer; f: integer->T; from: integer): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç count ýëåìåíòîâ, çàïîëíåííûõ çíà÷åíèÿìè f(i), íà÷èíàÿ ñ i=from</td></tr>
|
|
<tr><td><code><b>function</b> SeqGen<T>(count: integer; first: T; next: T->T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç count ýëåìåíòîâ, íà÷èíàþùóþñÿ ñ first, ñ ôóíêöèåé next ïåðåõîäà îò ïðåäûäóùåãî ê ñëåäóþùåìó</td></tr>
|
|
<tr><td><code><b>function</b> SeqGen<T>(count: integer; first, second: T; next: (T,T) ->T): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç count ýëåìåíòîâ, íà÷èíàþùóþñÿ ñ first è second,ñ ôóíêöèåé next ïåðåõîäà îò äâóõ ïðåäûäóùèõ ê ñëåäóþùåìó</td></tr>
|
|
<tr><td><code><b>function</b> SeqRandom(n: integer := 10; a: integer := 0; b: integer := 100): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n ñëó÷àéíûõ öåëûõ ýëåìåíòîâ</td></tr>
|
|
<tr><td><code><b>function</b> SeqRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): <b>sequence </b> <b>of</b> integer;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n ñëó÷àéíûõ öåëûõ ýëåìåíòîâ</td></tr>
|
|
<tr><td><code><b>function</b> SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10; digits: integer := 1): <b>sequence </b> <b>of</b> real;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èç n ñëó÷àéíûõ âåùåñòâåííûõ ýëåìåíòîâ</td></tr>
|
|
<tr><td><code><b>function</b> SeqWhile<T>(first: T; next: T->T; pred: T->boolean): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ýëåìåíòîâ ñ íà÷àëüíûì çíà÷åíèåì first,ôóíêöèåé next ïåðåõîäà îò ïðåäûäóùåãî ê ñëåäóþùåìó è óñëîâèåì pred ïðîäîëæåíèÿ ïîñëåäîâàòåëüíîñòè</td></tr>
|
|
<tr><td><code><b>function</b> SeqWhile<T>(first, second: T; next: (T,T) ->T; pred: T->boolean): <b>sequence </b> <b>of</b> T;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ýëåìåíòîâ, íà÷èíàþùóþñÿ ñ first è second,ñ ôóíêöèåé next ïåðåõîäà îò äâóõ ïðåäûäóùèõ ê ñëåäóþùåìó è óñëîâèåì pred ïðîäîëæåíèÿ ïîñëåäîâàòåëüíîñòè</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1): <b>sequence </b> <b>of</b> (T, T1);</code>
|
|
<br> Îáúåäèíÿåò äâå ïîñëåäîâàòåëüíîñòè â ïîñëåäîâàòåëüíîñòü äâóõýëåìåíòíûõ êîðòåæåé</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2): <b>sequence </b> <b>of</b> (T, T1, T2);</code>
|
|
<br> Îáúåäèíÿåò òðè ïîñëåäîâàòåëüíîñòè â ïîñëåäîâàòåëüíîñòü òðåõýëåìåíòíûõ êîðòåæåé</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2, T3>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3): <b>sequence </b> <b>of</b> (T, T1, T2, T3);</code>
|
|
<br> Îáúåäèíÿåò ÷åòûðå ïîñëåäîâàòåëüíîñòè â ïîñëåäîâàòåëüíîñòü ÷åòûðåõýëåìåíòíûõ êîðòåæåé</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2, T3, T4>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; e: <b>sequence </b> <b>of</b> T4): <b>sequence </b> <b>of</b> (T, T1, T2, T3, T4);</code>
|
|
<br> Îáúåäèíÿåò ïÿòü ïîñëåäîâàòåëüíîñòåé â ïîñëåäîâàòåëüíîñòü ïÿòèýëåìåíòíûõ êîðòåæåé</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; fun: (T,T1) -> TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Ïðèìåíÿåò óêàçàííóþ ôóíêöèþ ê ñîîòâåòñòâóþùèì ýëåìåíòàì êîðòåæåé, âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ðåçóëüòàòîâ</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; fun: (T,T1,T2) -> TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Ïðèìåíÿåò óêàçàííóþ ôóíêöèþ ê ñîîòâåòñòâóþùèì ýëåìåíòàì êîðòåæåé, âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ðåçóëüòàòîâ</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2, T3, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; fun: (T,T1,T2,T3) -> TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Ïðèìåíÿåò óêàçàííóþ ôóíêöèþ ê ñîîòâåòñòâóþùèì ýëåìåíòàì êîðòåæåé, âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ðåçóëüòàòîâ</td></tr>
|
|
<tr><td><code><b>function</b> Zip<T, T1, T2, T3, T4, TRes>(a: <b>sequence </b> <b>of</b> T; b: <b>sequence </b> <b>of</b> T1; c: <b>sequence </b> <b>of</b> T2; d: <b>sequence </b> <b>of</b> T3; e: <b>sequence </b> <b>of</b> T4; fun: (T,T1,T2,T3,T4) -> TRes): <b>sequence </b> <b>of</b> TRes;</code>
|
|
<br> Ïðèìåíÿåò óêàçàííóþ ôóíêöèþ ê ñîîòâåòñòâóþùèì ýëåìåíòàì êîðòåæåé, âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ðåçóëüòàòîâ</td></tr>
|
|
</table>
|
|
</body></HTML> |