программа, которая считывает цепочку чисел и печатает наиболее длинную, монотонно возрастающую их подпосл

[alexb81]

Добрый день!Помогите решить задачку.

Составить программу:

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

Спасибо!

[kakawkin]

а вам на чем ? vb, basic, pascal, c, assembler, python или на всем по чуть чуть ?

[alexb81]

На паскале

[alexb81]

Вот нашел,кто-нибудь подскажите онo или нет?

uses Crt;
const MAX_N = 5000;

var a: array [l..max_N]  of word;
len    : array [l..max_N]  of word;
sum    : array  [l..max_N]  of longint;

{ суммы наилучших подпоследовательностей }

next : array [l..max_N] of word;

{ "таблица выборов": следующие элементы в

наилучших подпоследовательностях }

fv :  text;

N, m,  k : word;

curr_len : word; curr_sum : longint; curr : word;

BEGIN

{ ввод данных и инициализация массивов }

assign(fv, ‘ secjuence .dat1) ; reset(fv);

readln(fv, N);

for m := 1 to N do read(fv, a [m]) ;

close(fv);

for m := 1 to N do begin

next[m]   := 0;  len[m]   := 0;  sum[m]   := 0;

end;

{ Решение подзадач поиска m-наилучших подпоследовательностей }

for m := N downto 1 do begin

curr_len := 0; curr_sum := 0;

{Ищется начало k-наилучшего решения для к от m+1 до N,

т.е. одной из подзадач меньшего размера,

и запоминается в next[m]. В len[m] и sum[m]

запоминаются длина и сумма т-наилучшего решения }

for k := m+1 to N do

if a[k]  >= a[t]   then

.if (len[k]  > curr_len) or

(len[k]  = curr_len) and (sum[k]  > curr_sum)

then begin

curr_len := len[k]; curr_sum := sum[k];

next[m]   := k;

end;

len[m]   := curr_len+l; sumtm]   := curr_sum+a[m];

end;

{ Поиск начала к наилучшей подпоследовательности }

curr_len  := 0;  curr_sum := 0;

for k := 1 to N do

if  (len[k]  > curr_len)  or

(len[k]  = curr_len)  and (sum[k]  > curr_sum)

then begin

curr_len := len[k]; curr_sum := sum[k];

curr := k;

end;

assign(fv,   1 sequence.sol1); rewrite(fv);

k := curr;

{ Вывод наилучшей подпоследовательности }

while k о 0 do begin

write(fv, a [k],   ‘   ‘); k := next[k];

end;

writeln(fv); writeln(fv,  sum[curr]); close(fv);

END.

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