VPF::Включение числа в отсортированный массив

Fist

Дата 28.11.2006, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 27.11.2006

Репутация: нет
Всего: нет

Дан отсортированный массив. Нужно включить элемент K в этот массив, не нарушая последовательности.

Код


   For i := 1 to 10 do
       Begin
            If a[i] < k then
               Begin
                     kk := a[i];
                     a[i] := k;
                     k := kk;
                {    For j := i to 11 do
                        Begin
                             a[j+1] := a[j];
                        End;
                    a[i] := k;}
               End;
       End;

Так, у меня не получилось. Помогите! Срочно! У меня немного времени осталось! я не знаю как...

volvo877

Дата 28.11.2006, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код

const
  n = 10;
  a: array[1 .. n + 1] of integer = (
    1, 3, 5, 7, 9, 10, 14, 17, 23, 38, 0
  );

var
  i, X: integer;
begin
  X := 8; { <--- Включаемое число }

  i := n;
  while (i > 0) and (X < a[i]) do begin
    a[i + 1] := a[i]; dec(i);
  end;
  a[i + 1] := X;

  for i := 1 to n + 1 do write(a[i]:3);
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »