Student

Последовательность a1, a2, a3, … , an-1, an называется пилообразной, если она удовлетворяет одному из следующих условий:
1) a1 < a2 > a3 < … > an-1 < an
2) a1 > a2 < a3 > … < an-1 > an

Задание:
заполнить файл txt целыми числами с консоли, вывести самую длинную пилообразную последовательность.

Помогите, пожалуйста, с решением!! Заранее спасибо

Имеется код схожей задачи на массивы, но он немножко неверно работает:

uses crt;
const nmax=30;
var a:array[1..nmax] of byte;
n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе образующие пилообразные последовательности');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;mx:=0;imx:=0;
while i<n do
if ((a[i]>a[i-1])and(a[i]>a[i+1]))or((a[i]<a[i-1])and(a[i]<a[i+1])) then
begin
j:=i;k:=2;
while(j<=n)and(((a[j]>a[j-1])and(a[j]>a[j+1]))or((a[j]<a[j-1])and(a[j]<a[j+1]))) do
begin
j:=j+1;
k:=k+1;
end;
if k>mx then
begin
mx:=k;
imx:=i-1;
end;
i:=i+k;
end
else i:=i+1;
if mx=0 then write('Нет пилообразной последовательности!')
else
begin
writeln('Максимальная пилообразная последовательность одинаковых чисел=',mx);
for i:=imx to imx+mx-1 do
write(a[i],' ');
writeln;
write('Её длина=',mx);
end;
readln
end.

Vladimir_S

В чем именно "неверно"? Погонял программу и ошибок не обнаружил.

Student

Если последовательность начинается с убывания, то вроде нормально, а если с возрастания но есть сбои
попробуйте ввести: 1 2 1 2 1 2

Vladimir_S

Попробовал. Нолик в конце присобачивается. Об этом речь?

Student

Да, и прибавляет еще этот нолик к длине строки

Vladimir_S

Понятно. Всё, что могу обещать - посмотрю, как будет время. Сегодня вечером либо завтра.

Student

Спасибо, но дело даже не в этом нолике - надо это как-то реализовать через файл txt
Но за любую помощь все-равно спасибо.

hamchuk250894

Такое же задание у меня но только мне надо создать типизированный файл .dat целых чисел и вывести на экран самую длинную пилообразную последовательность.

hamchuk250894

но только я тоже понять не могу как сделать.

Vladimir_S

В общем так, ребята - подзавяз я с вашей задачкой, признаюсь честно. Попробую сегодня добить. Когда именно - точно не знаю.