|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.02.2009, 22:39 | #1 |
Пользователь
Регистрация: 23.01.2009
Сообщений: 16
|
Помогите пожалуйста (Обработка одномерных массивов)
Удалить первый четный элемент массива.Вставить число 2 перед первым четным элементом массива.Поменять местами второй четный элемент массива и третий четный элемент массива.
P.S. Все действия должны быть сделаны в одной программе и через процедуры... Буду очень признателен Вам за помощь! Заранее спасибо! |
05.02.2009, 22:46 | #2 |
Кибернетик
Форумчанин
Регистрация: 22.10.2008
Сообщений: 142
|
массив с клавы задавать надо?
всмысле массив откуда.открытый,закрытый,динамика
не существует идеальных программ...и людей тоже..
<== P.S. если я тебе помог нажми весы слева <== |
05.02.2009, 22:49 | #3 |
Кибернетик
Форумчанин
Регистрация: 22.10.2008
Сообщений: 142
|
а это как понять))
Удалить первый четный элемент массива.Вставить число 2 перед первым четным элементом массива Всмысле заменить тебе или это 2 разных задания?)
не существует идеальных программ...и людей тоже..
<== P.S. если я тебе помог нажми весы слева <== |
05.02.2009, 22:54 | #4 |
Пользователь
Регистрация: 23.01.2009
Сообщений: 16
|
Не...всмысле походу задания одно менять на другое, это всё единое задание и единая программа
|
05.02.2009, 22:58 | #5 |
Кибернетик
Форумчанин
Регистрация: 22.10.2008
Сообщений: 142
|
ты так и не ответил откуда массив))
вопрос вот в чем: что значит удалить?)) сделать его значение 0 или из массива со 100 элементами сделать массив 99 элементный...это огромная разница...тогда придеться использовать динамический массив!!!
не существует идеальных программ...и людей тоже..
<== P.S. если я тебе помог нажми весы слева <== |
05.02.2009, 23:05 | #6 |
Пользователь
Регистрация: 23.01.2009
Сообщений: 16
|
блин...у меня просто есть задание))) Вот я и выложил его)))
|
05.02.2009, 23:07 | #7 |
Кибернетик
Форумчанин
Регистрация: 22.10.2008
Сообщений: 142
|
почему то мне кажеться что тебе надо создавать массив через указатель))потому что кто писал слово удалять он знал что писал))щас подумаю
не существует идеальных программ...и людей тоже..
<== P.S. если я тебе помог нажми весы слева <== |
05.02.2009, 23:09 | #8 |
Пользователь
Регистрация: 23.01.2009
Сообщений: 16
|
В примере к заданию местами проглядывается число 100)))
|
05.02.2009, 23:14 | #9 |
Кибернетик
Форумчанин
Регистрация: 22.10.2008
Сообщений: 142
|
так выложи это задание!))))))))))))))))))))))))))
не существует идеальных программ...и людей тоже..
<== P.S. если я тебе помог нажми весы слева <== |
05.02.2009, 23:17 | #10 |
Пользователь
Регистрация: 23.01.2009
Сообщений: 16
|
Перестановка двух элементов массива
Задание. Поменять местами два элемента массива c номерами k1 и k2 ….. dop:=a[k1]; a[k1]:=a[k2]; a[k2]:=dop; …… Процесс перестановки двух элементов массива можно оформить в виде процедуры: Procedure Swap(k1,k2:byte; var a:mas); Var dop:integer; Begin dop:=a[k1]; a[k1]:=a[k2]; a[k2]:=dop; end; Пример. Для того чтобы поменять местами 2-й и 5-й элементы массива Х, следует обратиться к процедуре Swap следующим образом: Swap(2,5,x); Удаление элемента одномерного массива Задание. Удалить из массива k-й элемент Решение: · сдвинуть все элементы, начиная с k+1-го на один элемент влево: a[k]:=a[k+1]; a[k+1]:=a[k+2]; ….. a[n-1]:=a[n]; · последнему элементу присвоить значение 0: a[n]:=0; ….. begin for i:=k to n-1 do a[i]:=a[i+1]; a[n]:=0; ….. Процесс удаления k-го элемента массива можно оформить в виде процедуры: Procedure Delete(k:byte; var a:mas); Var i:byte; Begin for i:=k to n-1 do a[i]:=a[i+1]; a[n]:=0; end; Пример. Для того чтобы удалить 3-й элемент массива Х, следует обратиться к процедуре Delete следующим образом: Delete (3,x); Вставка элемента в одномерный массив Задание. Вставить число 100 после k-го элемента массива Решение: · первые k элементов остаются без изменения; · все элементы, начиная с k+1-го нужно сдвинуть на один элемент вправо: a[n+1]:=a[n]; a[n]:=a[n-1]; ….. a[k+2]:=a[k+1]; · k+1-му элементу присвоить значение 100: a[k+1]:=100; Таким образом, количество элементов в массиве А увеличится на 1. Поэтому в описании массива надо определить его размер на N+1 элемент: ….. const n=10; type mas=array[1..n+1] of integer; ….. begin for i:=n downto k+1 do a[i+1]:=a[i]; a[k+1]:=100; ….. Процесс вставки элемента Х на k-ое место в массив А можно оформить в виде процедуры: Procedure Insert(k:byte; x:integer; var a:mas); Var i:byte; Begin for i:=n downto k do a[i+1]:=a[i]; a[k]:=x; end; Пример. Для того чтобы вставить число 100 на 4-ое место массива Х, следует обратиться к процедуре Insert следующим образом: Insert (4,100,x); Моё задание: Удалить первый четный элемент массива.Вставить число 2 перед первым четным элементом массива.Поменять местами второй четный элемент массива и третий четный элемент массива. P.S. Все действия должны быть сделаны в одной программе и через процедуры... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обработка одномерных массивов | felmor | Помощь студентам | 16 | 05.02.2009 19:22 |
Файл из одномерных массивов. | OTuser | Помощь студентам | 11 | 28.12.2008 19:24 |
Программирование операций обработки одномерных массивов | Дима82 | Помощь студентам | 12 | 11.05.2008 15:24 |