вопросик от нубика с массивами)

[Sp4~ShaRp]

вообще надо написать функцию у которой на входе дается динамический массив цифры идут по возрастанию но не по порядку
так вот мне надо потом вывести все значения массива в строку но при это цифры которые идут не по парядку просто написать через запитую а те которые по порядку написать через черточку то есть 7-10 например.


в результате должно получиться что-то типо такого 4,5,8,11-22,26,33-45,55 и тд


помогите плиз буду очень признателен))

язык паскаль)

[Serge_Bliznykov]

А язык программирования кто будет указывать?!
Вот пример на Delphi:

function ArrayDigitToRange(A : array of integer) : string;
var i, k0, kol : integer;
      s : string;
begin
  s := '';
  k0 := A[Low(A)];
  kol := 1;
  s := IntToStr(k0);
  for i:=Low(A)+1 to High(A) do
    if A[i]<>k0+Kol then begin
       if Kol<>1 then s := s + '-' + IntToStr(k0+Kol-1);
       k0 := A[i];
       kol := 1;
       s := s + ',' + IntToStr(k0);
    end
    else inc(Kol);

  {проверка на то, что массив закончился последовательностью}
  if kol>1 then s := s + '-' + IntToStr(k0+Kol-1);

  ArrayDigitToRange := s
end;

[Sp4~ShaRp]

паскаль)


да извините забыл совсем если например всего 2 цифры по порядку идут то между ними тире не надо а просто запятую


помогите плиз)

[RUSt88]

могу помочь за вознаграждение полностью избавив вас от головной боли

[Sp4~ShaRp]

спасибо но денег нема)(

мне надо только что-нить придумать что бы между двумя цифрами по порядку не было "-"

[Serge_Bliznykov]

мне надо только что-нить придумать что бы между двумя цифрами по порядку не было "-"

ну, это как раз элементарно:

  for i:=Low(A)+1 to High(A) do
    if A[i]<>k0+Kol then begin
       if Kol>1 then
          if Kol=2 then
              s := s + ',' + IntToStr(k0+Kol-1)
          else
              s := s + '-' + IntToStr(k0+Kol-1);
       k0 := A[i];
       kol := 1;
       s := s + ',' + IntToStr(k0);
    end
    else inc(Kol);

Вы лучше скажите, каким образом Вы собираетесь в Pascal реализовывать динамические массивы (которых в языке просто нет!) ?!
Через указатели + выделение памяти? Или как?

[Sp4~ShaRp]

тооооо я нууб я написал выше в dekphi конечно)

а вот еще вопросик моно?)

[kakawkin]

лови код:

type TIntMassiv = array of Integer;
procedure TMyArray.TestProc;
var
   intMassiv: TIntMassiv;
   inn: Integer;
begin
   { Установим длину динамического массива }
   SetLength(intMassiv, 2);
   { Выводим значение первого элемента массива }
   intMassiv[0] := 10;
   { Выводим значение второго элемента массива }
   intMassiv[1] := 12;

   { Выводим длину и значения элементов массива intMassiv }
   Writeln('intMassiv length = 2');
   for inn := 0 to 1 do
   begin
      Writeln('intMassiv[' + IntToStr(inn) + '] = ' + IntToStr(intMassiv[inn]));
   end;

   { Установим новую длину динамического массива }
   SetLength(intMassiv, 3);
   { Выводим значение третьего элемента массива }
   intMassiv[2] := 14;

   Writeln();

   { Выводим длину и значения элементов массива intMassiv }
   Writeln('intMassiv length = 3');
   for inn := 0 to 2 do
   begin
      Writeln('intMassiv[' + IntToStr(inn) + '] = ' + IntToStr(intMassiv[inn]));
   end;

   Writeln();

   { Установим новую длину динамического массива }
   SetLength(intMassiv, 1);

   { Выводим длину и значения элементов массива intMassiv }
   Writeln('intMassiv length = 1');
   for inn := 0 to 0 do
   begin
      Writeln('intMassiv[' + IntToStr(inn) + '] = ' + IntToStr(intMassiv[inn]));
   end;

   { Освобождаем память, выделенную массиву }
   intMassiv := nil;

   ReadLn();
end;

[Sp4~ShaRp]

Serge_Bliznykov ваш код не работает если у нас массив заканчивается последовательностью он просто не выводит ее((

kakawkin спасибо большое но мой мозг взорвется понимать другое решение данной задачи)

[Serge_Bliznykov]

Как это - "не работает" ?!
Вы, наверное, забыли про довесочек после основного цикла!

пробуйте:

function ArrayDigitToRange(A : array of integer) : string;
var i, k0, kol : integer;
      s : string;
begin
  s := '';
  k0 := A[Low(A)];
  kol := 1;
  s := IntToStr(k0);
  for i:=Low(A)+1 to High(A) do
    if A[i]<>k0+Kol then begin
       if Kol>1 then
          if Kol=2 then
              s := s + ',' + IntToStr(k0+Kol-1)
          else
              s := s + '-' + IntToStr(k0+Kol-1);
       k0 := A[i];
       kol := 1;
       s := s + ',' + IntToStr(k0);
    end
    else inc(Kol);

  {проверка на то, что массив закончился последовательностью}
  if kol>1 then
    if Kol=2 then
       s := s + ',' + IntToStr(k0+Kol-1)
    else
      s := s + '-' + IntToStr(k0+Kol-1);

  ArrayDigitToRange := s
end;