Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2017, 19:04   #1
Dante48
Новичок
Джуниор
 
Регистрация: 21.05.2017
Сообщений: 2
Сообщение Pascal. Работа с массивом.

Взять из Х и расположить в массиве Y сначала все положительные, а затем отрицательные элементы.
Массив Х:
-3;2;8;-4;5;-1
Что должно получиться. Массив Y:
2;8;5;-3;-4;-1
Dante48 вне форума Ответить с цитированием
Старый 21.05.2017, 19:44   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.05.2017, 12:37   #3
Dante48
Новичок
Джуниор
 
Регистрация: 21.05.2017
Сообщений: 2
По умолчанию Наработки

Код:
uses crt;
var y,x:array[1..6] of integer;
i,k:byte;
begin
clrscr; randomize;
writeln('Mассив X(6):');
for i:=1 to 6 do
begin
     x[i]:=random(199)-99;
     write(x[i]:4);
  end;
k:=1;
for i:=1 to 6 do
  if x[i]>=0 then
     begin
        y[k]:=x[i];
        inc(k);
     end;
writeln(#13#10,'Mассив Y(6):');
for i:=1 to 6 do
  begin
     if x[i]<0 then
        begin
           y[k]:=x[i];
           inc(k);
        end;
     write(y[i]:4);
  end;
readkey;
end.
Такие наработки сейчас есть. Правда тут с учетом порядка элементов. Вопрос в том, как это будет выглядеть без учета порядка элементов. что бы было, как в шапке Y[6]

Последний раз редактировалось Dante48; 22.05.2017 в 12:39. Причина: UPD
Dante48 вне форума Ответить с цитированием
Старый 22.05.2017, 12:47   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Dante48 ваш код при входе -3;2;8;-4;5;-1 дает на выход 2;8;5;-3;-4;-1. В чем проблема?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 22.05.2017, 13:06   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Dante48 Посмотреть сообщение
Правда тут с учетом порядка элементов.
тут с учётом исходного порядка (т.е. в каком порядке шли положительные в массиве Ч, в том они и будут идти в массиве Y, то же самое и насчёт отрицательных - исходный порядок сохраняется.

Цитата:
Сообщение от Dante48 Посмотреть сообщение
Вопрос в том, как это будет выглядеть без учета порядка элементов. что бы было, как в шапке Y[6]
а вот сейчас вообще не понятно, о чём речь.
Что Вас не устраивает в вашей программе?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.05.2017, 20:57   #6
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Может быть ТС'у нужен однопроходный алгоритм? Сейчас у него считает за два прохода по массиву.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивом (Pascal) imfrozen Помощь студентам 0 05.09.2016 00:35
Работа с двумерном массивом, ошибка в ответе (Pascal) artems67 Помощь студентам 5 18.11.2015 13:18
Работа с двумерным массивом в Pascal gromanov Помощь студентам 1 04.11.2014 23:56
Работа с одномерным массивом в Pascal DeadKeLeVRa Помощь студентам 1 17.06.2013 20:13
Работа с массивом/строкой символов, преобразование символа с число. (Pascal, Delphi) Савва Помощь студентам 8 29.01.2012 12:27