Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.21.34.0] |
|
Сообщ.
#1
,
|
|
|
Привет. Нужно получить порядок цифр 012345432101234543210..n, с помощью какой либо формулы, подскажите кто знает?
|
Сообщ.
#2
,
|
|
|
ReverseString(Str: String) |
Сообщ.
#3
,
|
|
|
не, не, это именно порядок цифр, то есть, на выходе нужно получить integer
|
Сообщ.
#4
,
|
|
|
IntToStr,StrToInt Добавлено Только не забывай что даже int64 всего лишь до 9223372036854775807 |
Сообщ.
#5
,
|
|
|
тоже не то, мне нужна формула, которая будет гонять диапазон от 0 до 5 в порядке который я показал в первом посте, с математикой у меня плохо, так как я бухал, когда её надо было учить, поэтому и обращаюсь за формулой на форум
|
Сообщ.
#6
,
|
|
|
Цитата vasya2019 @ мне нужна формула, которая будет гонять диапазон от 0 до 5 в порядке который я показал в первом посте Тебя не понять For I:=5 DownTo 0 Do Brgin End; Это что-ли? |
Сообщ.
#7
,
|
|
|
например:
Caption := IntToStr(i and 3); Inc(i); если выполнить код несколько раз, то будет результат 0,1,2,3,0,1,2,3, итд., а мне надо 0,1,2,3,2,1,0... |
Сообщ.
#8
,
|
|
|
Const MaxIncriment = 5; MaxCount = 20; Var I,Count:Integer; Down:Boolean; begin I:=0; Count:=0; Down:=False; repeat Inc(Count); if not Down then Inc(I) Else Dec(I); if (I>=MaxIncriment) or (I<=0) then Down:=not Down; memo2.Lines.Add(IntToStr(I)); until Count>=MaxCount; end; |
Сообщ.
#9
,
|
|
|
program Project1; {$APPTYPE CONSOLE} {$R *.res} function Foo(Peak, Counter: Integer): Integer; begin Counter := Counter mod (Peak shl 1); if Counter <= Peak then Result := Counter else Result := Peak - (Counter - Peak); end; var I: Integer; begin for I := 0 to 20 do Write(Foo(5, I)); Readln; end. |
Сообщ.
#10
,
|
|
|
Caption := IntToStr(Abs(i mod 10) - 5)); Inc(i); |
Сообщ.
#11
,
|
|
|
благодарю вас господа за решение)
|