В даной последовательности найти максимальную по длине последовательность

[Dima170792]

Ув.форумчане!обращаюсь к вам за помощью в решении задачи по информатике-язык программирования-Delphi7!задача состоит в следующем:В даной последовательности найти максимальную по длине последовательность так-чтоб елементы в ней были в возрастающем порядке!Заранее благодарен!

[Виталюкас]

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

[Сtrl]

Нормально задание сформулировано - все понятно. Dima170792, если хочешь - могу на C++ решить, а на Delphi сам переведешь (или, если хочешь, я переведу, но уже не бесплатно).

[НЕМО170792]

Сообщение от Сtrl

Нормально задание сформулировано - все понятно. Dima170792, если хочешь - могу на C++ решить, а на Delphi сам переведешь (или, если хочешь, я переведу, но уже не бесплатно).

можете на С++=а там думаю справлюсь!

[Сtrl]

#include <iostream>
#include <vector>


int main(void)
{
	/* Создание основной последовательности (ввод с клавиатуры) */
	std::cout << "Enter seq size: ";
	std::size_t seq_size;
	std::cin >> seq_size; std::cin.get();
	std::vector<int> seq;
	std::cout << "Enter seq: " << std::endl;
	for (std::size_t i = 0; i < seq_size; ++i)
	{
		int buffer;
		std::cin >> buffer;
		seq.push_back(buffer);
	} std::cin.get();

	/* Поиск самой длинной возрастающей субпоследовательности */
	std::vector<int> longest_subseq;
	for (std::vector<int>::const_iterator iter = seq.begin(); iter != seq.end();)
	{
		std::vector<int> subseq;
		subseq.push_back(*(iter++));
		while (iter != seq.end())
			if (*iter > subseq.back())
				subseq.push_back(*(iter++));
			else break;
		if (subseq.size() > longest_subseq.size())
			longest_subseq = subseq;
	}

	/* Вывод результата */
	std::cout << "The longest incremental subsequence is: \n";
	for (std::vector<int>::const_iterator iter = longest_subseq.begin(); iter != longest_subseq.end(); ++iter)
		std::cout << *iter << '\t';
	std::cout << std::endl;
	std::cin.get();
	return 0;
}

[Serge_Bliznykov]

(*

 даной последовательности найти максимальную по длине последовательность
 так-чтоб елементы в ней были в возрастающем порядке!

*)

program FindMaxLengthSeq;

{$APPTYPE CONSOLE}

const
  n=10;
  a:array[1..n] of integer = (2, 3, 1, 5, 1, 7, 0, 1, 3, 9);
var
  i, MaxLen, Imax, CurLen : integer; 
begin
  {выведем весь массив на экран}
  for i:=1 to n do Write(a[i]:1,' ');
  WriteLn;

  MaxLen := 0;  
  iMax := -1;

  CurLen := 1;
  i := 2;
  while i<=n do begin
    if a[i]>a[i-1] then Inc(CurLen)
    else begin
      if CurLen>MaxLen then begin
        MaxLen := CurLen;
        iMax := i-CurLen;
      end;
      CurLen := 1
    end;
    inc(i);
  end;

  {дополнительная проверка, если массив
     закончился максимальной по длине возрастающей серией}
  if CurLen>MaxLen then begin
        MaxLen := CurLen;
        iMax := i-CurLen;
  end;

  WriteLn('Максимальная длина последовательности = ',MaxLen:1,
          ' начинается с позиции номер ',iMax:1);

  readln;
end.

p.s. Сtrl круто! я бы лично не смог перевести это на Паскаль...

[Dima170792]

Всем спасибо! Особая благодарность-Serge_Bliznykov!!!