функции и процедуры Опции

[tori]

Нужно написать подпрограмму для удаления указанного элемента из одномерного массива.

Буду очень благодарна, если предложите свое решение,мое чего-то глючит

[volvo]

Леха, все дело в том, что оптимально - это в три строки:

if i < n then { <--- I - номер удаляемого элемента }
  move(arr[i+1], arr[i], (n - i)*sizeof(integer));
arr[n] := 0; dec(n);

(безо всяких доп. массивов)

[Леха]

Леха, все дело в том, что оптимально - это в три строки:

if i < n then { <--- I - номер удаляемого элемента }
  move(arr[i+1], arr[i], (n - i)*sizeof(integer));
arr[n] := 0; dec(n);

(безо всяких доп. массивов)

ну так я и писал программу без всяких доп массивов:

procedure sort(var ar1f:mas;n:integer; var p:integer);
var i:integer;
 begin
  for i:=n to p do begin
     ar1f[i]:=ar1f[i+1];
   end;
   dec(p);
 end;

а про массивы это я че-то загнул

Сообщение отредактировано: Леха - 9.12.2006 0:36