Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
I'm Juliya
1 / 1 / 0
Регистрация: 29.12.2011
Сообщений: 13
1

Задача с перестановкой чисел в числовой последовательности

07.02.2012, 08:33. Просмотров 1152. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста!!! Это вопрос жизни и смерти!!
В числовой последовательности переставить местами элементы так, что-бы в начале шли только положительные числа, потом 0 (если он есть), а потом только отрицательные числа. Нужно что-бы был сохранен относительный порядок отдельно внутри положительных и внутри отрицательных чисел.

Например, если была введена числовая последовательность: 1, 3, -2, 7, -35, 0, 24, 45, -8, -5, то результат должен выглядеть так: 1, 3, 7, 24, 45, 0, -2, -35, -8, -5
И обязательное условие: в этой программе должен быть только один массив.

Помогите пожалуйста решить эту задачу) Буду очень благодарна))
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2012, 08:33
Ответы с готовыми решениями:

Найти среднее арифметическое числовой последовательности из N произвольных вещественных чисел
ребята помогите плиз с этим :Найти среднее арифметическое числовой последовательности из N...

Вывести наибольшую разность чисел, 1ое из которых может быть получено перестановкой цифр a, а 2ое – перестановкой цифр b
В конторе «Рога и Копыта» подходит время подведения годового баланса. В бухгалтерию поступили...

Признаком конца числовой последовательности является число 0. Найти среднее орифметическое положительных элементов последовательности.
Всем привет! Помогите пожалуйсто написать программу к задаче!!! Признаком конца числовой...

Посчитать сумму числовой последовательности
Посчитать сумму числовой последовательности а)вида: 1-1/n n=1... b)произвед. вида:...

Паскаль-обработка числовой последовательности
есть такое задание- Найти сумму не четных членов последовательности.... последовательность ...

6
Puporev
Модератор
56809 / 43412 / 30013
Регистрация: 18.05.2008
Сообщений: 103,404
07.02.2012, 10:51 2
Цитата Сообщение от I'm Juliya Посмотреть сообщение
Это вопрос жизни и смерти!!
Когда помрешь отпишись.

Добавлено через 5 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k,x:integer;
begin
randomize;
repeat
write('Размер массива до ',max,' n=');
read(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-4+random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
{положительные вперед}
k:=0;
for i:=1 to n do
if a[i]>0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
{отрицательные в конец}
k:=0;
for i:=n downto 1 do
if a[i]<0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
end.
0
I'm Juliya
1 / 1 / 0
Регистрация: 29.12.2011
Сообщений: 13
08.02.2012, 12:25  [ТС] 3
Спасибо, конечно) Но программа получилась не совсем такая как нужно. Программа должна производить перестановку чисел в числовой последовательности, введенной пользователем.
0
Puporev
Модератор
56809 / 43412 / 30013
Регистрация: 18.05.2008
Сообщений: 103,404
08.02.2012, 12:32 4
I'm Juliya, Интересно, кто Вам мешает ввести числа с клавиатуры вместо рандома?
Перепишите, хоть что-то должны сами делать. Мне с клавиатуры лень вводить.
0
Puporev
Модератор
56809 / 43412 / 30013
Регистрация: 18.05.2008
Сообщений: 103,404
08.02.2012, 12:34 5
Все сопли просителю вытирают только при заказе программ за деньги.
0
I'm Juliya
1 / 1 / 0
Регистрация: 29.12.2011
Сообщений: 13
08.02.2012, 12:34  [ТС] 6
ой... извините, не подумала)
0
I'm Juliya
1 / 1 / 0
Регистрация: 29.12.2011
Сообщений: 13
08.02.2012, 12:36  [ТС] 7
Спасибо) перепишу)
0
08.02.2012, 12:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2012, 12:36

Найти сумму цифр числовой последовательности
найти сумму цифр следующей числовой последовательности (сумму цифр всех ее чисел): 1, 2, 3, …,...

напишите программу обработки числовой последовательности. Необходмо:
напишите программу обработки числовой последовательности.Сколько чисел содержится в списке...

Найти n-ый член числовой последовательности по рекурсивной форме
Найти n-ый член числовой последовательности по рекурсивной форме X1=1; x2=0.3; x i =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru