Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Санек26
0 / 0 / 0
Регистрация: 05.11.2012
Сообщений: 11
1

Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной

05.11.2012, 11:14. Просмотров 754. Ответов 2
Метки нет (Все метки)

Дана целочисленная последовательность. Получить упорядоченную по убыванию последовательность , состоящую из всех различных членов данной последовательности.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.11.2012, 11:14
Ответы с готовыми решениями:

Получить упорядоченную по невозрастанию последовательность, состоящую из тех членов первой последовательности, которых нет во второй
кот Бегемот, а на Паскале можешь первую задачу написать?

Получить упорядоченную по невозрастанию последовательность, состоящую из тех членов первой последовательности, которых нет во второй
Даны две последовательности. Получить упорядоченную по невозрастанию последовательность, состоящую...

Вывести новую последовательность, состоящую из отрицательных членов исходной последовательности
Требуется ввести последовательность целых числе и проверить, есть ли среди них отрицательные. Если...

Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных
Даны две упорядоченные по невозрастанию последовательности a(1..m) и b(1..n) . Получить...

Получить последовательность состоящую из членов первой последовательности, которых нет во второй
Даны две упорядоченные по неубыванию целочисленные последовательности, получить упорядоченную по...

2
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 7,029
Записей в блоге: 1
05.11.2012, 11:23 2
Лучший ответ Сообщение было отмечено Санек26 как решение

Решение

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
Var A,B:array[1..100] of integer;
    i,j,n,m,t:integer;
    f:boolean;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходная');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    m:=0;
    For i:=1 to n do
    Begin
      f:=true;
      For j:=1 to m do
       if A[i]=B[j] then f:=false;
      if f then
      Begin
        inc(m);
        B[m]:=A[i];
      End;
    End;
    For i:=m downto 2 do
     For j:=2 to i do
      if B[j]>B[j-1] then
      Begin
        t:=B[j];
        B[j]:=B[j-1];
        B[j-1]:=t;
      End;
    writeln;
    writeln('Преобразовання');
    For i:=1 to m do
     write(B[i]:4);
    readln;
End.
0
zMeFz
2 / 2 / 4
Регистрация: 05.11.2012
Сообщений: 14
05.11.2012, 21:57 3
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
var i,n:integer;
a,b:array[1..1000] of integer;
 
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
      
      begin
       readln(n); //читаем колво элиментов
        for i:=1 to n do
         read(a[i]);//читаем элименты
        sort(1,n);//сортим массив а
        for i:=1 to n do
         b[i]:=a[n-i+1];//переписываем из а в b наоборот
        for i:=1 to n do
         write(b[i],' '); //выводим элементы
      end.
Всё сделан ооочень просто ... (сортировку спёр с фри паскаля:FPC/demo/text/qsort - обычная быстрая сортирока).
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.11.2012, 21:57

Используя метод Aggregate, получить строку, состоящую из начальных символов всех строк исходной последовательности
Ребят здесь такой вопрос... точнее задачи, кто может помочь мне решить их? Самостоятельно немогу...

Получить сумму членов исходной последовательности если преобразованная последовательность неубывающая
Помогите!!! Дана последовательность действительных чисел A(n). Если в результате замены...

Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем
Даны действительные числа a1,.. a30. Получить новую последовательность удалением из исходной тех...


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

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

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