VPF::[Раsсаl] Массивы - Форум программистов

koshkarjov

Дата 31.3.2010, 11:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день!
Подскажите пожалуйста где ошибка в программе

Код


рrogram lab4;
const n=10;
var a:array [1..n] of integer;
i,j:integer;
begin
writeln ('Введите число [',i,']=');
readln(a[i]);
end;
for i:=1 to n do
for j:=1 downto i+1 do
if a[j]=0 then
begin
a[j]:=a[j-1];
a[j-1]:=0;
end;
for i:=1 to n do write (a[i]:3);
writeln;
readln;
end.

Задание:
Ввести массив из целых чисел n элементов (задано константой). Переместить все нулевые элементы в начало массива. Вывести массив на экран

Rodman

Дата 31.3.2010, 11:52 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Код


рrogram lab4;
const n=10;
var a:array [1..n] of integer;
i,j:integer;
begin
for i:=1 to n do{ввод такой должен быть}
begin
  writeln ('Введите число [',i,']=');
  readln(a[i]);
end;
for i:=1 to n do
  for j:=1 downto i+1 do
    if a[j]=0 then
    begin {сортировка не дозакончена}
      a[j]:=a[j-1];
      a[j-1]:=0;
   end;
for i:=1 to n do 
    write (a[i]:3);
writeln;
readln;
end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

koshkarjov

Дата 1.4.2010, 09:43 (ссылка)

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

Загрузка ...

Новичок

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

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

А как доделать сортировку? Никак понять не могу :(

t_gran

Дата 1.4.2010, 10:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

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

koshkarjov, неужели так сложно?

Код


   // ...
   for i:= 1 to n-1 do
      for j:= i+1 to n do
         if a[j] = 0 then
         begin
            buff:= a[j];
            a[j]:= a[i];
            a[i]:= buff;
            break;
         end;
   // ...

Хотя это не самый эффективный подход, более правильно, на мой взгляд будет так:

Код


   // ...
   i:= 1;
   j:= n;
   while (i < j) do
   begin
      while (a[i] = 0) and (i < j) do
         inc(i);
      while (a[j] <> 0) and (i < j) do
         dec(j);
      if (i < j) then
      begin
         buff:= a[j];
         a[j]:= a[i];
         a[i]:= buff;
      end;
   end;
   // ...

Т.е. по i позиции начиная сначала ищем не нулевой элемент. По j позиции, наоборот, с конца, ищем нулевой элемент и если i с j не пересеклись, значит нужные элементы были найдены и их можно поменять. Иначе выходим из цикла.

P.S.: Но это так, с потолка. Если немного ещё подумать, наверное ещё можно чего-нить до оптимизировать.

Это сообщение отредактировал(а) t_gran - 1.4.2010, 10:41

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

volvo877

Дата 1.4.2010, 13:29 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(t_gran @ 1.4.2010, 09:05

)

более правильно, на мой взгляд будет так:

Был массив <1, 3, 6, 0, 4, 7, 0, 2, 4, 5> , стал - < 0 0 6 3 4 7 1 2 4 5>
То есть, кроме нулей еще и другие элементы меняются местами.

Чтобы сделать только перенос нулей в начало - ну нужна никакая сортировка:

Код

  for i := n downto 1 do
  begin
    if a[i] = 0 then
    begin
      for j := i downto 2 do a[j] := a[j - 1]; { Можно заменить на Move }
      a[1] := 0;
    end;
  end;

koshkarjov

Дата 1.4.2010, 20:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем большое спасибо! smile

Готовая программка, если кому надо будет smile

Код


program lab4;
const n=10;
var a:array [1..n] of integer;
    i,j:integer;
begin
for i:=1 to n do
begin
writeln ('Введите число [',i,']=');
readln(a[i]);
end;
for i:=n downto 1 do
begin
if a[i]=0 then
begin
for j:=i downto 2 do a[j]:=a[j-1];
a[1]:=0;
end;
end;
for i:=1 to n do write (a[i]:3);
writeln;
readln;
end.

Это сообщение отредактировал(а) koshkarjov - 28.9.2010, 19:22

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