Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Анна1369
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 1
#1

Отсортировать последовательность по убыванию и вывести результат на экран - Free Pascal

30.05.2016, 10:38. Просмотров 150. Ответов 1
Метки нет (Все метки)

Из клавиатуры вводится последовательность чисел, что кончается нулём. Отсортировать эту последовательность за спаданием и вывести результат на экран, сохраняя последовательность и указать количество повторов.
http://www.cyberforum.ru/pascal/thread90962.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2016, 10:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отсортировать последовательность по убыванию и вывести результат на экран (Free Pascal):

Отсортировать столбцы матрицы в порядке убывания и вывести результат на экран
Дан текстовый файл, в нем числа 3x3. Задача: отсортировать столбцы матрицы в...

Ввести одномерный целочисленный массив А, вывести его. В массиве отсортировать по убыванию все элементы стоящие после минимального.
Условие задачи: Ввести одномерный целочисленный массив А, вывести его. В...

Вывести на экран чётные числа по убыванию от a до b.
1. Вывести на экран чётные числа по убыванию от a до b. 2. Вывести максимум и...

Вывести результат на экран
Ребята, помогите разобраться, вот задание: 1) Постановка задачи;...

Вывести на экран результат операции.
Помогите пожалуйста написать программу с помощью оператора выбора. (По задаче)...

1
Kitayets
334 / 288 / 102
Регистрация: 09.09.2011
Сообщений: 1,013
31.05.2016, 14:23 #2
Лучший ответ Сообщение было отмечено Анна1369 как решение

Решение

Не по теме:

русский не родной?



при выводе результатов количество повторов указывается в скобках
Кликните здесь для просмотра всего текста
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
program sequence_of_num;
{задача по заданию http://www.cyberforum.ru/free-pascal/thread1749351.html}
{$mode objfpc}{$H+}
 
 
type
  SeqOfNum = array of integer;
 
  procedure readSeq(out a: SeqOfNum);
  const
    N: integer = 256;
 
  var
    cur, Value: integer;
  begin
    SetLength(a, N);
    cur := 0;
    repeat
      readln(Value);
      if High(a) = cur then
        SetLength(a, Length(a) + N);
      a[cur] := Value;
      Inc(cur);
    until (Value = 0);
    SetLength(a, pred(cur));
  end;
 
  procedure sortMySeq(var a: SeqOfNum); // сортировка пузырьком
  var
    i, p, n: integer;
    b: boolean;
  begin
    n := Length(a);
    if n < 2 then
      exit;
    repeat
      b := False;
      Dec(n);
      if n > 0 then
        for i := 0 to n - 1 do
          if a[i] < a[i + 1] then
          begin
            p := a[i];
            a[i] := a[i + 1];
            a[i + 1] := p;
            b := True;
          end;
    until not b;
  end;
 
  procedure showMySeq(const a: SeqOfNum);
  var
    i, rep, Value: integer;
  begin
    rep := 1;
    Value := a[0];
    Write(Value);
    for i := 1 to High(a) do
    begin
      if a[i] = Value then
      begin
        Inc(rep);
        Continue;
      end;
      if rep > 1 then
      begin
        Write('(', rep, ')');
        rep := 1;
      end;
      Value := a[i];
      Write(' ', Value);
 
    end;
    writeln;
  end;
 
var
  seqStore: SeqOfNum;
begin
  writeln('Enter sequence:');
  readSeq(seqStore);
  sortMySeq(seqStore);
  Write('Result: ');
  showMySeq(seqStore);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2016, 14:23
Привет! Вот еще темы с решениями:

вычислить n! и результат вывести на экран n!= 1*2*....n
я не могу решить напишите плиз программу для паскаля

Вывести результат игры на экран (графический режим)
Есть игра...нужно в графическом режиме вывести в любую часть экрана переменную...

Вывести последовательность цифр на экран
НУЖНО СОСТАВИТЬ ЗАДАЧУ КОТОРВЯ ВЫВОДИТ НА ЭКРАН ПОСЛЕДОВАТЕЛЬНОСТЬ ЦИФР ОТ 1 ДО...

Вывести на экран последовательность чисел
Вывести на экран последовательность чисел от 0 до 100 И от 100 до 0


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

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

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