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

[uzer2007]

Помогите!!!!!!! Пусть задана числовая последовательность, составленная из N целых чисел.Определить количество строго возрастающих подпоследовате льностей данной последовательности.

[Vanta11a]

Последовательность - пусть 2 символа и больше.
Если следующий символ больше предыдущего - +1 к длине последовательности.
Если следующий символ <= предыдущему и длина последовательности >=2, то +1 к числу последовательностей и сброс длины последовательности в 0.

[uzer2007]

Очень стесняюсь (стаж программирования 5 месяцев) но не могли бы вы посмотреть мой вариант решения:
k:=n;
for i:=1 to n-1 do
begin
m:=i;
for j:=i to n do begin
m:=i;
if a[j]>a[m] then begin k:=k+1; m:=j; end;end;

[Vanta11a]

А что приведенный код делает? Для меня он слегка неочевиден

[uzer2007]

Код делает следующее: сначала количество равно колву элементов - один элемент это последовательность потом берется число(цикл по i) и сравнивается со следующими числами(цикл по j)как только находится элемент больший увеличивается кол-во найденных послед и сравнение будет идти уже с этим элементом k:=k+1; m:=j;
Я код немного изменил и теперь он выглядит так: var

var
  a: array [1..1000]  of integer;
  m,i,k,j,n,x:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);k:=n;
for i:=1 to n-1 do
for j:=i+1 to n do
begin m:=i;
for x:=j to n do
if a[x]>a[m] then begin k:=k+1;m:=j;end;end;
write(k);
end.

Но ошибка в нем есть на последовательности 1 4 2 5 вместо правильного ответа 11 у меня 12




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

Но ошибка в нем есть на последовательности 1 4 2 5 вместо правильного ответа 11 у меня 12

Чё? Как это соотносится с:

Определить количество строго возрастающих подпоследовательностей

?
Ответ: никак! Последовательность 1 2 3 4 3 5 6 1 3 6 - ответ - 3. Три возрастающих подпоследовательности, но никак не 12.

Или Вы не то задание привели?

[uzer2007]

числа в подпоследовательностях не обязательно должны идти по порядку пдпоследовательности
14
145
12
125
15
45
25, ну и 4 числа(последовательности из 1 числа)

[uzer2007]

http://programmersforum.ru/showthread.php?p=1320442, похожий вопрос

[Vanta11a]

1 число не может быть последовательностью, следуя здравому смыслу.

Судя по данному подходу, тут может прокатить комбинаторика. Нашел длинную последовательность, знаешь её длину, пусть 5. Тогда 1 раз по 5, 2 х 4, 3 х 3, 4 х 2 - вот все варианты для данного кусочка. И для всех кусков так.

[009]

var
  a,b: array [1..1000]  of integer;
  i,k,j,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do begin
b[i]:=1;
for j:=1 to i-1 do
if a[i]>a[j] then b[i]:=b[i]+b[j];
k:=k+b[i]; 
end;
write(k);
end.