Нужно написать подпрограмму для удаления указанного элемента из одномерного массива.
Буду очень благодарна, если предложите свое решение,мое чего-то глючит
Полная версия: функции и процедуры
Цитата(tori @ 8.12.2006 10:36) 
если предложите свое решение,мое чего-то глючит
Покажи, пожалуйста, свое решение.
Найдем глюки!
алгоритм очень прост, правда я использую дополнительный массив (может кто-то сделает оптимальней):
1) берем наш массив и начиная с n+1 элемента (где элемент n - тот который нужно удалить) копируем массив в другой, назовем его B, а исходный A
2) потом удаляем из первого массива все элементы после n
3) делаем слияние двух массивов
4) все!
есть и другие варианты:
например, брать элемент n+2 и передвигать его на одну ячейку влево, т.е. в элемент n+1
потом брать n+3 и передвигать его в n+2
и так до конца
1) берем наш массив и начиная с n+1 элемента (где элемент n - тот который нужно удалить) копируем массив в другой, назовем его B, а исходный A
2) потом удаляем из первого массива все элементы после n
3) делаем слияние двух массивов
4) все!
есть и другие варианты:
например, брать элемент n+2 и передвигать его на одну ячейку влево, т.е. в элемент n+1
потом брать n+3 и передвигать его в n+2
и так до конца
а вот и реализация второго способа:
program delete;
uses crt;
const a=10;
type mas = array [1..a] of integer;
var ar1:mas;
b,g:integer;
procedure input(var num:integer);
var ior:word;
begin
repeat
writeln ('INPUT SIZE OF ARRAY');
{$I-}readln(num);{$I+}
ior:=IOResult;
if (ior<>0) or (num<=0) or (num>a) then
writeln ('ERROR!!!');
until (ior=0) and (num>0) and (num<=a);
end;
procedure inparr(var ar1f:mas;el:integer);
var i,j:integer;
ior:word;
begin
for j:=1 to el do
begin
writeln('INPUT (',j,')');
repeat
{$I-}readln(ar1f[j]);{$I+}
ior:=IOResult;
if (ior<>0) then
writeln ('ERROR!!!');
until (ior=0);
end;
end;
procedure output(ar1f:mas;el:integer);
var j:integer;
ior:word;
begin
for j:=1 to el do
begin
write(ar1f[j],' ');
end;
end;
{-----------------------вот главная процедура удаления-----------------}
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;
begin
clrscr;
input(b);
inparr(ar1,b);
output(ar1,b);
writeln('');
writeln('INPUT NUMBER OF ELEMENT TO DELETE');
readln(g);
sort(ar1,g,b);
writeln('');
output(ar1,b);
repeat until keypressed
end.
Леха, все дело в том, что оптимально - это в три строки:
if i < n then { <--- I - номер удаляемого элемента }
move(arr[i+1], arr[i], (n - i)*sizeof(integer));
arr[n] := 0; dec(n);
(безо всяких доп. массивов)
Цитата(volvo @ 8.12.2006 20:30)
Леха, все дело в том, что оптимально - это в три строки:
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;
а про массивы это я че-то загнул
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.