проблемы с циклом for.. to..do

[BIS88]

У меня проблема, помогите, это очень срочно. Препод гонит, аж побить его охото. Есть задание:
Сколько раз будет выполняться тело следующего оператора цикла?
k:=0;
for i:=1 to k+3 do k:=k+1;
Вот. Как здравомыслящий человек с увереностью заявляю что тело цикла будет выполняться 3 раза. приношу ответ к преподу, а он говорит что это не правильно. Думаю ладно ошибся, пишу прогу в делфи, вывожу i, она выводиться 3 раза. опять несу преподу, а он опять говорит что не правильно. Люди помогите!!!! либо я уже совсем ни че не понимаю, либо препод от старости уже гонит. ПОМОГИТЕ! Сколько раз выполниться тело цикла????? Это очень срочно! на следующей неделе экзамен, надо эту контрольную сдать. Еще рах ПОМОГИТЕ! Заранее СПАСИБО.

[paloit]

var
i,k: integer;
begin
k:=0;
 for i:=1 to k+3 do
   k:= k+1;

 writeln(i);
 writeln(k);
 readln;
end.

и пишет на экране:
4
3
так что мой вывод - 4.

[Sazary]

Поделюсь своими мыслями:

Запустил это:

uses crt;
var k,i,iter : longint;
begin
clrscr;
k:=0;
iter := 0;
for i:=1 to k+3 do
  begin
  k:=k+1;
  inc(iter);
  end;
writeln(iter);
readln;
end.

Выводит 3.

Затем переписал на C++:

#include <iostream>
#include <conio.h>
using namespace std;

int main(){
int k=0;
int i;
for(i=1;i<=k+3;i++)
 { k += 1;
   if(i>=100) break;  // защита от зацикливания
 }
cout << i << endl;

getch();
return 0;
}

Выводит 100.
Можно сделать вывод:
похоже, что в паскалной версии конечное значение i (k+3) подсчитывается только один раз и не учитывется дальнейшее изменение k.

Теоретически этот цикл должен быть бесконечным, но со своими оговорками.

[paloit]

да, я сначала тоже думал - бесконечно... но проверил и вывод 4...
странно как-то.
на паскале - 4 раза. А на С - бесконечно Опять видна сила С...

[Sazary]

paloit

да, я сначала тоже думал - бесконечно... но проверил и вывод 4...

Это более, чем странно, т.к. у меня Ваш код выводит

3
3

=)))

[paloit]

проверял в делфи в консоле. Короче я не фига не понял

4
3

мне так выводит

[alex_fcsm]

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

так что мой вывод - 4.

Ваш код выводит 3

[Disel]

Сколько раз будет выполняться тело следующего оператора цикла?
k:=0;
for i:=1 to k+3 do k:=k+1; --------> это конкретное условие? В таких примерах, на сколько я знаю, надо брать одну переменую " k ", т.е. for k:=1 to k+3 do. В этом случае цикл будет безконечный.

[paloit]

может я и ошибаюсь. Прикрепляю проект. Д2007 - консоль.
Проверяйте.
i - это 4. k - это 3.
проверьте сам exe сначала

[Sazary]

paloit При компиляции выдает Warning:
"FOR-loop variable 'i' may be undefined after loop"
Думаю, причину нужно искать здесь )
Кстати, если код немного изменить:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i,k,l: integer;
begin
k:=0;
l:=0;
 for i:=1 to k+3 do
  begin
   k:= k+1;
   l := i;
   end;

 writeln(l);
 writeln(k);
 readln;
end.

..то выводит правильно:
3
3
)