Тема-Одномерные массивы. Паскаль

[andrewpalkin]

Вот этот код :

for i:= 1 to n-1 do
begin
if X[i]=X[i+1] then
begin
dlina_posl_tek:=dlina_posl_tek+1;
if dlina_posl_tek < 3 then
begin
pol_posl_tek:=i;
end
end
else
begin
if dlina_posl_tek > dlina_posl_max then
begin
dlina_posl_max:=dlina_posl_tek;
pol_posl_max:=pol_posl_tek;
dlina_posl_tek:=1;
end
else
begin
dlina_posl_tek:=1;
end
end
end;

Замени на вот этот код :

for i:= 1 to n-1 do
begin
   if X[i]=X[i+1] then
     begin
        dlina_posl_tek := dlina_posl_tek + 1; 
         if dlina_posl_tek > dlina_posl_max then
           dlina_posl_max := dlina_posl_tek;
           pol_posl_max := pol_posl_tek;
     end;
   else
   begin
     dlina_posl_tek := 1; 
     pol_posl_tek := i+1;
   end;
end;

Прогони программу и скажи работает или нет , просто у меня нет паскаля

[rusfin01]

Работает та норм, но очень редко длину из 1 последовательности все равно выводит(

[andrewpalkin]

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

Работает та норм, но очень редко длину из 1 последовательности все равно выводит(

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

Поправил код в сообщение выше , вроде ты так хотел задание , только в задание ничего про это не сказано

[rusfin01]

Вот где цифра 3 в кружочке, это максимальная последовательность! Но очень очень редко он выводит 1 (а такого быть не должно)

П.с. после редактирования еще хуже стало( может без положения элементов лучше

[andrewpalkin]

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

Вот где цифра 3 в кружочке, это максимальная последовательность! Но очень очень редко он выводит 1 (а такого быть не должно)

Ну так ты в свой массив записываешь случайные числа , что значит он редко выводит 1 , если у тебя есть последовательность из 2 элементов подряд , то уже 1 он не выведет .

Я вот и не пойму в чем проблема , по тому скрину , что ты сделал , программа работает правильно

Объясни в чем проблема то ??? Или ты не знаешь , что такое случайные числа , которые ты пишешь в свой массив ???

Прогани вот этот код :

Uses crt;
const n=20;

var
i :integer;
dlina_posl_max :integer;
dlina_posl_tek :integer;
pol_posl_max :integer;
pol_posl_tek :integer;
X: array [1..n] of integer;

begin
randomize;
for i:= 1 to n do
begin
X[i]:=random(5);
write(X[i],' ');
end;

dlina_posl_max:=1;
dlina_posl_tek:=1;
pol_posl_max:=1;
pol_posl_tek:=1;

for i:= 1 to n-1 do
begin
   if X[i]=X[i+1] then
     begin
        dlina_posl_tek := dlina_posl_tek + 1; 
         if dlina_posl_tek > dlina_posl_max then
           begin
              dlina_posl_max := dlina_posl_tek;
              pol_posl_max := pol_posl_tek;
           end;
     end;
   else
   begin
     dlina_posl_tek := 1; 
     pol_posl_tek := i+1;
   end;
end;

writeln('');
writeln('длина последовательности максимальная: ',dlina_posl_max);
writeln('положение начала последовательности: ',pol_posl_max);

end.

[rusfin01]

Знаю))
Поскрину да, программа работает правильно!
Но если не сколько раз подряд запускать программу, то через некоторе время выдаст последовательность 1

[andrewpalkin]

когда получишь 1 , сделай скрин и выложи !!!

[rusfin01]

Кстати, прогнал ваш код, вот что получилось! Положение неправильно считает

[andrewpalkin]

Упс , забыл один begin Забери последний код еще раз , я его поправил

[rusfin01]

Работает!!! Спасибо большое что помогли)))
С удовольствием вам плюс в репу поставлю - только не могу понять где это ставится