Доброго времени суток, нужна помощь в удалении элементов из массива. Удаление само происходит, но вместо удаленных элементов добавляется мусор. Что нужно дописать/удалить для правильной работы процедуры? Вот сам код:
Код:
procedure DelEvenElement(var a:TArray100;cnt:integer); var i,j:integer; begin for i:=1 to cnt do if (amod 2)=0 then begin for j:=i to cnt do a[j]:=a[j+1]; end; end;
Вот само задание: Удалить четные элементы из массива. Было бы неплохо пояснить суть моей ошибки. Спасибо за внимание.
[i]Сообщение скопировал zapret из темы: Программирование. Deplhi 7. Массивы
-Sotik-
Patcher
Регистрация: 28.12.07 Сообщений: 880 Репутация: 2655 Откуда: Днепр-City UA
мля, давайте тогда и какую-нить еще тему создадим, типа: "за что я люблю дом-2?" или "как я провел лето".....я еще понимаю если б вопрос был по delphi при написании эльфа... flips, тебе не кажется что по данным вопросам тебе нужно например СЮДА или СЮДА, ну или, на худой конец, к преподу походи после уроков? зачем форум по МОБИЛЬНЫМ ТЕЛЕФОНАМ засырать? или название сайта похоже на "в помощь начинающему программеру?" извините за оффтоп - просто УЖАСНО не когда люди наглеют...один раз помогли так давайте все щас сюда начнем писать по математике, физике, истории..... а потом переименуем форум в shkolnik.ru
Добавлено 17.11.10 00:01
во, блин - есть уже такой сайт.....
SE W610 R6CA001 ORANGE SE K810 R8BA024 ORANGE HTC DESIRE S
flips, вас не учили составлять алгоритмов, если программирование так плохо дается, советую начать с этого.
flips писал:
procedure DelEvenElement(var a:TArray100;cnt:integer); var i,j:integer; begin for i:=1 to cnt do if (amod 2)=0 then begin for j:=i to cnt do a[j]:=a[j+1]; end; end;
по поводу этого, могу сказать, что тут все неверно. разберись в самом процессе (на бумажке нарисуй массив, подумай как делать все будешь), а потом его на алгоритм и код перекладывай
Добавлено 17.11.10 03:57
более чем уверен что из массива 2 4 6 8 2 2 4 6 8 удаляться только 1,3,5,7,9 элементы
не занимаюсь эльфами и патчами (= Siemens c75 -> SonyEricsson k610i + SonyEricsson w595 + SonyEricsson w580i -> HTC Desire Z
Вы не можете начинать темы. Вы не можете редактировать свои сообщения. Вы не можете создавать опросы. Вы не можете вкладывать файлы в сообщения. Вы не можете отвечать на сообщения. Вы не можете удалять свои сообщения. Вы не можете голосовать.