0 / 0 / 0
Регистрация: 01.05.2013
Сообщений: 32
1

Обработка упорядоченной последовательности

07.12.2013, 15:47. Показов 489. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность Х=(х1...хn) натуральных чисел, упорядоченных по неубыванию, т.е. x<=x<=...<=xn. Элемент последовательности назовем одиночкой, если его значение отлично от значения любого другого элемента в Х. Группу элементов хm+1, xm+2....xm+k назовем цепочкой длиной k(k >= 1), если xm<xm+1=xm+2=...=xm+k+1.

Построить вектор V=(vi.....Vn), где Vi - количество цепочек в X длины i.
Тут, к сожалению, я даже не могу начать выполнение задания.


Я писал что-то подобное, для ответа на вопрос: Построить вектор Y, где yi=xi (xi-первый элемент в цепочке), в противном случае yi=0 . Был схожий пример, поэтому особых затруднений не вызвало, да и дальше там подробнее сам ещё посмотрю. С этим я не прощу помощи, спасибо =) Надеюсь, доразбираю сам.
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
var X,V:array[1..20] of integer;
    N:integer;
    I,Iu:integer;
    inf,outf:text;
begin assign(inf,'inf.txt'); reset(inf);
      assign(outf,'outf.txt'); rewrite(outf);
        while not eof(inf) do begin
      N:=N+1;
      readln(inf,x[N]);
        end;
    writeln('Ввели элементы N=',N);
    writeln('Исходная последовательность: ');
    write('x= {');
      for I:=1 to N-1 do write(x[i],',');
    write(x[n],'}');
 
    writeln(outf,'Ввели элементы N=',n);
    writeln(outf,'Исходная последовательность: ');
    writeln(outf,'x= {');
      for I:=1 to N-1 do write(outf,x[i],',');
    writeln(outf,x[I],'}');
 
    for I:=1 to N do begin
    V[I]:=0;
    end;
    Iu:=1;
    V[1]:=1;
 
    for I:=2 to N do
        if (x[I-1]<x[I]) then begin
        Iu:=Iu+1;
        V[Iu]:=1;
        end
        else V[Iu]:=V[Iu]+1;
        
    writeln('Полученная последовательность:');
    write ('V={');
    for I:=1 to N-1 do write (V[I],',');
    writeln(V[I],'}');
    
    writeln(outf,'Полученная последовательность:');
    write (outf,'V={');
    for I:=1 to N-1 do write (outf,V[I],',');
    writeln(outf,V[I],'}');
    close(inf);
    close(outf);
    end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 15:47
Ответы с готовыми решениями:

Найти сумму первых 100 элементов упорядоченной последовательности
Помогите с олимпиадной задачей! Эта программа выводит в ответе нули. Я не могу понять, чего не...

Заменить число в последовательности, упорядоченной по возрастанию так, чтобы упорядоченность не нарушилась
Здравствуйте! Дана последовательность упорядоченных по возрастанию вещественных чисел А1,...,АN,...

Определить количество символов в наиболее длинной упорядоченной по убыванию последовательности
Определить количество символов в наиболее длинной упорядоченной по убыванию последовательности...

Занести элементы упорядоченной последовательности в подходящую по размеру квадратную матрицу по спирали
Значит дали задание: Дана произвольная матрица. Развернуть ее в вектор и упорядочить...

0
07.12.2013, 15:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2013, 15:47
Помогаю со студенческими работами здесь

Создать класс, который хранит в себе набор строк в упорядоченной последовательности
Задача: создать класс, который хранит в себе набор строк в упорядоченной последовательности. Она...

Упорядочить последовательность по возрастанию и присвоить переменной t третью от конца цифру первого числа упорядоченной последовательности
2. Дана последовательность целых чисел. Упорядочить их по возрастанию и присвоить целой переменной...

Обработка последовательности
5. Дано число a (1 &lt; a ≤ 1,5). Из чисел 1+1/2, 1+1/3,… вывести те, которые не меньше a.

обработка последовательности
Доброе время суток) Начинаю изучать С++, но лучше всего конечно же понимаю на примерах. Прошу...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru