|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.02.2011, 15:48 | #1 |
Регистрация: 17.02.2011
Сообщений: 6
|
Массивы на pascal (преобразовать массив так, чтобы сначала были единицы, а потом - все остальные)
Решите пожалуйста задачу на pascal
Преобразовать массив B(31) таким образом,что-бы сначала располагались все элементы равные 1,а потом - все остальные. Примерно(как я думаю) будет так Код:
Последний раз редактировалось Mercial; 17.02.2011 в 15:52. |
17.02.2011, 16:28 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
да ну бросьте, зачем тут новый дополнительный массив ?
Вы лучше себе вопрос задайте - остальные элементы должны сохранить свой порядок в массиве или нет? Если должны сохранить порядок следования - то это чуть-чуть сложнее решается. Если всё равно в каком они будут порядке - то это вообще элементарно: заводите индекс, куда надо помещать очередную единичку, проходите по массиву, если встретили 1-цу, то меняете местами эту единичку и элемент, распоолженный по адресу индекса, индекс увеличиваете. всё. примерно так: Код:
если же порядок следования нужно сохранить. то нужно сдвинуть все элементы поочерёдно в цикле, а на освободившееся место вставить единичку. |
17.02.2011, 19:24 | #3 |
Регистрация: 17.02.2011
Сообщений: 6
|
Извените,не могли бы вы поподробнее описать куда код вставлять в мой пример,изучаю паскаль на 1 курсе,и что-то не заладилось с массивами,а сейчас вот маюсь.Я понимаю конечно что вам до этого дела нет,но прошу помогите пожалуйста.Кстати неважно в каком порядке будут стоять последущие цифры после единички.
|
17.02.2011, 20:16 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
так сразу после Вашего код и вставляйте. (ну в VAR не забудьте добавить var K_edin : integer;
потом, после этого ещё добавьте печать полученного массива и всё, задача решена. а что, пример код в вашем 1-м сообщении Вы не сами писали?! |
17.02.2011, 20:34 | #5 |
Регистрация: 17.02.2011
Сообщений: 6
|
Писал полностью самСпасибо огромное за помощь
|
18.02.2011, 19:35 | #6 |
Пользователь
Регистрация: 17.02.2011
Сообщений: 22
|
1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива.
2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей. помогите пожалуйста, в паскале)))) |
18.02.2011, 22:07 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
seilova, почитайте правила форума.
А потом создавайте свою тему (а лучше - две отдельные темы - для каждой задаче свою). Ну и не забудьте, что форум - это не автоматический решатель Ваших задач, приводите свои наработки, что получается, что вызыает трудности, давайте тот код, который Вам удалось написать самостоятельно. А данная тема исчерпала себя и закрыта. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сначала изучить паскаль а потом лезть в delphi? | xtreemxx | Помощь студентам | 16 | 12.09.2010 14:49 |
В заданном массиве C(8) переставить элементы так щеб сначала шли все отрицатильние а затем положительные. | basav1k | Помощь студентам | 2 | 26.05.2010 21:10 |
Преобразовать строку таким образом, чтобы буквы каждого слова в ней были отсортированы по возрастанию. | Matr1x | Общие вопросы C/C++ | 4 | 07.01.2010 21:38 |
Паскаль. Как исправить процедуры 2 и 3, так чтобы все заработало наконец...! | Татяна | Помощь студентам | 3 | 27.05.2009 21:42 |
Как исправить процедуры 2 и 3, так чтобы все заработало наконец...! | Татяна | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 27.05.2009 19:44 |