Отразить цифры зеркально

[vasya2019]

Привет. Нужно получить порядок цифр 012345432101234543210..n, с помощью какой либо формулы, подскажите кто знает?

[^D^ima]

ReverseString(Str: String)

[vasya2019]

не, не, это именно порядок цифр, то есть, на выходе нужно получить integer

[^D^ima]

IntToStr,StrToInt

Добавлено 07.02.19, 18:55
Только не забывай что даже int64 всего лишь до 9223372036854775807

[vasya2019]

тоже не то, мне нужна формула, которая будет гонять диапазон от 0 до 5 в порядке который я показал в первом посте, с математикой у меня плохо, так как я бухал, когда её надо было учить, поэтому и обращаюсь за формулой на форум

[^D^ima]

Цитата vasya2019 @ 07.02.19, 18:57

мне нужна формула, которая будет гонять диапазон от 0 до 5 в порядке который я показал в первом посте

Тебя не понять

For I:=5 DownTo 0 Do
  Brgin
  End;

Это что-ли?

[vasya2019]

например:

Caption := IntToStr(i and 3);
Inc(i);

если выполнить код несколько раз, то будет результат 0,1,2,3,0,1,2,3, итд., а мне надо 0,1,2,3,2,1,0...

[^D^ima]

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;

[Rouse_]

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.

[MIF]

Caption := IntToStr(Abs(i mod 10) - 5));
Inc(i);

[vasya2019]

благодарю вас господа за решение)