freepascal.ru

Лекс Айрин писал(а):дело в том, что вычисление длинны строки в каждой итерации цикла слишком затратно.

Герман писал(а):Спб за помощь. Все таки я не одолел конструкцию через repeat until

function Poisk(const s: String; c: Char): Integer;
var i, n: Integer;
begin
  n:=Length(s); i:=0;
  repeat Inc(i) until (i>n) or (s[i]=c);
  if i>n then i:=0;
  Poisk:=i;
end;

function Poisk(const s: String; c: Char): Integer;
var i, n: Integer;
begin
  n:=Length(s); i:=0;
  repeat Inc(i) until (i>n) or (s[i]=c);
  Poisk:=i*Ord(i<=n);
end;

bormant писал(а):

Лекс Айрин писал(а):дело в том, что вычисление длинны строки в каждой итерации цикла слишком затратно.

Вероятно, чтение документации, в которой прямо сказано, что начальное и конечное значения вычисляются один раз до начала цикла и до инициализации счетчика цикла, еще затратнее...
http://www.freepascal.org/docs-html/ref/refsu59.html

Лекс Айрин писал(а):Про этот нюанс я откровенно забыл. Но все равно не стал бы на него надеяться. Ибо это конкретная реализация, на которую программист не должен опираться.(например, длинна строки может поменяться в цикле,(в сторону уменьшения), что может привести к непредсказуемым последствиям.)

bormant писал(а):1) нет. Это поведение с незапамятных времён и, если правильно путаю, свойство самого языка, как и неопределенность значения счетчика цикла по завершении цикла не по Break.

bormant писал(а):2) для меняющейся длины строки, где возможно используют
for i:=Length(s) downto 1 do ...
где невозможно, там и экономия с отдельной переменной теряет смысл, остаются
while (i<=Length(s)) and ... do ...
либо опора на барьер в виде завершающего #0 для строк без предвычисленный длины.

bormant писал(а):Это может поменяться в любой момент примерно с той же вероятностью, что и полностью выбросить синтаксис Паскаля и заменить его чем-то другим.

bormant писал(а):Это может поменяться в любой момент примерно с той же вероятностью, что и полностью выбросить синтаксис Паскаля и заменить его чем-то другим. С 1972 года не менялось, а тут ни с того ни с сего поменяется.
http://www.eah-jena.de/~kleine/history/ ... Report.pdf , стр. 29.

The control variable, the initial value and the final value ... must not be altered by the repeated statement

Короче, изначально действует правило - не менять начальное и конечное значение. Что будет, если оно изменится - по идее, зависит от реализации. Другое дело, что легче реализовать расчёт один раз, чем перепроверять каждый раз.