Процедуры и функции в Паскале.

[Олик]

Помогите,пожалуйста, решить задачу. Дана последовательность целых чисел [в том числе и отрицат.}Написать эти числа в двоичной или восьмеричной системе в зависимости от запроса. Не понимаю,как вызвать функцию для массива.

[Stilet]

А у тебя уже функция конвертации есть?

[Олик]

нет , для положительных примерно знаю,а для отрицательных нет

[Poma][a]

Для них точно также.. Только потом - поставить..

[min@y™]

для затравки

// Преобразование целого в двоичную строку и дополнение слева нулями до длины P
function Int2Bin(const X: Integer; const P: Byte): string;
var
  i: Integer;
begin
  Result:= '';
  i:= X;

  repeat
    if (i and 1) = 0
      then Result:= '0' + Result
      else Result:= '1' + Result;

      i:= i shr 1;
  until i = 0;

  while Length(Result) < P do
    Result:= '0' + Result;
end;

[Олик]

спасибо , буду думать дальше