Помогите с несколькими функциями

[Alexandr17-10]

1 функция
Я пишу функцию перевод числа в hex значения

function intToHex(decimal:integer):string;
var digit:byte; ch:char;
begin
    Result := '';
    if decimal = 0 then Result := '0';
    while decimal > 0 do begin
        digit := decimal mod 16;
            case digit of
              10: ch := 'A';
              11: ch := 'B';
              12: ch := 'C';
              13: ch := 'D';
              14: ch := 'E';
              15: ch := 'F'
			  else ch := chr(ord('0') + digit);
            end;
        Result := ch + Result;
        decimal := decimal div 16
    end;
end;
  
function GetHexFrom(a : Integer) : string;
var r,g,b : integer;
begin
  b := a div $10000;
  g := (a mod $10000) div $100;
  r := a mod $100;
  Result := intToHex(r)+intToHex(g)+intToHex(b)
end;

Но она не коректнопереводит цвет integer в код. Скажите как надо чтобы переводило цвет в шестнадцеричный код.

2 функция
Нужна функция которая сможет переводить RGB в Integer на паскале

3 функция

Как сделать функцию котороя будет сортировать числовой массив от большего к меньшему.

4 функция

Как сделать фунгкцию которая будет делать проверку все ли ячейки <> -1 если но она именно должна вот так проверять
Если все ячейки <> -1 то возвращает 1 значение
Если есть хоть одна ячейка которая <> -1 то возвращаем 2 значение
Если нумераиция массива не идет от меньшего к большему то возвращаем 3 значение.
Скажите пожалуйста как это сделать на паскале. Буду очень признателен.

[Афанасич]

чтож ты пишешь такую серьёзную программу, и даже незнаешь элементарных сортировок, пузырьком например?

[Alexandr17-10]

Я пишу скрипт для игры на движке паскаля. Хотя бы скажите как это сделать.

3 функция

Как сделать функцию котороя будет сортировать числовой массив от большего к меньшему.

4 функция

Как сделать фунгкцию которая будет делать проверку все ли ячейки <> -1 если но она именно должна вот так проверять
Если все ячейки <> -1 то возвращает 1 значение
Если есть хоть одна ячейка которая <> -1 то возвращаем 2 значение
Если нумерация массива не идет от меньшего к большему то возвращаем 3 значение.

С остальным. Пожалуй это не к чему в игре.
Буду очень благодарен.

[BDA]

Самая простая сортировка (для меня):

for i := 1 to N - 1 do
  for j := i + 1 to N do
    if a[i] > a[j] then
    begin
      tmp := a[i];
      a[i] := a[j];
      a[j] := tmp;
    end;

Понятное дело, что эта сортировка не самая эффективная на больших массивах.
1 функция корректно работает в Дельфи. Проверьте размер типа integer, который используется в движке.

[Alexandr17-10]

Сообщение от BDA

Самая простая сортировка (для меня):

for i := 1 to N - 1 do
  for j := i + 1 to N do
    if a[i] > a[j] then
    begin
      tmp := a[i];
      a[i] := a[j];
      a[j] := tmp;
    end;

Понятное дело, что эта сортировка не самая эффективная на больших массивах.
1 функция корректно работает в Дельфи. Проверьте размер типа integer, который используется в движке.

У меня одномерный массив.
В принципе мне любой код. Все равно скрипт будет работать быстро. И он не влияет на скорость игры.

PS. Игра точнее игровой движок делается на OpenGl графике.
Игру писал не я но я пишу скриптовку своей миссии для этой игры. Ореентируюсь по этим скриптам https://code.google.com/p/castlesand...ScriptsDynamic

Мне также еще нужна 2я функция которая будет ппроверку делать и возвращать
1 если там все ячейки <> -1 то возвращает asTrue
2 если хоть одна равняется -1 то возвращает asFalse
3 если числа в ячейках идут в разброс то она возвращает asError

[ZX Spectrum-128]

2.
Поиск строки rgbtohex в поисковых системах даст ответ.

[BDA]

Сообщение от Alexandr17-10

Мне также еще нужна 2я функция которая будет ппроверку делать и возвращать
1 если там все ячейки <> -1 то возвращает asTrue
2 если хоть одна равняется -1 то возвращает asFalse
3 если числа в ячейках идут в разброс то она возвращает asError

Примерно:

if mas[1] = -1 then
begin
  result := asFalse;
  exit;
end;
for i := 2 to N do
  if mas[i] = -1 then
  begin
    result := asFalse;
    exit;
  end else if mas[i] < mas[i - 1] then
  begin
    result := asError;
    exit;
  end;
result := asTrue;

[Alexandr17-10]

Правильно ли я сделал.

Type
  TArrayArmy=(asTrue, asFalse, asError);
Type
  TArraysInts=Array of integer;
...
Function GetArrayA(ArraysInts:TArraysInts):TArrayArmy;
begin
  if ArraysInts[1] = -1 then
  begin
    result := asFalse;
    exit;
  end;
  for i := 2 to high(ArraysInts) do
    if ArraysInts[i] = -1 then
    begin
      result := asFalse;
      exit;
    end 
	else 
	  if ArraysInts[i] < ArraysInts[i - 1] then
      begin
        result := asError;
        exit;
      end;
  result := asTrue;
end;

[BDA]

Раз array of, то индексация с 0:

if ArraysInts[0] = -1 then
...
for i := 1 to high(ArraysInts) do

Надеюсь, нету ситуации, когда это массив пуст

[Alexandr17-10]

Нет начальный размер ему создается 100 вот конечный вариант.

Function GetArrayA(ArraysInts:TArraysInts):TArrayArmy;
Var i:Integer;
begin
  if ArraysInts[0] = -1 then
  begin
    result := asFalse;
    exit;
  end;
  for i := 0 to high(ArraysInts) do
    if ArraysInts[i] = -1 then
    begin
      result := asFalse;
      exit;
    end 
	else 
	  if ArraysInts[i] < ArraysInts[i - 1] then
      begin
        result := asError;
        exit;
      end;
  result := asTrue;
end;

Procedure Sortirovatj(ArraysInts:TArraysInts);
var
  tmp:Integer;
  i,j:Integer;
begin
  for i := 0 to High(ArraysInts) do
    for j := i + 1 to High(ArraysInts) do
      if ArraysInts[i] > ArraysInts[j] then
      begin
        tmp := ArraysInts[i];
        ArraysInts[i] := ArraysInts[j];
        ArraysInts[j] := tmp;
      end;
end;

Procedure GetsArraysArmyM(ArraysInts:TArraysInts);
begin
  Case GetArrayA(ArraysInts) of
    asTrue:SetLength(ArraysInts,High(ArraysInts)+100);
	asFalse:Exit;
	asError:Sortirovatj(ArraysInts);
  end;
end;