Нахождение позиции

[V@mpir]

Цель: найти номер позиции заданного числа в данной последовательности

begin
AssignFile(f,'input.in');
reset(f);
while not Eof(f)do
begin
readln(k);
posl:='1 2 3 2 3 4 3 4 5 4 5 6 5 6 7';
s:=inttostr(k);
n:=pos(s,posl);

end;
writeln(n);
{ TODO -oUser -cConsole Main : Insert code here }
end.

Результата нет!

[Alex Cones]

n:=pos(s,posl);

Поменяйте местами. posl и s
и writeln поставьте выше на строку. (поменять местами с end

[V@mpir]

Спасибо! Но это не дало результата,

Поменяйте местами. posl и s

мне наоборот надо найти некое число (k) в последовательности Posl

[raxp]

сначала вы пишите

найти номер позиции заданного числа в данной последовательности

потом

мне наоборот надо найти некое число (k) в последовательности

...вы определитесь, что же вы хотите?

[V@mpir]

Найти номер позиции некого числа в данной последовательности.
Последовательность -

1 2 3 2 3 4 3 4 5 4 5 6 5 6 7

Число считывается из файла

[raxp]

1 2 3 2 3 4 3 4 5 4 5 6 5 6 7

- дык, а если числа есть одинаковые, то какое вам должно выдать? первое найденное или последнее или все найденные?
вот у вас есть совпадающие 2 2 3 3 и т.д.

[V@mpir]

дык, а если числа есть одинаковые, то какое вам должно выдать? первое найденное или последнее или все найденные?
вот у вас есть совпадающие 2 2 3 3 и т.д.

Первая позиция данного числа

[raxp]

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

так: 1_2_3_4_6
найти тут число 4
итого, позиция = 4, а не 7. это?

если так, то

z:=0;

for i:=1 to pos(s,posl) do
  if posl[i]=' ' then inc(z);
 //caption:= inttostr(pos(s,posl)-z)
n:= pos(s,posl)-z;

[V@mpir]

Да, именно без пробелов, пример с 4 абсолютно верен её позиция 4. Но у меня всё равно не выводит нужный результат

var f:textfile;
n,k,z,i:integer;
s,posl:string;
begin
AssignFile(f,'input.txt');
reset(f);
while not Eof(f)do
readln(k);
posl:='1 2 3 2 3 4 3 4 5 4 5 6 5 6 7';
z:=0;
s:=inttostr(k);
begin
for i:=1 to pos(s,posl) do
if posl[i]=' ' then inc(z);
n:= pos(s,posl)-z;
writeln(n);
end;

{ TODO -oUser -cConsole Main : Insert code here }
end.

[raxp]

вижу, ваша ошибка в использовании readln(), поправил ваш код...

const posl = '1 2 3 2 3 4 3 4 5 4 5 6 5 6 7';
var f: textfile;
    n,z,i: integer;
    s: string;
begin
 AssignFile(f,'input.txt');
 reset(f);
 while not Eof(f) do begin
  ReadLn(f, s);

  z:=0;
  for i:=1 to pos(s,posl) do
   if posl[i]=' ' then inc(z);
  n:= pos(s,posl)-z;
  writeln(n);
  //memo1.Lines.add(inttostr(n))
 end
end;

в приложении на делфях для примера, но вставьте процедуру в свой код