Deplhi 7 : О жизни : Форум

Страница 2 из 2: « 1 [2]

 mmcorp:
 16.11.10, 22:04
 во-первых в s1 ничего нету, во-вторых flips писал:
s1:=s1[1]+s1[2]+s1[3];

надеюсь поймешь
в-третьих почитай приоритеты булевских операций


Сообщение скопировал zapret из темы: Анализ строки в Delphi 7

 flips:
 16.11.10, 22:05
 Доброго времени суток, нужна помощь в удалении элементов из массива.
Удаление само происходит, но вместо удаленных элементов добавляется мусор.
Что нужно дописать/удалить для правильной работы процедуры?
Вот сам код:
Код: 
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-:
 17.11.10, 00:58
 
ОФФТОП: 
:evil:


Добавлено 17.11.10 00:01

во, блин - есть уже такой сайт..... =)

 mmcorp:
 17.11.10, 03:52
 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 элементы

 flips:
 17.11.10, 16:37
 Спасибо товарищи, сам разобрался. Больше вас беспокоить не буду.
Страница 2 из 2: « 1 [2]

URL этой темы:
https://mobilefree.justdanpo.ru/newbb_plus/viewtopic.php?topic_id=5158&start=10

© 2005-2018 supertrubka.org