Developing.ru

Большое человеческое спасибо. Наверное минут за пять программу написали, но все равно - помощь неоценима. Добавила там еще счетчик, а то количество попыток неправильно выдавал :)

А я и говорю, левые штучки. Впрочем, у меня на ТурбоПаскале 7.0, сколько себя помню, так и было.

[quote="Хыиуду"]Мне припоминалось, что при выходе из цикла for значение индекса равно последнему значению плюс один. Потому что цикл, если не ошибаюсь, ассемблерно реализован примерно так (в переводе опять же на Паскаль):
[code]
i:=startvalue-1;
lab1: i:=i+1;
if i>endvalue then goto lab2;
{выполнение команд цикла}
goto lab1;
lab2: {идти дальше по программе}
[/code][/quote]Снова. Насколько я помню, это (значение счетчика цикла по его выходу) никем не гаратировано. То, что в какой-то реализации какого-то языка получается такой результат, не гарантирует, что вдругой реализации даже этого де языка результат будет такой же. Пожалуй, это можно назвать "недокументированной особенностью". А, как известно, полагаться на недокументированные штучки - это риск.

i:=startvalue-1;
lab1: i:=i+1;
  if i>endvalue then goto lab2;
  {выполнение команд цикла}
  goto lab1;
lab2: {идти дальше по программе}

Мне припоминалось, что при выходе из цикла for значение индекса равно последнему значению плюс один. Потому что цикл, если не ошибаюсь, ассемблерно реализован примерно так (в переводе опять же на Паскаль):
[code]
i:=startvalue-1;
lab1: i:=i+1;
if i>endvalue then goto lab2;
{выполнение команд цикла}
goto lab1;
lab2: {идти дальше по программе}
[/code]

[quote="Хыиуду"]Странно, неужели они логику одного из фундаментальных операторов поменяли?[/quote]Что-то припоминается мне из теории Паскаля, что про счетчик цикла for по выходе из цикла говорится, что его значение никак не гарантировано. Т.е. при программировании не следует делать никаких допущений о значении этой переменной.

Странно, неужели они логику одного из фундаментальных операторов поменяли?

На Дельфи - согласен, но вот (uses crt ;) в проге, говорит о Паскале - а там немного по-другому.

У меня ровно с тем же кодом (только выводил через Memo1.Lines.Add() ) получилось
1
2
3
4
Дельфи 7.0

var i:byte;
begin
 for i:=1 to 3 do
  writeln(i);
Writeln(i);
end.

1
2
3
3

[quote="&quot"]А в чем ошибка? Это как раз из серии "левые штучки". Если выход из цикла будет естественным путем, а не через break, значение count будет равно 4. Можно проверить.[/quote]
Вот это уже точно "левые" штучки. Видно ты с чем-то путаешь
[code]
var i:byte;
begin
for i:=1 to 3 do
writeln(i);
Writeln(i);
end.
[/code]
Results
[code]
1
2
3
3
[/code]

А в чем ошибка? Это как раз из серии "левые штучки". Если выход из цикла будет естественным путем, а не через break, значение count будет равно 4. Можно проверить.
А насчет Begin согласен - мой косяк. Это уже начинаются заглюки с Python, где нету бегинов и эндов, а операторные скобки делаются путем добавления пробелов в начале строки.